[[20171204155221]]　『VBA 計算の繰り返し』（なー）　ページの最後に飛ぶ

『VBA 計算の繰り返し』（なー）

ＶＢＡで計算の繰り返し処理を行いたいです。

<シート１>

  │Ａ │ Ｂ │ Ｃ │ Ｄ
１│10 │ 12 │ 13 │ 6
２│6  │ 4  │ 10 │ 7
３│18 │ 27 │ 10 │ 8
・│・ │ ・ │ ・ │ ・
・│・ │ ・ │ ・ │ ・
・│・ │ ・ │ ・ │ ・

といったように値が入っています。
Ａ２～Ａaまでで、aはそのときによって変わるので、変数とします

次にシート２にて計算を行います。
シート２での計算は、
Ｂ２－Ａ２
Ｂ３－Ａ３
　　・
　　・
Ｃ２－Ｂ２
Ｃ３－Ｂ３
　　・
　　・
Ｄ２－Ｃ２
Ｄ３－Ｃ３
　　・
　　・
といったように値が入っているセル分の差分を出し、表示します。

この場合、すべての計算を終え、表示するまでの繰り返し処理はどのように記述したらよいのでしょうか？
空白セルが出たところで計算を終えるようにしたいです。

空白セルまでの繰り返しは、
n = Cells(Rows.Count, "A").End(xlUp).Row
で行えると聞いたのですが・・・

挑戦してはいますが何分ＶＢＡ初心者なのでセルをRange("A2")みたいに特定しないような繰り返し処理に躓いています・・・

分かりにくくて申し訳ないですが教えてください。
　

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

シートが違うんでしたら
別にVBAじゃなくても
数式適当な所まで埋め込んどけば
いいと思いますが

基準セルがあると思います
＞Ｂ２－Ａ２

シート２のA2にはいるのですか？
（＋＋） 2017/12/04(月) 16:22

 こんなの？
 Sub TST()
    Dim OUT_RANGE   As Range
    Dim ROW_CNT     As Integer
    Dim COLUMN_CNT  As Integer

    Set OUT_RANGE = Worksheets("Sheet2").Range("A1")

    With Worksheets("Sheet1")
        For COLUMN_CNT = 2 To 4
            For ROW_CNT = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
                OUT_RANGE.Value = .Cells(ROW_CNT, COLUMN_CNT) - .Cells(ROW_CNT, COLUMN_CNT - 1)
                Set OUT_RANGE = OUT_RANGE.Offset(1)
            Next
        Next
    End With
 End Sub

（ねむねむ） 2017/12/04(月) 16:33

 数式でやってみた。
 =IFERROR(INDEX(Sheet1!A:D,MOD(ROW(A1)-1,COUNTA(Sheet1!A:A))+1,INT((ROW(A1)-1)/COUNTA(Sheet1!A:A))+2)-INDEX(Sheet1!$A:$D,MOD(ROW(A1)-1,COUNTA(Sheet1!A:A))+1,INT((ROW(A1)-1)/COUNTA(Sheet1!A:A))+1),"")
 なお、VBAも式もSheet1のA1セルから値があるものとしてSheet2のA1セルから表示している。
（ねむねむ） 2017/12/04(月) 16:43

 おっとデータが数値なので
 =IFERROR(INDEX(Sheet1!A:D,MOD(ROW(A1)-1,COUNT(Sheet1!A:A))+1,INT((ROW(A1)-1)/COUNT(Sheet1!A:A))+2)-INDEX(Sheet1!$A:$D,MOD(ROW(A1)-1,COUNT(Sheet1!A:A))+1,INT((ROW(A1)-1)/COUNT(Sheet1!A:A))+1),"")
 でいいのか。
（ねむねむ） 2017/12/04(月) 16:53

コメント返信：

[ 一覧(最新更新順) ]

[[20171204155221]] 『VBA 計算の繰り返し』（なー） ページの最後に飛ぶ

[[20171204155221]]　『VBA 計算の繰り返し』（なー）　ページの最後に飛ぶ