第一版4.7.9 快速合并多表数据不能正确执行

YUDIBO

这一行不能运行：xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 ，提示运行错误1004，请问是怎么回事？

abc123281

需要上传附件来查看  才知道错误原因

YUDIBO

附件在这里，也是配套光盘上的原表。

abc123281

Sub hebing()
    Worksheets("成绩表").Activate
    Rows("2:65536").Clear                                       '删除原有记录
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets                                  '遍历工作薄中所有工作表
        If sht.Name <> "成绩表" And sht.Name <> "版权声明" Then
            Set rng = Range("A65536").End(xlUp).Offset(1, 0)    '获得汇总表A列第一个空单元格
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
            sht.Range("A2").Resize(xrow, 7).Copy rng            '粘贴记录到汇总表
        End If
    Next
    MsgBox "OK!", 64
End Sub

YUDIBO

abc123281 发表于 2019-10-18 19:42
Sub hebing()
    Worksheets("成绩表").Activate
    Rows("2:65536").Clear                           ...

已经可以通过了！谢谢！