excel-formula - 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

结束子

标签： excel-formula