我想将名称从另一个工作表中写出另一个工作表,其中有6个单元格。Subnames()DimiAsIntegerDimjAsIntegerForj=2To6054Step6Fori=2To1010Worksheets("Worksheet2").Cells(j,12).Value=Worksheets("Worksheet3").Cells(i,1).ValueNextiNextjEndSub当我运行代码时,它会将姓氏写入每个单元格。看答案您只需要一个循环,每个输出细胞周期都通过名称列表,直到达到最后一个。Subnames()DimiAsIntegerDimjAsIntegerj=2Fori=2T