vba excel筛选后复制粘贴
时间: 2023-08-23 15:04:38 浏览: 124
在 VBA Excel 中,可以使用以下代码进行筛选后复制粘贴:
```vb
Sub FilterCopyPaste()
Dim ws As Worksheet
Dim filterRange As Range, copyRange As Range, pasteRange As Range
'设置工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
'设置筛选区域
Set filterRange = ws.Range("A1:D10")
'设置复制区域
Set copyRange = ws.Range("A1:D10")
'设置粘贴区域
Set pasteRange = ws.Range("F1")
'筛选数据
filterRange.AutoFilter Field:=1, Criteria1:="Apple"
'复制数据
copyRange.SpecialCells(xlCellTypeVisible).Copy
'粘贴数据
pasteRange.PasteSpecial xlPasteValues
'清除筛选
filterRange.AutoFilter
End Sub
```
上述代码中,我们先设置了工作表、筛选区域、复制区域和粘贴区域。然后使用 `AutoFilter` 方法筛选数据,将筛选结果复制到剪贴板中,最后粘贴到指定的单元格中。最后,我们清除筛选,以便下一次使用。