菜鸟学习中，求助呆瓜问题

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.15
   
2.     arr = Sheets("表格填在这里").[b1:b3]
   
3.     With Sheets("记录在这里")
   
4.         r = .Cells(Rows.Count, 1).End(3).Offset(1).Row
   
5.         .Cells(r, 1).Resize(, 3) = Application.Transpose(arr)
   
6.     End With
   
7.     Sheets("表格填在这里").[b1:b3] = ""
   
8.     MsgBox "此条记录已保存！"
   
9. End Sub
   

复制代码

saghj