Müssen gefiltert werden, kopiert gefiltert, fügen Sie auf der zweiten Registerkarte, und löschen Sie die leeren Zeilen jetzt auf der ersten Registerkarte in Excel Vba

Question

Also zuerst muss ich filtern, die ich habe bereits in den folgenden Code. Ich muss dann diese Daten auf die zweite Registerkarte übergehen. Dann muss ich die leeren Zeilen von Seite 1 löschen, so dass beim ungefilteren alles nach oben geht, so dass es keine Leerzeichen dazwischen gibt. Um die Firmeninformationen nicht aufzulisten, listet ich die Filterwerte als "S", "T", "U", "V", "W", "X", "Y", "Z" auf dass ich Firmeninformationen nicht auflisten werde. Ich muß Sheets (Active Brands „) platzieren Zelle A7

Sheets("Active Brands").Select 
    ActiveSheet.Range("$A$6:$O$993").AutoFilter Field:=8, Criteria1:=Array(_ 
     "S","T","U", "V", "W", "X", "Y", "Z"), Operator:=xlFilterValues 

Answer 1

bearbeitet Header Zeile überspringen

Versuchen Sie folgendes:

With Worksheets("sheetNameToFilterAndCopyFrom") 
    With .Range("$A$6:$O$993") 
     .AutoFilter Field:=8, Criteria1:=Array(_ 
    "S","T","U", "V", "W", "X", "Y", "Z"), Operator:=xlFilterValues 
     .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("sheetNameToPasteTo").Range("A7")destination:=Worksheets("sheetNameToPasteTo").Range("A7") 
     .SpecialCells(xlCellTypeVisible).Delete 
    End With 
    .AutoFilterMode=False 
End With 

Hier müssen Sie "sheetNameToFilterAndCopyFrom" und "sheetNameToPasteTo" in Ihre tatsächlichen relevanten Arbeitsblattnamen ändern.

Answer 2

nicht sicher Ihre proble, aber wenn das Problem mit diesem Teil ist“ Dann muß ich die leeren Zeilen von Seite 1 so löschen, dass, wenn ich keine Filterung alles bewegt sich nach oben, so dass es keine Lücken dazwischen geben wird. "

dann verwenden Sie die folgende

Range("d3 or whatever your range is ").SpecialCells(xlCellTypeVisible).Delete 

* xlCellTypeVisible = u hier viele Option nutzen können. Wie xlcelltype Konstante usw. Gerade F1 und sehen Sie die Option