VBA实现Excel两列内容自动拼接 数据更新时自动同步结果

方案一：原生公式（无代码，推荐） #

无需编写任何宏代码，Excel原生公式自带自动更新能力，操作步骤如下：

1. 打开「Open」工作表，点击J2单元格（即CONCATENATE列第一行数据位）
2. 输入公式：=G2&" "&I2，按回车确认
3. 鼠标放在J2单元格右下角，当光标变成十字填充柄时下拉，填充所有需要拼接的行即可
   后续任意修改G列（Supplier Name）或I列（Invoice NUM）的内容，J列的拼接结果会自动同步更新。

方案二：VBA自动触发方案（适合需要自定义复杂逻辑的场景） #

你之前编写的两段代码均为普通宏，需要手动点击才能运行，要实现修改单元格自动触发更新，需要使用工作表Change事件，操作步骤：

1. 按Alt+F11打开VBA编辑器，在左侧工程资源管理器中找到名为「Open」的工作表，双击打开它的代码编辑窗口
2. 将以下代码粘贴到编辑窗口中即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在修改G列(供应商名)或I列(发票号)时触发更新
    If Intersect(Target, Me.Range("G:G, I:I")) Is Nothing Then Exit Sub
    
    Dim editCell As Range
    ' 关闭事件触发和屏幕刷新，避免递归和卡顿
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    ' 遍历所有被修改的单元格，仅更新对应行的拼接结果
    For Each editCell In Intersect(Target, Me.Range("G:G, I:I"))
        If editCell.Row >= 2 Then ' 跳过第一行表头
            Me.Range("J" & editCell.Row).Value = Me.Range("G" & editCell.Row).Value & " " & Me.Range("I" & editCell.Row).Value
        End If
    Next editCell
    
    ' 恢复设置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

原有代码问题说明 #

• 第一段代码的双层循环逻辑错误，会生成大量重复的拼接结果
• 第二段代码每次运行需要全量遍历所有行，修改单个单元格时执行效率低
• 两段代码都没有绑定单元格修改事件，无法自动触发运行

内容的提问来源于stack exchange，提问作者Roshan Rajan