需要功能齐全的Excel VBA代码按钮的帮助

由 发布于

新手在这里 有没有办法解决我的Excel VBA代码？我尝试了很多次，但找不到任何解决方案来制作功能齐全的按钮

Here my code and files in bottom. i try to make this https://i.imgur.com/TY6Ab2l.png

谢谢

Sub AddText2()
Dim Lrow As Single

With Worksheets("Sheet2")
    Lrow = .Range("F" & Rows.Count).End(xlUp).Row + 1
    .Range("F" & Lrow & ":G" & Lrow) = .Range("D2:D4").Value
    .Range("D2:D4").Value = ""
End With

End Sub

My Files https://drive.google.com/open?id=17rNpoDjZC0zxcq2QPzP9HJ52OztNao9iPXzfrVrv3_4