拿出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 

当我运行的代码它写出了每个单元格的姓氏。

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