名前の間に6つのセルがあります。

Question

名前の間に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 

コードを実行すると、すべてのセルに姓が書き込まれます。

Answer 1

それが最後に達するまで、あなただけの名前のリストを1つのループ、2で

各出力セル・サイクルをしたいです。

Sub names() 

Dim i As Integer 
Dim j As Integer 

j=2 
For i = 2 To 1010 
    Worksheets("Worksheet2").Cells(j, 12).Value = Worksheets("Worksheet3").Cells(i, 1).Value 
    j=j+6 
Next i 


End Sub