Question

VB6.0分别复制同一excel工作簿中两张工作表中的一列到最后一列，其中一个没问题，但是另一个格式出错。。

复制语句为：
xlbook.Worksheets(i).Range("A" & r & ":" & ss & r).Copy
粘贴语句为：
xlbook.Worksheets(i).Range("A" & r & ":" & ss & r).PasteSpecial xlPasteAll
其中："A" & r & ":" & ss & r 为需要复制的一行，更改了r值后，将其粘贴到最后一行
结果为：（最后一行为复制的结果，第一个正确且格式完整）

但是第二个却出现错误

跪求解决方案





Answer 1

你粘贴是全部粘贴，你复制加目标destination就可以。为什么还要用一次选择性粘贴。