我如何插入不同的單元格名稱水平與Excel VBA

Question

我已經搜索了很多次，但它似乎無法找到一個實際上解決我的問題。所以我在多個工作表中有很多數據，並且它們的命名方式不同（通常是日期）。我需要將所有的工作表名稱複製到一個水平表中，但有一個問題。對於每個工作表名稱，我將至少複製5次（按列），然後再轉到下一個工作表名稱。例如：

A A A A A B B B B B C C C C C d d d d d

A，B，C，d是表名稱

Answer 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