[已解决]粘贴到有数据的最后一行的下一行

zss7758258

总结答案

1. Sub 新建按钮()
   
2. M = Worksheets("Sheet1").UsedRange.Rows.Count
   
3. Range("A1：J1").Copy
   
4. Range("P" & M + 1).PasteSpecial Paste:=xlPasteValues
   
5. End Sub
   

复制代码