VBA按单元格条件筛选复制指定列数据到新工作表

你的筛选复制模块失效是两个逻辑错误导致的：

1. 判断条件完全不成立：你遍历的是D、H两列的所有独立单元格，却要求单个单元格的值同时等于"HS"和"China"，这个条件永远不可能满足，自然匹配不到任何数据。
2. 复制对象错误：就算判断命中，你复制的也只是D/H列的单个单元格，根本不是需求里要求提取的十多列指定字段，粘贴位置也不对。

你后来改的逐列写单元格赋值的方案确实能跑，但代码冗余度太高，十几列要写十几行赋值语句，后续调整提取字段的时候改起来很麻烦，完全可以用更简洁的方式实现。

Option Explicit
Sub GenerateHSReport()
    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim destRow As Long, lastRow As Long, i As Long
    Dim reportName As String
    
    ' 关闭Excel非必要功能提速
    With Application
        .ScreenUpdating = False
        .DisplayStatusBar = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    ' 预定义报表名称，避免重复拼接字符串导致的工作表匹配错误
    reportName = "HS Report " & Format(Date, "DD-MM-YY")
    Set shtSrc = Sheets("SANBI - all bids")
    Sheets.Add(Count:=1).Name = reportName
    Set shtDest = Sheets(reportName)
    
    ' 复制标题行，弃用Select/Activate的冗余操作，直接指定粘贴目标
    shtSrc.Range("A4:C4,E4,F4,G4,I4,Q4,R4,AF4:AH4,AN4,AP4,AQ4").Copy _
        Destination:=shtDest.Range("A1")
    
    destRow = 2
    ' 定位源表已用区域最后一行，避免遍历整列空单元格浪费性能
    lastRow = shtSrc.UsedRange.Rows(shtSrc.UsedRange.Rows.Count).Row
    
    ' 逐行校验条件：D列值为"China" 且 H列值为"HS"
    For i = 5 To lastRow
        If shtSrc.Cells(i, "D").Value = "China" And shtSrc.Cells(i, "H").Value = "HS" Then
            ' 一次性复制该行所有需要提取的列，直接粘贴到目标表对应行
            shtSrc.Range("A" & i & ":C" & i & ",E" & i & ",F" & i & ",G" & i & ",I" & i & _
                         ",Q" & i & ",R" & i & ",AF" & i & ":AH" & i & ",AN" & i & ",AP" & i & ",AQ" & i).Copy _
                Destination:=shtDest.Cells(destRow, 1)
            destRow = destRow + 1
        End If
    Next i
    
    ' 恢复Excel默认设置
    With Application
        .ScreenUpdating = True
        .DisplayStatusBar = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    Application.CutCopyMode = False
End Sub

• 移除了所有Activate、Select类的冗余操作，这类操作不仅拖慢运行速度，还很容易因为工作表激活状态异常导致报错
• 把原来遍历D/H列单元格的逻辑，改成按行号逐行校验两个目标列的值，从逻辑上避免了“单个单元格匹配两个值”的低级错误
• 不需要逐列手写赋值语句，直接构造对应行的多区域范围一次性复制，代码更简洁，后续要增减提取列的时候只需要修改Range里的列定义即可
• 提前把报表名称存储为变量，避免多次拼接日期字符串时出现格式不一致、找不到目标工作表的问题
• 遍历范围只覆盖源表已用区域的有效行，不会遍历整列上百万个空单元格，数据量大的时候运行速度提升非常明显

内容的提问来源于stack exchange，提问作者Joe M Mackenzie