VBA小白求问一个简单的往下一行粘贴的问题

fionrong · 发表于 2016-7-21 15:37

就是每次选中复制的是固定行，粘贴的时候是粘贴在上次已粘贴过的下一行，以下应该怎么修改？
用OFFSET只能有效一次，但每次刷新应该再往下一行进行粘贴。

Sheets("曲线图").Select
ActiveWindow.SmallScroll Down:=-39
Rows("14:14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

chris201607 · 发表于 2016-7-21 15:51

i=15
do while cells(i,1)<>""
i=i+1
loop
cells(i,1).Select
先把i定位到15行，然后逐行扫描，当扫描到空行的时候跳出循环，这时i指向哪一行就贴在这行里就行了
我这里置顶的是你的第一列都有数据的，如果实际情况不符，把列号改掉就好

fionrong · 发表于 2016-7-21 16:18

chris201607 发表于 2016-7-21 15:51
i=15
do while cells(i,1)""
i=i+1

谢谢谢谢！可以实现！

fionrong · 发表于 2016-7-21 16:18

chris201607 发表于 2016-7-21 15:51
i=15
do while cells(i,1)""
i=i+1

谢谢谢谢！完全可以实现！

xijiagao · 发表于 2018-6-9 14:25

chris201607 发表于 2016-7-21 15:51
i=15
do while cells(i,1)""
i=i+1

你的头像好像我儿子小时候啊

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

[已解决] VBA小白求问一个简单的往下一行粘贴的问题