使用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

你只想要一個循環，

有兩個通過名稱列表中的每個輸出細胞週期，直到它到達最後。

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