以下excel的宏代码在选中一整列时即i为1048576运行会报溢出错误请问如何解决该问题Sub 行高加2ApplicationScreenUpdating = FalseDim rh i As Integer 行高加2可自行设置rh = 2For i = 1 To SelectionRowsCount If Not RowsiHidden Then SelectionRowsiRowH

在选中一整列时，即i为1048576时，会报溢出错误。这是因为Integer类型的变量的最大值为32767，超过这个值就会报溢出错误。

解决该问题的方法是将变量i的类型改为Long。Long类型的变量最大值为2147483647，远大于1048576，可以避免溢出错误。修改后的代码如下：

Sub 行高加2() Application.ScreenUpdating = False Dim rh As Integer, i As Long '行高加2,可自行设置 rh = 2 For i = 1 To Selection.Rows.Count If Not Rows(i).Hidden Then Selection.Rows(i).RowHeight = Selection.Rows(i).RowHeight + rh End If Next i Application.ScreenUpdating = True

End Sub

将i的类型从Integer改为Long后，可以正常运行并避免溢出错误。