Excel VBA插入指定行后无法合并前三列问题求助

原代码无法完成合并操作的核心问题有两个：

• Range地址的字符串拼接错误，直接写"A(rowNum):A(rowNum + 1)"不会解析变量rowNum，VBA会把它当作固定的无效单元格地址处理
• 合并范围不符合需求，原代码试图合并A列的两行，而实际需要合并新插入行的前三列（A、B、C列）

修正后的代码如下：

Sub AddRow()
    Dim rowNum As Variant
    
    ' 限制输入为数字，避免非数值内容
    rowNum = Application.InputBox(Prompt:="输入要插入行的行号:", _
                                    Title:="VCRM", Type:=1)
    
    ' 用户取消输入时直接退出程序
    If rowNum = False Then Exit Sub
    
    ' 在指定位置插入新行
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
    
    ' 合并新插入行的A-C列
    Range("A" & rowNum & ":C" & rowNum).Merge
End Sub

关键调整说明： #

• 把rowNum类型改为Variant，因为用户取消输入时Application.InputBox会返回False，Integer类型无法接收该返回值
• 用Type:=1约束输入为数字，减少无效输入导致的错误
• 正确拼接Range地址："A" & rowNum & ":C" & rowNum，精准指向新插入行的前三列
• 移除On Error Resume Next，改为显式判断用户取消操作的场景，避免掩盖其他潜在问题

内容的提问来源于stack exchange，提问作者Hasti Hyt