新手求助：VBA代码执行时出现Overflow（溢出）错误

嘿，作为VBA新手碰到溢出错误太正常了，我来帮你拆解问题出在哪，以及怎么搞定它～

首先，咱们先搞清楚Overflow错误为啥会出现：在你的代码里，最大的问题是没给变量total指定合适的数据类型。VBA默认会把未声明的变量当成Variant类型，但当你累加整数的时候，它会默认用Integer（最大只能存32767）来处理，一旦累加的总数超过这个数值，直接就触发溢出错误了。

接下来给你几个针对性的解决方案，以及优化后的代码：

1. 显式声明变量类型（核心修复） #

养成声明变量的习惯，给total指定一个更大范围的数值类型，比如Double（能处理超大的整数和小数）或者Long（适用于大整数）。同时一定要加上Option Explicit，强制所有变量都得声明，能帮你避免很多拼写错误导致的奇怪问题。

2. 处理非数值单元格的情况 #

如果工作表的第三列（你要累加的列）里有文本内容，直接累加也会出错，所以最好先判断单元格是不是数值类型再进行计算。

3. 优化循环范围（可选但更灵活） #

你现在固定循环2到13行，如果某张表的实际数据行数少于13，会遍历空单元格；如果多于13，又会漏掉数据。可以改成动态获取最后一行，让代码更通用。

优化后的完整代码 #

Option Explicit ' 强制变量声明，避免低级错误

Sub CalculateEmployeeTotal()
    Dim total As Double ' 用Double处理大范围数值，彻底避免溢出
    Dim employee As String
    Dim sheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    total = 0
    employee = InputBox("Enter the employee Name")
    
    For Each sheet In Worksheets
        ' 动态获取当前工作表中B列最后一行有数据的行号
        lastRow = sheet.Cells(sheet.Rows.Count, 2).End(xlUp).Row
        
        ' 只在有数据的情况下循环（避免空表报错）
        If lastRow >= 2 Then
            For i = 2 To lastRow
                ' 先匹配员工名，再确认要累加的单元格是数值
                If sheet.Cells(i, 2).Value = employee And IsNumeric(sheet.Cells(i, 3).Value) Then
                    ' 转换为Double类型再累加，确保类型一致
                    total = total + CDbl(sheet.Cells(i, 3).Value)
                End If
            Next i
        End If
    Next sheet
    
    ' 弹出结果，让你直观看到计算总和
    MsgBox "Total for " & employee & " is: " & Format(total, "#,##0.00")
End Sub

代码修改点说明 #

• Option Explicit：强制所有变量必须声明，杜绝因为变量名拼错导致的隐性错误。
• total As Double：Double类型的数值范围极大，完全覆盖日常的累加需求，再也不会出现溢出。
• 动态获取lastRow：根据B列的实际数据行数来循环，不用固定写死13，适配不同工作表的数据量。
• IsNumeric判断：确保要累加的单元格是有效数值，避免文本内容导致的计算错误。
• CDbl转换：把单元格内容明确转为Double类型，保证累加时类型统一，减少潜在问题。
• 最后用MsgBox输出结果：不用自己去看变量值，直接弹窗展示总和，更方便。

最后再提个小建议：作为VBA新手，一定要养成声明变量的习惯，Option Explicit是个神器，它能帮你提前发现很多自己注意不到的小错误，大大减少调试时间～

内容的提问来源于stack exchange，提问作者Arjun Rathod