VBA Next For でのコピペについて

質問

EXCEL VBA初心者です。

AシートEW44からGD44までをコピーしてBというシートの最終行へコピーしたいです。
今下記のように組んでいるのですが、うまく作動しません。

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 153 To 186
row1 = Worksheets("B").Cells(Rows.Count, 27).End(xlUp).Row
Worksheets("A").Cells(i, 44).Value = Worksheets("B").Cells(row1 + 1, 27).Value
Next i
End Sub

アドバイスいただけませんでしょうか。

回答No.2

mt2015 · ベストアンサー

修正を最小限にするならこんな感じ

Worksheets("A").Cells(i, 44).Value = Worksheets("B").Cells(row1 + 1, 27).Value
↓
Worksheets("B").Cells(row1 + 1, 27).Value = Worksheets("A").Cells(44, i).Value

シート「A」のEW44：GD44の値をシート「B」のAA2セル以降に縦に入れていきます。

回答No.1

FEX2053

VBAでは「Next」の後ろに「i」は付けちゃダメですけど？