こんにちは.
研究で行き詰ってしまったので緊急で質問させてください.
添付画像1のように数字の並んだエクセルデータ(行512列166)があります.
添付画像は例ですが,赤でかこっているように,指定した4:2のデータから回帰直線の傾きをそれぞれの赤い四角のグループで求めていきたいです.
その傾きの値が(1),(2),,として,
(1)(7)(13)
(2)(8)(14)
(3)(9)(15)
(4)(10),
(5)(11),
(6)(12)
のように別のシートに並べていきたいと考えています.(実際は行128列83になるかと思います.)
すこし複雑で自力では解決できませんでした.
もし不明な点があればコメントいただければと思います.
よろしくお願いいたします.
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
SLOPE関数って使った事無いけど、ヘルプの説明どおりなら、
=SLOPE(yの範囲, xの範囲)
で、
yの範囲は=OFFSET(【元データの$A$1セル】, 【ROW()関数使って0, 4, 8, 12, …行目】, 【COLUMN()関数使って0, 2, 4, 8, …列目】, 【高さ4】, 【幅1】)
xの範囲は=OFFSET(【元データの$A$1セル】, 【ROW()関数使って0, 4, 8, 12, …行目】, 【COLUMN()関数使って1, 3, 5, 7, …列目】, 【高さ4】, 【幅1】)
って指定できる気がしますが、なんか上手くいかなかったです。
--
VBA使う必要あるのかな?って言った手前、ナンですが…
仕方ないので、VBAで指定したセルを基準に2×4の範囲をxの範囲、yの範囲として傾き計算する関数作ると、
Function Slope4(rng As Range)
Dim n, x, y, Sx, Sy, Sxy, Sx2
Sx = 0 ' Σx
Sy = 0 ' Σy
Sxy = 0 ' Σxy
Sx2 = 0 ' Σx^2
For n = 0 To 3
x = rng.Offset(n, 0)
y = rng.Offset(n, 1)
Sx = Sx + x
Sy = Sy + y
Sxy = Sxy + x * y
Sx2 = Sx2 + x ^ 2
Next n
Slope4 = (4 * Sxy - Sx * Sy) / (4 * Sx2 - Sx * Sx)
End Function
Sheet2の、
A1:=Slope4(OFFSET(Sheet1!$A$1,(ROW()-1)*4,(COLUMN()-1)*2))
として、以降の範囲にコピペ。
すると、ざっくり確認する限りは計算できてるっぽいです。
No.1
- 回答日時:
> すこし複雑で自力では解決できませんでした.
数が多くて複雑って事なら、まずは質問のサンプルみたいに数を減らして計算してみては。
VBAを使う必要もあるんでしょうか。
傾きって言ったって、4つの座標の組で傾きを計算するのか、等間隔な8点の傾きを計算するのかも不明瞭です。
例えば、質問の(1)の傾きは手計算でもいいですが、どういう計算でいくつになりますか?
この回答への補足
こんにちは,コメントありがとうございます.
VBA使わずにすむならそれにこしたことはないです.
質問の例の傾きは,関数=SLOPE(RC[-1]:R[3]C[-1],RC[-2]:R[3]C[-2])で1となりました.
slope関数で既知のyはB1からB4,既知のxはA1からA4としました.
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 統計学 直線の傾き(回帰係数)から相関係数を計算できるのでしょうか? 2 2022/09/16 19:28
- ソフトウェア エクセル_データ処理_変化点検出について 1 2022/09/20 18:25
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) エクセルのマクロで複数条件に当てはまるものを全て抽出したいです 7 2022/05/21 08:51
- Illustrator(イラストレーター) Illustrator アンカーポイント選択について 3 2023/01/30 12:31
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel関数-文字列で自動作成さ...
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシート、Excelでの数...
-
Microsoft Officeの中古は信用...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシートで使う数式を...
-
エクセルでの特別な文字を上に...
-
エクセル日付 文字列の関数がエ...
-
A列とB列を参照してC列に連番を...
-
エクセルVBA、別ブックへ転記す...
-
各ページの1番上の表示について
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
【マクロ】アクティブセルにブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報