在单独的工作表上打印工作表名称

Question

我创建了一些VBA代码，通过它我可以在excel中创建所有工作表名称的列表。现在我想在sheet＆＃34; Blad2＆＃34;中打印所有值。在单元格A1，A2，A3等...

有人想过如何做到这一点吗？已经有下面的代码工作，但它只是覆盖单元格A2中的代码...

Sub namesSheet()

For i = 1 To Sheets.Count
    Var = Sheets(i).Name
    Worksheets("Blad2").Range("A2") = Var
Next i


End Sub

Answer 1

试试这个：

For i = 1 To Sheets.Count
    Worksheets("Blad2").Range("A1").Offset(RowOffset:=i) = Sheets(i).Name
Next i

Answer 2

Sub namesSheet()

For i = 1 To Sheets.Count
    Var = Sheets(i).Name
    Worksheets("Blad2").Range("A" & i) = Var
Next i


End Sub

Answer 3

你也必须为细胞设置计数器     子名称表（）

For i = 1 To Sheets.Count
    Var = Sheets(i).Name
    Worksheets("Blad2").cells(i,1) = Var
Next i


End Sub