如何通过VBA直接拼接Table1两列数据 无需创建辅助列

核心改造思路 #

• 完全移除原代码中对DI、DJ辅助列的复制粘贴、值读取逻辑
• 直接从结构化表Table1的内存对象中读取Milestone、Task两列的数值数组，在内存中完成字符串拼接，无中转步骤
• 最终拼接结果直接从Sheet2的DK2单元格开始写入，全程不触发辅助列的读写操作

具体实现代码 #

基础兼容版（适配原有循环逻辑） #

完全保留原代码的行数判断规则，仅替换辅助列读取部分，适合小数据量、需要保持原有业务逻辑不变的场景：

Sub 无辅助列拼接基础版()
    Dim O As String, P As String
    Dim i As Long, lastRow As Long
    Dim colMilestone As Variant, colTask As Variant
    
    ' 定义要读取的Table1列名
    O = "Milestone"
    P = "Task"
    
    ' 直接读取Table1两列的内存值，无需复制粘贴到辅助列
    colMilestone = Sheet1.ListObjects("Table1").ListColumns(O).DataBodyRange.Value
    colTask = Sheet1.ListObjects("Table1").ListColumns(P).DataBodyRange.Value
    
    ' 沿用原逻辑获取DH列的有效终止行，补充Sheet2前缀避免引用错位
    lastRow = Sheet2.Cells(Sheet2.Rows.Count, "DH").End(xlUp).Row
    
    ' 从DK2开始逐行拼接写入，全程不访问DI、DJ列
    For i = 2 To lastRow
        ' 数组行索引从1开始，对应Table1表头下的第一行数据
        Sheet2.Cells(i, "DK").Value = colMilestone(i - 1, 1) & "" & colTask(i - 1, 1)
    Next i
End Sub

性能优化版（适配大数据量场景） #

避免逐行读写单元格的性能损耗，拼接完成后一次性批量写入目标区域，适合万行以上数据量的场景，运行速度比逐行写入快数十倍：

Sub 无辅助列拼接优化版()
    Dim O As String, P As String
    Dim i As Long
    Dim colMilestone As Variant, colTask As Variant
    Dim resArr As Variant
    
    O = "Milestone"
    P = "Task"
    
    ' 读取Table1两列的内存值
    colMilestone = Sheet1.ListObjects("Table1").ListColumns(O).DataBodyRange.Value
    colTask = Sheet1.ListObjects("Table1").ListColumns(P).DataBodyRange.Value
    
    ' 预定义拼接结果数组大小
    ReDim resArr(1 To UBound(colMilestone, 1), 1 To 1)
    ' 在内存中完成所有行的字符串拼接
    For i = 1 To UBound(resArr, 1)
        resArr(i, 1) = colMilestone(i, 1) & "" & colTask(i, 1)
    Next i
    
    ' 从DK2开始，一次性将结果数组写入单元格区域
    Sheet2.Range("DK2").Resize(UBound(resArr, 1), 1).Value = resArr
End Sub

常见适配调整说明 #

• 空值兼容：如果Table1的某一列没有任何数据，读取DataBodyRange会触发报错，可在读取列值前增加空判断：

  ' 空判断逻辑
  If Sheet1.ListObjects("Table1").ListColumns(O).DataBodyRange Is Nothing Then
      colMilestone = ""
  Else
      colMilestone = Sheet1.ListObjects("Table1").ListColumns(O).DataBodyRange.Value
  End If
  

• 引用修正：原代码中Cells(Rows.Count, "DH").End(xlUp).Row未指定所属工作表，会默认引用当前活动表的单元格，实际使用时必须补充Sheet2.前缀，避免切换工作表时取错行号
• 分隔符自定义：如果拼接时需要在两个字段中间增加固定分隔符（如空格、横杠），直接修改拼接字符串即可，例如将colMilestone(i, 1) & "" & colTask(i, 1)调整为colMilestone(i, 1) & " - " & colTask(i, 1)

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