Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如何在没有标题的情况下复制筛选的范围并将其粘贴到另一个工作表中?_Vba_Excel_Filter - Fatal编程技术网

Vba 如何在没有标题的情况下复制筛选的范围并将其粘贴到另一个工作表中?

Vba 如何在没有标题的情况下复制筛选的范围并将其粘贴到另一个工作表中?,vba,excel,filter,Vba,Excel,Filter,这是我到目前为止所做的,我想把它粘贴到另一张纸上 Sheets("CDGL Data").Select Range("A1").AutoFilter Field:=32, Criteria1:= _ "*13725*" ActiveSheet.AutoFilter.Range.Copy 我不想复制以A1开头的标题,它不好看,但很有效 With ActiveSheet.AutoFilter.Range .Offset(1, 0).Resize(.r

这是我到目前为止所做的,我想把它粘贴到另一张纸上

    Sheets("CDGL Data").Select
    Range("A1").AutoFilter Field:=32, Criteria1:= _
        "*13725*"
    ActiveSheet.AutoFilter.Range.Copy

我不想复制以A1开头的标题,它不好看,但很有效

With ActiveSheet.AutoFilter.Range
    .Offset(1, 0).Resize(.rows.Count - 1).Copy
End With

它不漂亮,但很有效

With ActiveSheet.AutoFilter.Range
    .Offset(1, 0).Resize(.rows.Count - 1).Copy
End With

如果工作表上有其他数据,我预计这可能会横向移动…如果工作表上有其他数据,我预计这可能会横向移动。。。