字母数字sorting – 粘贴错误 – 大量的数据

我已经发明了一些简单的代码来帮助我在excel工具上分类大量的数据,除了一个小细节破坏了我所有的工作之外,它完美的工作。

我的表是500 +列宽,我的algorithm想复制和粘贴两行(我使用融合细胞,不希望使用替代)。 我的algorithm然后尝试做:

Rows(i & ":" & i + 1).Cut Rows(j & ":" & j + 1).Select Selection.Insert shift:=xlDown 

我和j是行索引(我试图把行j和j + 1正好在行i和i + 1之下

这告诉我,Excel不能处理当前的资源。 我试图用类似的东西减less细胞的数量

 range(cells(i,bc),cells(i+1,ec)).cut range(cells(j,bc),cells(j+1,ec)).select Selection.Insert shift:=xlDown 

BC是我select的第一列,EC是最后一列

但是我仍然有同样的问题(select在500到510列之间,所以围绕1k个单元格)

所以这里是一个问题:

有没有办法绕过这个错误,并强制剪切/粘贴? (我想避免一次改变x列,减慢已经很慢的过程)

或者一种方法来改变行或类似的东西,我不知道?

感谢您的时间和未来的答案。 PEagle

这不是答案,只是作为一个评论太长。

我只是运行下面的代码(每行700个数据列),它剪切>>粘贴就好,没有错误。

 Option Explicit Sub CopyFullTwoRows() Dim i As Long, j As Long ' just for simulation i = 2 j = 10 Rows(i & ":" & i + 1).Cut Rows(j & ":" & j + 1).Insert Shift:=xlDown End Sub 

对不起,我还没有评论特权,所以这里是您的意见/答案的答案:

我的文件大约是6300KB。 对于其他的程序,通常只有outlook和firefox,但是工作中的电脑不是很强大。 关于我的合并单元格flapping,然后sorting,问题是,我需要做sorting,但只在偶数行。

因为这是一个工作文件,我不能在互联网上发送它,但给你一个想法,我有两条线一起工作,列B到F合并(B8 + B9,B10 + B11等,然后C8 + C9等),然后我有两行数据的每一行。 不合并会导致空白单元格popup,然后sorting会混乱整个表格。

对不起,我的问题现在已经过时了。

我把这个文件分开,注意到这个文件,由于我不知道的原因,包括了所有行,直到表单结束(1百万)。 我已经删除了不必要的行(重新创build文件),现在工作正常。

对不起您的时间损失,谢谢你帮助我。 再见。