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

Question

我有这个代码在工作簿中创建一个新工作表并列出一列中的所有工作表名称，工作正常但我希望在每个工作表名称之间留下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