Excel VBA筛选单元格复制问题：代码无法复制任何内容

核心问题分析 #

你的代码未复制内容，大概率是以下原因导致：

• 筛选逻辑完全搞反：你要排除"DS"和"DS De-scoped"，但当前代码是只保留这两个值的行。如果数据里这两类行本来就没有或数量极少，自然复制不到内容。
• 筛选范围参数错误：ws.Range("M1").AutoFilter Field:=1 中，Field:=1 是相对于你指定的筛选区域（仅M1单元格）的列号，而非整个数据表的列号。若你的数据是从A1开始的完整表格，应该基于整个数据区域设置筛选，Field对应M列在数据表中的位置（第13列）。
• 无可见单元格时未做错误处理：如果筛选后没有符合条件的行，SpecialCells(xlCellTypeVisible) 会直接报错，导致复制步骤被跳过。
• 数据行号计算不准确：仅用A列最后一行判断数据范围，若A列有空白行或M列数据更长，会导致筛选范围不完整。

修复后的代码 #

以下是修正了上述问题的代码，同时增加了工作表存在性检查和错误处理：

' 设置原始工作表
Set ws = ThisWorkbook.Sheets("Clustered Info")

' 查找数据区域最后一行（遍历所有列取最大行号，避免A列空白导致的错误）
Dim ultimaRiga As Long
ultimaRiga = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

' 检查目标工作表是否已存在，避免重复创建
On Error Resume Next
Set wsCopy = ThisWorkbook.Sheets("Clustered Info to Upload")
On Error GoTo 0
If wsCopy Is Nothing Then
    Set wsCopy = Sheets.Add(After:=Sheets(Sheets.Count))
    wsCopy.Name = "Clustered Info to Upload"
Else
    ' 清空已有内容，避免重复数据
    wsCopy.Cells.Clear
End If

' 先取消原有筛选，避免干扰
ws.AutoFilterMode = False

' 对整个数据区域设置筛选：排除M列的"DS"和"DS De-scoped"
ws.Range("A1:M" & ultimaRiga).AutoFilter Field:=13, _
    Criteria1:="<>DS", _
    Operator:=xlAnd, _
    Criteria2:="<>DS De-scoped"

' 复制可见区域，增加错误处理避免无数据时崩溃
On Error Resume Next
ws.Range("A1:L" & ultimaRiga).SpecialCells(xlCellTypeVisible).Copy Destination:=wsCopy.Range("A1")
On Error GoTo 0

' 取消筛选
ws.AutoFilterMode = False

多条件排除补充方案 #

如果需要排除的类别超过2个，AutoFilter的Criteria参数最多支持2个条件，这时建议使用高级筛选，更适合多条件排除场景：

' 高级筛选版本（支持多条件排除）
ws.AutoFilterMode = False

' 在临时区域创建筛选条件（标题需与数据列标题一致）
ws.Range("Z1").Value = ws.Range("M1").Value
ws.Range("Z2").Value = "<>DS"
ws.Range("Z3").Value = "<>DS De-scoped"
' 可继续添加更多排除条件到Z4、Z5等单元格

' 执行高级筛选，直接复制到目标工作表
ws.Range("A1:M" & ultimaRiga).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=ws.Range("Z1:Z3"), _
    CopyToRange:=wsCopy.Range("A1"), _
    Unique:=False

' 清除临时条件区域
ws.Range("Z1:Z3").ClearContents

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