こんにちは.
研究で行き詰ってしまったので緊急で質問させてください.
添付画像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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同率順位の発生しないランキン...
-
毎週追加して行くセルの数値を...
-
【マクロ】シートを非表示した...
-
Excel ショートカットで列、行...
-
エクセルについて
-
ショートカットキー
-
大容量があつかえるソフトを探...
-
エクセルにて時間帯にて自動で...
-
エクセルについて
-
(マクロ)シートを保護してもマ...
-
Googleスプレッドシートで、名...
-
エクセルの関数
-
Excelの警告について
-
エクセルを使ってQRコードを作...
-
【Excel】効率的な関数式の組み...
-
if関数。半角文字や全角文字で...
-
エクセルの数式について教えて...
-
Excelの更新日時が自動で更新さ...
-
FからI列で期限切れ及び期限7日...
-
(マクロ)値を返す時は subで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルデーターから必要な項...
-
エクセルでファイルの最終更新...
-
複数のテキストファイルをexcel...
-
Excelの複数条件の関数
-
【マクロ】ファイル名の一括変...
-
EXCELの散布図で日付が1900年に...
-
マクロの処理が遅くなった
-
Excelの時刻の不思議
-
エクセルでの2項目比較および...
-
Excelマクロで空白セルを詰めて...
-
エクセルの数式バーのフォント...
-
ExcelでASCを使って全角を半角...
-
エクセルで80万行、50列位のデ...
-
今まで文字化けなく開けていたc...
-
エクセルのことで教えてくださ...
-
エクセルVBA 月の中で、月~土...
-
Excelでの表の作り方
-
Excel セルにおけるフォント設...
-
エクセルの質問です。 F列からL...
おすすめ情報