在它们之间用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

你只想要一个循环，

每个输出单元格中有两个循环遍历名称列表，直到到达最后一个。

var environment = Environment.GetEnvironmentVariable("ASPNETCORE_ENVIRONMENT");
var isDevelopment = environment == EnvironmentName.Development;