如何使用excel vba将不同的工作表名称水平插入到不同的单元格中

时间:2017-08-16 07:27:47

标签: excel vba

我已经多次搜索,但似乎找不到真正解决我问题的那个。所以我在多个工作表中有很多数据,并且它们的命名方式不同(通常是日期)。我需要将所有工作表名称复制到一个水平表中,但它有一个问题。对于每个工作表名称,我将至少复制5次(在列中),然后再转到下一个工作表名称。例如:

a a a a a b b b b b c c c d d d d d

a,b,c,d 是工作表名称的示例

1 个答案:

答案 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