关于高手帮忙了!看一下附件,为什么不能连续向下粘贴?改宏为选择性粘贴也不行啊。谢谢!的问题
这个宏出现的问题 “格式化脑袋” 已经说了,我也没找到可以直接用一个方法或函数就能完成,只好写了6行判断代码如下,加入你的宏就可以了。
rw = Range(“A65536”).End(xlUp).Row ‘就是这段出现问题。
‘加入代码
For i = rw To 1 Step -1
If Cells(i, 1) “” Then
rw = i
Exit For
End If
Next i
‘加入完毕