[已解决]关于Copy后不能自动下一行

luowangxx

工作簿1.rar (51.72 KB, 下载次数: 4)

2015-4-22 11:05 上传

点击文件名下载附件

两个问题，copy 后不能自动向下一行，Range("X65536") 行业也会乱，请大侠帮忙看看！

最佳答案

月排行榜 / 总排行榜

as0810114

2015-4-22 11:34

把表清除掉，代码就可以执行了

跳转到最佳答案楼层

as0810114

你定义了表吧，Range("B65536").End(xlUp)这个就读到你表里面最后一行了

as0810114

把表清除掉，代码就可以执行了

luowangxx

as0810114 发表于 2015-4-22 11:34
把表清除掉，代码就可以执行了

附件下载损坏了，打不开

as0810114

luowangxx 发表于 2015-4-22 12:07
附件下载损坏了，打不开

再试试吧，或者你选中表，设计里面转成普通区域

luowangxx

as0810114 发表于 2015-4-22 12:11
再试试吧，或者你选中表，设计里面转成普通区域

是我下载下来，解压不了

luowangxx

as0810114 发表于 2015-4-22 12:11
再试试吧，或者你选中表，设计里面转成普通区域

谢谢！看明白了！

luowangxx

as0810114 发表于 2015-4-22 12:11
再试试吧，或者你选中表，设计里面转成普通区域

改成普通区域后还是有个问题，第二次增加后，copy的行数不是一整行，会往上一空白单元格填充

luowangxx

as0810114 发表于 2015-4-22 11:34
把表清除掉，代码就可以执行了

能否将修改的代码发给我一下，因为附件下载后不能解压！

luowangxx

as0810114 发表于 2015-4-22 12:11
再试试吧，或者你选中表，设计里面转成普通区域

我现在找不出原因，能否帮忙优化一下代码。因为是复制多行多单元格，如第一次复制后中间有单元格是空白，第二次复制后会直填充到上一个行的空白单元格里。

Sub 合同录入()
    Sheets("合同录入").Range("B2:L2").Copy Sheets("合同录入").Range("B65536").End(xlUp).Offset(1, 0)
    Sheets("合同录入").Range("B5:L5").Copy Sheets("合同录入").Range("M65536").End(xlUp).Offset(1, 0)
    Sheets("合同录入").Range("D8:G8").Copy Sheets("合同录入").Range("X65536").End(xlUp).Offset(1, 0)
    Sheets("合同录入").Range("B2:L2").ClearContents
    Sheets("合同录入").Range("B5:L5").ClearContents
    Sheets("合同录入").Range("D8:G8").ClearContents
End Sub