VBA宏运行至32767行卡顿崩溃问题求助

哦，这个问题我太熟了——你碰到的是VBA里Integer类型的经典溢出问题，再加上代码效率拖后腿的双重暴击！咱们一步步来解决：

1. 核心崩溃原因：Integer类型溢出 #

你定义的FGLOHINT As Integer是关键问题！在VBA里，Integer是16位整数，它的最大值就是32767。当你的循环走到第32768行时，这个变量就会溢出，直接导致程序崩溃。

解决方法很简单：把变量类型改成Long（32位整数，最大值能到2147483647，完全覆盖你的137000+行数据）：

Dim FGLOHINT As Long

2. 优化代码效率（彻底解决卡顿） #

你的代码里反复用Select和Activate，这是VBA性能杀手！每次切换工作表、激活单元格都会消耗大量资源，数据量越大越卡。咱们直接操作对象，跳过这些不必要的步骤：

• 提前把工作表赋值给变量，避免重复引用
• 直接读写单元格值，不用激活

3. 改进错误处理（避免隐性问题） #

原来的On Error Resume Next会忽略所有错误，包括VLookup找不到值的情况，这会让你排查问题变得困难。建议用Application.VLookup代替WorksheetFunction.VLookup——前者找不到匹配值时会返回Error 2042，而不是直接抛出错误，咱们可以针对性处理。

修改后的完整代码 #

Sub FGLOH()
    Dim FGLOHINT As Long
    Dim wsCalc As Worksheet
    Dim wsLookup As Worksheet
    Dim lookupRange As Range
    Dim currentValue As Variant
    Dim prevValue As Variant
    
    ' 提前赋值工作表，避免重复引用
    Set wsCalc = ThisWorkbook.Sheets("Calculation of Final LOH")
    Set wsLookup = ThisWorkbook.Sheets("Work Centre LOH Lookup")
    Set lookupRange = wsLookup.Range("A2:M200000")
    
    FGLOHINT = 3
    
    ' 直接循环，不用激活单元格
    Do Until IsEmpty(wsCalc.Range("A" & FGLOHINT).Value)
        currentValue = wsCalc.Range("A" & FGLOHINT).Value
        prevValue = wsCalc.Range("A" & FGLOHINT - 1).Value
        
        If currentValue = prevValue Then
            wsCalc.Range("H" & FGLOHINT).Value = 0
        Else
            ' 用Application.VLookup处理找不到的情况
            Dim vLookupResult As Variant
            vLookupResult = Application.VLookup(currentValue, lookupRange, 13, False)
            
            ' 处理查找结果：找到就赋值，找不到设为空或#N/A
            If IsError(vLookupResult) Then
                wsCalc.Range("H" & FGLOHINT).Value = "" ' 或者改为 CVErr(xlErrNA) 返回#N/A
            Else
                wsCalc.Range("H" & FGLOHINT).Value = vLookupResult
            End If
        End If
        
        FGLOHINT = FGLOHINT + 1
    Loop
End Sub

额外优化建议（可选） #

如果数据量特别大，还可以开启ScreenUpdating = False和Calculation = xlCalculationManual进一步提速，记得在代码结束时恢复：

' 代码开头添加
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

' 代码结束前添加
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

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