《别怕，Excel VBA其实很简单》_4.7.9_快速合并多表数据_溢出问题

actuarybaobao

《别怕，Excel VBA其实很简单》_4.7.9_快速合并多表数据_溢出问题

IT导给我三万多条数据，大概是因为用03版本excel，存在了6张sheet里，我拿到后，另存为xlsx后，想利用《别怕，Excel VBA其实很简单》_4.7.9里的代码，合并到一张。
下面是代码，由于数据多，我改了数据表容量，即从65536，改成了1048576，如下：

Option Explicit
Sub hebing()
   
    Rows("2:1048576").Clear                                       '删除原有记录
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets                                  '遍历工作薄中所有工作表
        If sht.Name <> ActiveSheet.Name Then
            Set rng = Range("A1048576").End(xlUp).Offset(1, 0)    '获得汇总表A列第一个空单元格
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
            sht.Range("A2").Resize(xrow, 13).Copy rng            '粘贴记录到汇总表
        End If
    Next
End Sub


然后。。。。就一直出错，显示‘溢出’，不知道为什么呀，求高人帮助。

actuarybaobao

研究了一下午，明白了，我自己来回答：
xrow As Integer 写错了
Integer表示的数值范围是：-32,768 到 32,767
改成long就ok了
Long表示的数值范围是：-2,147,483,648 到 2,147,483,647

xu13579

"  sht.Range("A2").Resize(xrow, 13).Copy rng "
可是为什么显示定义错误呀
求高手解释