Question

对于VBA来说还很新。我正在尝试从excel中过滤的行中复制数据，并将其粘贴到同一工作簿中的另一张纸上。应用过滤器的列具有空单元格，并在单元格中填充了用于过滤的数据。由于我不希望复制标题，因此我尝试调整范围的大小，但是由于某些原因，当执行此部分时，代码仅选择1行数据。当我不调整大小时，将标头复制并作为代码（如果是循环的一部分），则在目标TAB中，我最终将标头复制了多次。您能帮我不要复制标题吗？

wb3.Sheets(tTab2).Range("A1:AD1").AutoFilter field:=6, Criteria1:="ORANGE"
wb3.Sheets(tTab2).AutoFilter.Sort.SortFields.Add Key:=Range("H1:H" & lng), 
         SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
wb3.Sheets(tTab2).AutoFilter.Sort.Apply

With wb3.Sheets(tTab2).AutoFilter.Range
   Set rng1 = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        End With

如何在没有标题的情况下复制Autofiler范围

0 个答案: