前提・実現したいこと
VBAでループ処理をしたいのですが、
ステップイン機能を用いて確認していた所、
For~Nextの間が飛ばされていました。
ループ処理が正常に行われるようにしたいです。
ところどころ省略してあります。
VBA学習し始めたばかりで、多々不足しているかと思いますが
宜しくお願い致します。
該当のソースコード
Dim wb1, wb2 As Workbook
Set wb1 = Workbooks("名前.xlsm")
Set wb2 = Workbooks.Add
Dim ws1, ws2 As Worksheet Set ws1 = wb1.Worksheets("Sheet1") Set ws2 = wb2.Worksheets("Sheet1")
Dim cmax As Long
cmax = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Dim i, j, k As Integer
j = 36
k = 5
For i = 7 To cmax Step 3 'fornext うまくいかない ws1.Cells(i, j).Copy ws2.Cells(i, k).PasteSpecial (xlPasteValues) Application.CutCopyMode = False Next
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。