我已经多次搜索,但似乎找不到真正解决我问题的那个。所以我在多个工作表中有很多数据,并且它们的命名方式不同(通常是日期)。我需要将所有工作表名称复制到一个水平表中,但它有一个问题。对于每个工作表名称,我将至少复制5次(在列中),然后再转到下一个工作表名称。例如:
a a a a a b b b b b c c c d d d d d
a,b,c,d 是工作表名称的示例
答案 0 :(得分:1)
修改了其他地方的例子。它有点粗糙,但应该按照你的要求做。
Sub Worksheets()
Dim i As Integer
For i = 1 To Worksheets.Count
For c = 1 To 5
Worksheets(1).Cells(1, c + ((i - 1) * 5)) = Worksheets(i).Name
Next c
Next i End Sub