在vba中过滤，复制并过去没有标题的行

Question

我想复制过滤后的数据并将其粘贴到差异excel文件中。我能够过滤，复制和粘贴行。我面临的唯一问题是它每次都在复制和粘贴标题。请告知如何避免粘贴标题。

If Not ws1.AutoFilterMode Then
    ws1.Range("D1").AutoFilter field:=4, Criteria1:="=Gaus", Criteria2:="=Shaikh", Operator:=xlFilterValues
    RowCount = ws1.Application.WorksheetFunction.Subtotal(2, Range("A2:A1048576"))

Answer 1

这将复制没有标题行的可见单元格。

Dim rSource As Range
Set rSource = Range("A1").CurrentRegion.Offset(1)

rSource.Resize(rSource.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy