在工作簿中创build所有工作表名称的列表

我有这个代码，在工作簿中创build一个新的工作表，并列出列中的所有工作表名称，工作正常，但我希望它在每个工作表名称之间留下27空行

Dim xWs As Worksheet On Error Resume Next Application.DisplayAlerts = False xTitleId = "All Sheet Names" Application.Sheets(xTitleId).Delete Application.Sheets.Add.index Set xWs = Application.ActiveSheet xWs.Name = xTitleId For i = 2 To Application.Sheets.Count xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name Next 

示例这是它现在如何列出它们

这是我希望它列出与每个表名之间的空白空间

Answer 1

OP表示它们之间有27个空白行，所以下一行将是28行。

 For i = 2 To Application.Sheets.Count xWs.Range("A" & ((i - 1) * 28) - 27) = Application.Sheets(i).Name Next