SLOPE関数を用いて一か所だけでなく同様の処理を一つのマクロで行う方法が知りたいです。

Question

前提・実現したいこと

エクセルを用いて下図のように
縦に3つ並んだセルの一次近似式の傾きを隣のセルに書き出すマクロが作りたいです。

一か所の計算にはSLOPE関数を用いましたが、
連続して同様の処理をさせたいのですがうまくできません。
お知恵をお貸しいただけたらと思います。

よろしくお願いします。

Comments

[meg_]

> 一か所の計算にはSLOPE関数を用いましたが、連続して同様の処理をさせたいのですがうまくできません。

途中でも良いのでコードを載せてください。

[simi]

ありがとうございます。
実際には異なるシートを二つ用いての計算になるので、このような形にたどり着きました。
=INDEX(SLOPE(OFFSET(Sheet1!A$1:A$3,(ROW()-1)*3,0),Sheet2!$B$1:$B$3),1,1)

[tatsu99]

=INDEX(SLOPE(OFFSET(Sheet1!A$1:A$3,(ROW()-1)*3,0),Sheet2!$B$1:$B$3),1,1)
これは、マクロ（VBA）ではなく、関数式ですが、
マクロ（VBA）を望まれているのでしょうか。
それとも、関数式を望まれているのでしょうか。

Answer 1

VBAは回答がついていますので使わないパターンを。
作業セルを使っています。
D1：セル範囲を指定

="B"&3*ROW()-2&":"&"B"&3*ROW()

E1：SLOPE関数

=SLOPE(INDIRECT(D1),$A$1:$A$3)

これで下にドラッグしていけば希望通りかと思います。

Answer 2

画像のような式をVBAで設定したいのなら、

Public Sub Sample()
    Dim lastRow As Long
    lastRow = Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow Step 3
        Cells((i \ 3) + 1, "D").Formula = "=SLOPE(B" & i & ":B" & i + 2 & ",$A$1:$A$3)"
    Next
End Sub

VBAで計算した結果をセルに代入したいのなら、

Public Sub Sample2()
    Dim rng1 As Range
    Set rng1 = Range("B1:B3")
    Dim rng2 As Range
    Set rng2 = Range("A1:A3")
    
    Dim lastRow As Long
    lastRow = Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow Step 3
        Cells((i \ 3) + 1, "D").Value = WorksheetFunction.Slope(rng1, rng2)
        Set rng1 = rng1.Offset(3)
    Next
End Sub