Sub copy2AnotherWorkbook_by_zzllrr()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sht, r
Set sht = ActiveWorkbook.Sheets("Sheet2")
Call pub_wbOpenOrActive2("D:\123\new.xlsx")
r = Sheets("Sheet1").UsedRange.Rows.count + 1
u = sht.UsedRange.Rows.count
sht.Rows("2:" & sht.UsedRange.Rows.count).Copy
Sheets("Sheet1").Range("A" & (r + 1)).Select
ActiveSheet.Paste
ActiveWorkbook.Close True
ActiveWorkbook.Close True
Workbooks.Close
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024