VBA Excel宏在包含合并行的excel表中的每一行之前插入标题

Question

我是excel宏编程的新手。从这里的专业知识寻求帮助。

我需要在每个序列号（即1、2（请参见快照））后输入标题（项目，信息方向（请参见快照））。我已按以下方式进行编码，但不适用于快照中显示的excel中的合并单元格。

我想在包含50个以上工作表的工作簿中执行此操作，其中每个工作表都具有快照中所示的表。这可能很简单，但是我是VBA宏的新手。预先感谢您的解决方案，评论和时间。

代码：

Sub WorksheetLoopmacro()

Dim WS_Count As Integer
Dim I As Integer

    ' Set WS_Count equal to the number of worksheets in the active
    ' workbook.
    WS_Count = ActiveWorkbook.Worksheets.Count

    ' Begin the loop.
    For I = 1 To WS_Count

               Cells.Find(What:="Item").Activate

            Do Until ActiveCell.Offset(2, 1).Value = ""

                ActiveCell.EntireRow.Select
                Selection.Copy
                ActiveCell.Offset(2, 0).Select
                Selection.Insert shift:=xlDown
                Application.CutCopyMode = False

            Loop

        ' MsgBox ActiveWorkbook.Worksheets(I).Name

        Worksheets(ActiveSheet.Index + 1).Select

    Next I

结束子