请问这个代码怎么写？

味香源美食坊

向老师指教： 点击上边登记按钮，把 登记表格 数据保存到 进货明细 工作表去，
请问VBA代码怎么写，有大神帮帮我好吗？

不知道为什么

参考

1. Private Sub CommandButton1_Click()
   
2.     Dim r%, mr%
   
3.     With Sheets("进货登记")
   
4.         r = .Cells(.Rows.Count, 3).End(3).Row
   
5.         arr = .Range("c5:k" & r)
   
6.     End With
   
7.     With Sheets("进货明细")
   
8.         mr = .Cells(.Rows.Count, 1).End(3).Row + 1
   
9.         .Cells(mr, 1).Resize(UBound(arr), 1) = Sheets("进货登记").[g3]
   
10.         .Cells(mr, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
    
11.     End With
    
12. End Sub

复制代码

味香源美食坊

不知道为什么 发表于 2018-9-17 16:26
参考

谢谢老师，我试一下。

liujialin0o0

Sub tt()

Dim i%
Application.ScreenUpdating = False
Application.CutCopyMode = False

i = Cells(Rows.Count, 3).End(3).Row

Range([c5], Cells(i, "K")).Copy
Sheets("进货明细").Activate
Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(i - 4, 1) = Format(Date, "yyyy/mm/dd")

Cells(Rows.Count, 2).End(3).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("进货登记").Activate

Application.ScreenUpdating = True
Application.CutCopyMode = True

End Sub