Excel VBA使用AutoFilter筛选后仅复制C、D指定列的实现问题

修正后的VBA代码 #

你原有代码的问题是直接复制了整个筛选区域的所有列，只需要将复制范围限定为C、D列的可见单元格即可，修改后代码如下：

Dim ob As Range
' 定义原数据区域
Set ob = Worksheets("ob").Range("A3:E27")

' 你原有筛选A列的逻辑保留在这里即可，无需修改

' 仅复制筛选后C、D列的可见单元格
ob.Offset(1).Resize(ob.Rows.Count - 1, 2).Offset(0, 2).SpecialCells(xlCellTypeVisible).Copy

With Sheet3.Range("A9")
    .PasteSpecial Paste:=8 ' 粘贴列宽
    .PasteSpecial xlPasteValues ' 粘贴值
    .PasteSpecial xlPasteFormats ' 粘贴格式
    Application.CutCopyMode = False
    .Select
End With
' 关闭筛选
ob.Parent.AutoFilterMode = False

代码说明 #

• 用Offset(0,2)把选取范围从A列开头偏移2列，定位到C列
• 用Resize(,2)限定只选取2列，对应C、D两列
• 用SpecialCells(xlCellTypeVisible)只选中筛选后的可见行，排除被过滤掉的隐藏行

如果需要避免筛选后无匹配数据时报错，可以在复制前加一层判断：

If ob.Parent.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
    ' 把上面的复制粘贴逻辑放在这个判断内即可
End If

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