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

zss7758258 · 发表于 2014-2-20 10:16

按钮.zip (4.25 KB, 下载次数: 10)

baksy · 发表于 2014-2-20 10:28

本帖最后由 baksy 于 2014-2-20 10:42 编辑

Private Sub 保存()
M = UsedRange.Rows.Count
Range("A1：J1").Copy
Range("P" & M + 1).PasteSpecial Paste:=xlPasteValues
End Sub

zss7758258 · 发表于 2014-2-20 10:34

baksy 发表于 2014-2-20 10:28
Private Sub 保存()
M = UsedRange.Rows.Count
Range("A1：J1").Copy

给附件好吗？谢谢

baksy · 发表于 2014-2-20 10:50

zss7758258 发表于 2014-2-20 10:34
给附件好吗？谢谢

附件已附

zss7758258 · 发表于 2014-2-20 11:00

baksy 发表于 2014-2-20 10:50
附件已附

谢谢！

hetianjun888 · 发表于 2014-2-20 11:37

学习了

zss7758258 · 发表于 2014-3-31 07:48

baksy 发表于 2014-2-20 10:28
Private Sub 保存()
M = UsedRange.Rows.Count
Range("A1：J1").Copy

我为什么我新建一个按钮，粘贴你的代码就不能用了呢？

baksy · 发表于 2014-3-31 08:04

zss7758258 发表于 2014-3-31 07:48
我为什么我新建一个按钮，粘贴你的代码就不能用了呢？

请上传出错附件

zss7758258 · 发表于 2014-3-31 08:31

baksy 发表于 2014-3-31 08:04
请上传出错附件

按钮666.zip (127.52 KB, 下载次数: 8)

baksy · 发表于 2014-3-31 09:06

zss7758258 发表于 2014-3-31 08:31

你的宏复制到模块中
需要给第二句追加指定工作表语句，
变更如下；
M = Worksheets("Sheet1").UsedRange.Rows.Count

		自动登录	找回密码
密码			注册

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

评分