数据合并后不全，不知何因，谢谢！（已解决）

rjtang

我在坛中找一个合并数据的代码，运行后不知是何因，银行存款的数据复制不全，请各位老师帮看一看，错在哪里，谢谢！附件密码：123   
代码如下：


Sub test()
    Dim sh As Worksheet
    Range("a7:m65536").Delete
    For Each sh In Worksheets
        If sh.Name <> "数据库" Then
            sh.Range("a7:M" & sh.[M65536].End(3).Row).Copy [a65536].End(3).Offset(1, 0)
        End If
    Next
End Sub
公核201307.part2.rar (961.84 KB, 下载次数: 19)

2013-9-3 19:11 上传

点击文件名下载附件

公核201307.part1.rar (1.31 MB, 下载次数: 41)

2013-9-3 19:10 上传

点击文件名下载附件

dajiahaoxinku12

Sub test()
    Dim sh As Worksheet
    Range("a7:m65536").Delete
    For Each sh In Worksheets
        If sh.Name <> "数据库" Then
            sh.Range("a7:M" & sh.[a65536].End(3).Row).Copy [a65536].End(3).Offset(1, 0)
        End If
    Next
End Sub

rjtang

dajiahaoxinku12 发表于 2013-9-3 19:50
Sub test()
    Dim sh As Worksheet
    Range("a7:m65536").Delete

谢谢关注，主要是银行存款复制不全，只复制 两行，错在哪里不清楚，

rjtang

dajiahaoxinku12 发表于 2013-9-3 19:50
Sub test()
    Dim sh As Worksheet
    Range("a7:m65536").Delete

已查出原因是银行存款最后一行一列数据不能为空，否则复制不过来，为什么要这样，搞不懂，不管怎样，找出原因就行，谢谢！

dajiahaoxinku12

sh.Range("a7:M" & sh.[M65536].End(3).Row)  就这句里的 sh.[M65536].End(3).Row 决定了要复制的区域

rjtang

rjtang 发表于 2013-9-3 20:15
谢谢关注，主要是银行存款复制不全，只复制 两行，错在哪里不清楚，

我没注意到改过的内容，自己还在查原因，将银行存款最后一行一列加上数据，就复制过来了，但没有改过的方便，谢谢！