EXCEL VBAのFor...Nextについて
VBA初心者です。よく理解していませんので、質問も的を得ていないかもしれませんが、ご指導宜しくお願いいたします。
現在、For...Ｎｅｘｔを使った表計算をしています。
A列に「す」という文字が含まれていたら、B列の「す」の行に「あ」と「い」と「え」「か」のセルの合計をだす。C列、D列・・・最終列まで計算する。
上記VBAを作成する方法を教えて下さい。
A B C D E F G H I J K L
1 2 3 4 5 6 7 8 9 10 11 12
あ 1 2 3 4 5 6 7 8 9 10 11
い 10 20 30 40 50 60 70 80 90 100 110
う 20 30 40 50 60 70 80 90 100 110 120
え 40 50 60 70 80 90 10 20 120 130 30
お 50 60 70 80 90 10 20 30 130 140 40
か 60 70 80 90 10 20 30 40 140 150 50
す
私は表に１～12まで数字をインプットし下記のようなコードを考えました。
Sub 列合計()
Dim i, k, l, m, n As Long
j = 2
For i = 6 To 120
For k = 6 To 120
For l = 6 To 120
For m = 6 To 120
For n = 6 To 120
If Cells(i, 1) = "す" And Cells(k, 1) = "あ" And Cells(l, 1) = "い" And Cells(m, 1) = "え" And Cells(n, 1) = "か" Then
Do While j <= Range("A2").End(xlToRight)
Cells(i, j) = Cells(k, j) + Cells(l, j) + Cells(m, j) + Cells(n, j)
j = j + 1
Loop
Else:
End If
Next n
Next m
Next l
Next k
Next i
End Sub
この内容だとエラーが出てしまいます。
補足ですが、あいうえおかの順番はかわったり、間に他の行が入ったりします。
また今回はL列の間としましたが、もっと列が増え、最終列まで計算する方法を知りたいのですが、どうぞ宜しくお願い致します。
※ofice2013です。
