使用For Next循环插入公式：批量拼接单元格宏的引号处理问题

原代码存在多个核心问题，导致公式插入异常：

• 错误使用.Select方法：.Cells(i, 15).Select返回的是布尔值（表示选中操作是否成功），而非单元格引用，直接破坏了公式的拼接逻辑。
• 文本常量未正确转义：公式中作为分隔符的-需要用双引号包裹，而VBA中表示单个双引号必须写两个双引号""，原代码未做转义导致公式语法错误。
• 最后一行计算逻辑错误：原代码基于空的C列计算最后一行，应该改用数据所在的O列（第15列）或P列（第16列）来获取有效行数。
• 冗余的激活与选中操作：完全无需激活工作表或选中单元格，直接通过对象引用赋值更高效可靠。
• 屏幕更新未恢复：最后未将Application.ScreenUpdating设回True，会导致Excel界面一直处于不刷新状态。

修正后的代码：

Sub ConcatenateColumns()
    Dim i As Long
    Dim LastRow As Long
    Dim WS As Worksheet
    
    Set WS = Sheets("Vlookups")
    ' 基于O列（第15列）获取最后一行数据，避免C列为空时计算错误
    LastRow = WS.Cells(WS.Rows.Count, 15).End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    With WS
        For i = 2 To LastRow
            ' 拼接正确的公式：引用O、P列单元格，中间用"-"连接
            .Cells(i, 3).Formula = "=CONCATENATE(" & .Cells(i, 15).Address(False, False) & ",""""-""" & "," & .Cells(i, 16).Address(False, False) & ")"
        Next i
    End With
    
    Application.ScreenUpdating = True
End Sub

额外优化方案：

• 用&运算符替代CONCATENATE函数，公式更简洁：

  .Cells(i, 3).Formula = "=" & .Cells(i, 15).Address(False, False) & "&""-""&" & .Cells(i, 16).Address(False, False)
  

• 如果不需要保留公式，直接写入拼接后的文本值，效率更高（适配900行数据规模）：

  Sub ConcatenateColumnsAsValues()
      Dim i As Long
      Dim LastRow As Long
      Dim WS As Worksheet
      
      Set WS = Sheets("Vlookups")
      LastRow = WS.Cells(WS.Rows.Count, 15).End(xlUp).Row
      
      Application.ScreenUpdating = False
      
      With WS
          For i = 2 To LastRow
              .Cells(i, 3).Value = .Cells(i, 15).Value & "-" & .Cells(i, 16).Value
          Next i
      End With
      
      Application.ScreenUpdating = True
  End Sub
  

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