求助,复制粘贴不全
vba吧
全部回复
仅看楼主
level 8
我写过一套excel VBA模块,之前已经正常用了几个月。但今天突然出错了,查找之后,发现是开头在一个很简单的复制功能上出错了。但是现象百思不得其解
如图,我将一个sheet(a)的全部内容复制粘贴到另一个sheet(b)。
但是,比如a的内容一共有20万行,实际沾到b之后,只有1万多行,最后一行被隐藏。
最奇怪的是,我试了很多次,每次成功粘贴的行数是不一样的,有时一万一千行,有时一万四千行,但每次最后一行都隐藏了。
元数据没有变化,每次试验都重新调整sheet,绝对没有空格子和隐藏格子,也没有其他隐藏的图片等对象,但是结果就没有规律,搞得很奇怪,难道是电脑问题。
求助大神解答。
2021年08月27日 03点08分 1
level 4
试试:
Sheets("A").Cells.Copy Sheets("B").Range("A1")
2021年08月27日 04点08分 2
我搞清楚了,是电脑自己的问题
2021年08月27日 05点08分
请教,excel文件已经手动打开了,如何读取表格里的数据。
2021年08月28日 03点08分
level 8
好吧,我搞清楚了,是电脑的问题,可能是要复制的东西太多,把虚拟内存调高就正常了[喝酒]
2021年08月27日 05点08分 3
Sheets("A").Cells.Copy Sheets("B").Range("A1") 这种方法可以用不粘贴板,建议你改成以上方法。
2021年08月27日 06点08分
请教,excel文件已经手动打开了,如何读取表格里的数据。
2021年08月28日 03点08分
@无我众生相 这要看你是全部取,还是带条件取。 数据量小的话可以学学Power Query
2021年08月30日 03点08分
level 11
这么大量的数据内存不够是肯定会的,分开来逐行或者逐个数据复制就可以解决了,只是分开复制的时间估计要长很多。
2021年08月28日 07点08分 4
1