WPS用VBA宏程序显示运行错误6，溢出

Question

如题，合并表格 代码如下：Option ExplicitSub hbgzb()Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integerflag = FalseFor i = 1 To Sheets.Count If Sheets(i).Name = "合并数据" Then flag = TrueNextIf flag = False ThenSet sh = Worksheets.Addsh.Name = "合并数据"Sheets("合并数据").Move after:=Sheets(Sheets.Count)End IfFor i = 1 To Sheets.CountIf Sheets(i).Name <> "合并数据" Then hrow = Sheets("合并数据").UsedRange.Row hrowc = Sheets("合并数据").UsedRange.Rows.Count If hrowc = 1 Then Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp) Else Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0) End IfEnd IfNext iEnd Sub

Answer 1

你定义的变量hrowc是整形，最大值为32768，如果你的表格已使用的行数超过了这个数就会出现溢出错误，将dim句定义的 hrowc AS Integer 改为 hrowc&，这定义为长整形即可