输入数据后自动插入行，然后合并单元格

Question

当在B列的任何单元格中输入数据（用户单击“返回”）时，我想在刚输入数据的行的下方插入四行。

我希望程序在用户点击返回单元格后自动运行。 我一直有三个关键点：

1. 寻找一种无需用户按下按钮即可运行程序的方法。 我花了很多时间搜索要使用的示例代码，并且找到了一些资源，但是我使用的两个示例似乎没有用。 PDCA是工作表名称，Add_Row是我编写的用于在用户输入的数据下方添加行的宏。

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B3:B14]) Is Nothing Then Sheets("PDCA Tracking").Add_Row End Sub

2. 实际运行Add_Row程序。 我收到错误1004应用程序定义的错误或用户定义的错误。 我的第二个问题是，当用户按下回车键时，活动单元将不是他/她刚刚输入数据的那个单元，是吗？ 我将如何缓解呢？ 那将是电子表格的最后一行，我能找到最后一行，然后在其下方添加行吗？：

     Sub Add_Row'Insert row below active cell ActiveCell.Offset(1).EntireRow.Insert Cells(ActiveCell.Offset(1), 3).Value = "Zulu" ActiveCell.Offset(2).EntireRow.Insert Cells(ActiveCell.Offset(2), 3).Value = "Yankee" ActiveCell.Offset(3).EntireRow.Insert Cells(ActiveCell.Offset(3), 3).Value = "X-Ray" ActiveCell.Offset(4).EntireRow.Insert Cells(ActiveCell.Offset(4), 3).Value = "Whiskey" 'Call Merge_Cells End Sub 

3. 输入数据后，我要获取用户刚刚添加数据的行下方的单元格并进行合并。 （即，如果用户输入“ banana”，并且我在“ banana”下方添加了四行，我只希望将香蕉下的四个新单元格与包含“ banana”的单元格合并。我知道有一个.Merge命令，但同样，不确定使用的语法。

任何帮助都非常感谢！

更新：我认为我想出了如何在最后填写的行下方添加数据。

Dim lastRow As Long

lastRow = Range("A" & Rows.Count).End(xlUp).Row

Cells(lastRow + 1, 3).Value = "Zulu"
Cells(lastRow + 2, 3).Value = "Yankee"

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo haveError

    If Target.Cells.Count = 1 And _
       Not Application.Intersect(Target, [B3:B14]) Is Nothing Then

        Application.EnableEvents = False
        With Target
            .Offset(1, 0).Resize(4, 1).Insert Shift:=xlDown
            .Resize(5, 1).Merge
            .VerticalAlignment = xlTop
        End With
        Application.EnableEvents = True

    End If
    Exit Sub

haveError:
    Application.EnableEvents = True

End Sub