遇Application Defined/User Defined Error：VBA Error 1004问题排查求助

云原生阿岚

2026-5-6

排查VBA中Index+Match触发Error 1004的思路

Error 1004确实是VBA里用WorksheetFunction组合时的常客，结合你的代码和需求，我整理了几个实用的排查方向，帮你定位问题：

未限定Range的父工作表（最常见的坑）
你的代码里Sheet7.Range(Cells(47, Count_2 -1), Cells(904, Count_2 - 1))中的Cells没有指定父工作表，默认会引用当前激活的工作表。如果运行代码时激活的不是Sheet7，就会出现跨工作表引用的错误，直接触发1004。
修正方法：给所有Cells加上工作表限定：
```
Sheet7.Range(Sheet7.Cells(47, Count_2 -1), Sheet7.Cells(904, Count_2 - 1))
```

Match找不到匹配项时直接抛出错误
WorksheetFunction.Match在找不到匹配值时会直接抛出运行时错误（就是你遇到的1004），而不会像Excel工作表函数那样返回#N/A。改用Application.Match可以避免这个问题——它找不到匹配时会返回Error 2042，你可以用IsError捕获这个情况，防止代码崩溃：

Dim matchResult As Variant
matchResult = Application.Match(Sheet8.Cells(Count_1, 1).Value, Sheet7.Range("A47:A904"), 0)
If Not IsError(matchResult) Then
    Sheet8.Cells(Count_1, Count_2) = Application.Index(Sheet7.Range(Sheet7.Cells(47, Count_2 -1), Sheet7.Cells(904, Count_2 - 1)), matchResult)
Else
    ' 处理无匹配的情况，比如赋值为空或提示文本
    Sheet8.Cells(Count_1, Count_2) = ""
End If

工作表保护的细节问题
你提到已经解锁了工作表，但要确认：是不是解锁了Sheet8中所有需要写入的单元格？或者有没有可能代码运行时Sheet8仍处于保护状态？可以在循环前后临时取消/恢复保护：
```
Sheet8.Unprotect Password:="你的密码" ' 无密码则省略参数
' 你的循环代码
Sheet8.Protect Password:="你的密码"
```
变量声明与类型问题
确保你已经显式声明了Count_1、Count_2等变量（比如用Dim Count_1 As Long），并在模块开头加上Option Explicit——这能强制变量声明，提前发现未声明的变量错误，避免变体类型带来的潜在问题。
单元格值的格式不匹配
如果Sheet8中A列的唯一标识符是文本格式，而Sheet7的A列是数字格式（或者反过来），Match会找不到匹配项。可以用CStr()或CLng()统一格式，比如：
```
matchResult = Application.Match(CStr(Sheet8.Cells(Count_1, 1).Value), Sheet7.Range("A47:A904"), 0)
```

另外，你用Sheet1.Range("D1") = 2定位崩溃位置的思路很好，可以把调试输出细化，比如每次循环时更新D1为当前的Count_2值，这样就能精准定位是哪一列触发的错误，缩小排查范围。

最后，给你整理了修正后的完整代码，整合了上面的优化点：

Option Explicit

Sub GetMatchedValues()
    Dim Count_1 As Long, Count_2 As Long
    Dim matchResult As Variant
    Dim targetSheet As Worksheet, sourceSheet As Worksheet
    
    ' 提前绑定工作表，代码更清晰且不易出错
    Set targetSheet = Sheet8
    Set sourceSheet = Sheet7
    
    ' 临时取消Sheet8保护（如果有设置密码，添加Password参数）
    targetSheet.Unprotect
    
    For Count_1 = 2 To 51
        For Count_2 = 4 To 44
            ' 调试输出当前循环的列号，方便定位问题
            Sheet1.Range("D1") = Count_2
            
            ' 获取匹配结果
            matchResult = Application.Match(targetSheet.Cells(Count_1, 1).Value, sourceSheet.Range("A47:A904"), 0)
            
            ' 根据匹配结果赋值
            If Not IsError(matchResult) Then
                targetSheet.Cells(Count_1, Count_2) = Application.Index( _
                    sourceSheet.Range(sourceSheet.Cells(47, Count_2 - 1), sourceSheet.Cells(904, Count_2 - 1)), _
                    matchResult _
                )
            Else
                targetSheet.Cells(Count_1, Count_2) = "无匹配" ' 可改为""空值
            End If
        Next Count_2
    Next Count_1
    
    ' 恢复Sheet8保护
    targetSheet.Protect
End Sub

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