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

Question

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

有人对我如何做到这一点有一些想法吗？已经得到了下面的代码，但它只是覆盖了单元格 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