VBA字符串拼接语法失效求助：如何复制指定列至目标工作表

原代码的核心问题 #

1. 范围拼接错误：rng1&":"&rng2会生成类似A2:C2的范围，选中的是整行A到C列，而非单独的A、C单元格，不符合仅复制两列的需求。
2. 语法与拼写错误：
   • search_value = Sheets(2).Cells(i, 1).Value = 1 逻辑错误，i未初始化就使用，且错误将布尔判断结果赋值给变量，若需求是筛选值为1的行，直接赋值search_value = 1即可。
   • Sheets(1).Rande(my_range) 拼写错误，应为Range。
3. 粘贴位置错误：每次固定粘贴到A2会覆盖之前的数据，需动态定位Sheet2的下一个空行。
4. 冗余操作：Activate/Select不仅低效，还易引发错误，直接操作单元格对象更可靠。

修正后的逐行复制代码 #

Sub CommandButton1_Click()
    Dim search_value As Integer
    Dim targetRow As Long
    Dim i As Integer
    
    ' 定义筛选目标值（可按需修改）
    search_value = 1
    ' 初始化Sheet2的起始粘贴行
    targetRow = 2
    
    ' 遍历Sheet1第2到100行
    For i = 2 To 100
        If Sheets(1).Cells(i, 1).Value = search_value Then
            ' 直接复制指定单元格到Sheet2对应位置
            Sheets(1).Cells(i, 1).Copy Destination:=Sheets(2).Cells(targetRow, 1)
            Sheets(1).Cells(i, 3).Copy Destination:=Sheets(2).Cells(targetRow, 2)
            
            ' 粘贴行下移，准备下一次复制
            targetRow = targetRow + 1
        End If
    Next i
    
    Application.CutCopyMode = False
    Sheets(2).Cells(1, 2).Select
End Sub

关键优化说明 #

• 精准复制单元格：无需拼接范围，直接对Sheet1的A列（Cells(i,1)）和C列（Cells(i,3)）单元格单独复制，分别粘贴到Sheet2的A、B列，完全匹配需求。
• 动态粘贴位置：用targetRow变量跟踪Sheet2的下一个空行，避免数据覆盖。
• 简化操作逻辑：去掉不必要的Activate/Select，直接通过工作表对象访问单元格，代码更稳定高效。

批量处理优化方案（大数据量适用） #

若数据量大，逐行复制效率较低，可使用筛选后批量复制：

Sub BatchCopyColumns()
    Dim search_value As Integer
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    search_value = 1
    Set sourceSheet = ThisWorkbook.Sheets(1)
    Set targetSheet = ThisWorkbook.Sheets(2)
    
    ' 自动筛选Sheet1的A列，筛选值为1的行
    sourceSheet.Range("A1:C100").AutoFilter Field:=1, Criteria1:=search_value
    
    ' 复制筛选后的A列到Sheet2的A列空行
    sourceSheet.Range("A2:A100").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
    ' 复制筛选后的C列到Sheet2的B列空行
    sourceSheet.Range("C2:C100").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=targetSheet.Cells(targetSheet.Rows.Count, 2).End(xlUp).Offset(1, 0)
    
    ' 取消自动筛选
    sourceSheet.AutoFilterMode = False
    Application.CutCopyMode = False
End Sub

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