0
名前の間に6つのセルがある別のワークシートの名前を別のワークシートに書きたいと思います。名前の間に6つのセルがあります。
Sub names()
Dim i As Integer
Dim j As Integer
For j = 2 To 6054 Step 6
For i = 2 To 1010
Worksheets("Worksheet2").Cells(j, 12).Value = Worksheets("Worksheet3").Cells(i, 1).Value
Next i
Next j
End Sub
コードを実行すると、すべてのセルに姓が書き込まれます。
ありがとうございます。出来た :) –