So kopieren Sie alle abgelegten Zeilen von einer Tabelle in eine andere

Question

HI Ich verwende diesen Code, um einen festen Bereich von Blatt "t1" in die erste leere Zeile in Blatt "t2" zu kopieren. Ich möchte alle Zeilen auswählen, die in der ersten Spalte einen Wert haben. Beispiel. Im Beispiel würde Ich mag alle Werte kopieren an john Ich bin mit einem Ende bei 44 (Zeilen 2, 3, 4 und 5)

1 Name address zip 
2 john aaa 11 
3 jane bbb 22 
4 carl ccc 33 
5 jeff   44 

Hier ist der Code zu starten.

Sub Botão1_Clique() 

Application.ScreenUpdating = False 
Dim copySheet As Worksheet 
Dim pasteSheet As Worksheet 

Set copySheet = Worksheets("t1") 
Set pasteSheet = Worksheets("t2") 
copySheet.Range("A3:E3").Copy 


pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 
Application.CutCopyMode = False 
Application.ScreenUpdating = True 



End Sub 

Answer 1

den Code Versuchen Sie, die AutoFilter Methode unter Verwendung, Kopieren aller Zeilen in Arbeitsblatt („t1“) bei, damit es Zeilen mit Daten, aber in Spalte A

Option Explicit 

Sub Botão1_Clique() 

Application.ScreenUpdating = False 

Dim copySheet As Worksheet 
Dim pasteSheet As Worksheet 
Dim Rng As Range 

Set copySheet = Worksheets("t1") 
Set pasteSheet = Worksheets("t2") 

copySheet.UsedRange.AutoFilter 
copySheet.UsedRange.AutoFilter Field:=1, Criteria1:="<>" ' <-- sut autofilter to exclude blanks on column A 

Set Rng = Intersect(copySheet.UsedRange.Offset(1), copySheet.UsedRange.SpecialCells(xlCellTypeVisible)) ' <-- set range to only visible rows without the header row 

Rng.Copy 
pasteSheet.Range("A" & pasteSheet.Cells(pasteSheet.Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues ' <-- paste values to first empty row at "t2" worksheet 

Application.CutCopyMode = False 
Application.ScreenUpdating = True 

End Sub