VBA，为数据透视表使用格式化行中的字符串

Question

我在格式化单元格时遇到问题。 我有一个填充文件名，工作表名称的宏。

   Sub Headers
              'Headers and sheet names
Range("A1").Value = "File Name "
 Range("B1").Value = "Sheet Name "
 Range("C1").Value = "Node"
Range("D1").Value = "Scenario Name"

   Dim intRow As Long: intRow = 2

For i = 1 To Sheets.Count
  If Sheets(i).Name <> ActiveSheet.Name Then
Cells(intRow, 2) = Sheets(i).Name
Cells(intRow, 1) = ActiveWorkbook.Name
intRow = intRow + 1
 End If
  Next i


    End Sub

我想知道如何重复工作表名称以匹配我所拥有的另一列但无论我对给定工作表有多少值，都可以通过工作簿进行工作。

例如，我在B2中有Sheetname1，在B3中有Sheetname2，在B4中有sheetname3，在C列中，我有需要与这些值对齐的值。例如：B2中的SheetName1与C2中的值匹配。 B3中的Sheetname2与C3和C4中的值匹配。所以我需要为B3和B4重复Sheetname2，以便它排成一行。这抛出了我的Sheetname3及其价值。我有很多工作簿，所以这个策略需要是动态的。

这样做的目的是使数据透视表更容易。如果可以在没有我必须排队这些价值的情况下完成让我知道。如有任何建议，我们将不胜感激。