如何將所有提交的行從一個表複製到另一個表

Question

HI我使用此代碼將表「t1」中的固定範圍複製到表「t2」中的第一個空行。我想選擇在第一列有價值的所有行。例。在這個例子中我想開始於約翰的結束所有的值在44（行2，3，4和5）

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

這裏是我使用的代碼複製。

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

嘗試下面使用AutoFilter方法，允許的情況下，複製的所有行的工作表（「T1」）有與數據行的代碼，但在列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