|
VBA 定位最后一行 Sub 入庫(kù)() Sheets(" ").Select Rows("4:40").Select Selection.Copy Sheets("數(shù)據(jù)庫(kù)").Select Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets(" ").Select Rows("42:78").Select Selection.Copy Sheets("數(shù)據(jù)庫(kù)").Select Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets(" ").Select Rows("80:116").Select Selection.Copy Sheets("數(shù)據(jù)庫(kù)").Select Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets(" ").Select Rows("118:154").Select Selection.Copy Sheets("數(shù)據(jù)庫(kù)").Select Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("登記").Select Range("U3").Select End Sub |
|
|
