首先，Type 13错误本质是变量类型不匹配，结合你的代码和需求（搜索含特殊字符的批注），我梳理了几个核心问题和修复方案：

主要错误根源 #

• 未声明的变量：你注释掉了Dim Comments_Column_Value As String，但后续代码仍在使用这个变量，VBA会默认把它当作变体类型，这很容易引发类型不匹配。
• 对象未初始化：matchcomment变量只注释了赋值语句，导致这个工作表对象未被正确设置，后续调用matchcomment.Range会触发错误。
• 依赖激活/选择操作：大量使用.Activate和.Select不仅不稳定，还可能导致ActiveSheet切换时的对象引用错误，进而引发类型不匹配。
• 特殊字符的通配符冲突：如果你的批注包含*、?、~这类通配符，Find方法会将它们当作匹配规则而非普通字符处理，导致搜索失败或异常。
• 未限定工作表的Cells引用：Split(Cells(, Column).Address, "$")(1)中的Cells没有指定所属工作表，默认指向ActiveSheet，可能和你预期的comment工作表不一致。

修正后的代码 #

Option Explicit
Sub Match_ProjCode()
    Dim CSAT_Comments As Workbook
    Dim commentWs As Worksheet ' 重命名变量避免和内置Comment对象冲突
    Dim matchCommentWs As Worksheet
    Dim commentString As String
    Dim targetCol As Integer
    Dim targetRow As Integer
    Dim matchRow As Integer
    Dim commentsColumnName As String
    Dim commentsColumnValue As String ' 恢复变量声明
    Dim commentsProjCode As String
    Dim searchRange As Range
    Dim foundCell As Range
    Dim rng As Range
    
    ' 初始化工作簿和工作表对象（取消注释并确保表名正确）
    Set CSAT_Comments = ActiveWorkbook
    Set commentWs = CSAT_Comments.Worksheets("Qualitative Analysis_2018 Cycle")
    Set matchCommentWs = CSAT_Comments.Worksheets("Consolidated Comments")
    
    ' 定义搜索范围：从A2到最后一行，避免使用Select
    With matchCommentWs
        Set searchRange = .Range("A2", .Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each rng In searchRange
        ' 处理空单元格，避免类型错误
        If Not IsEmpty(rng.Value) Then
            commentString = CStr(rng.Value) ' 强制转换为字符串，避免数值转字符串的类型问题
            matchRow = rng.Row
            
            ' 处理特殊字符：转义通配符（*、?、~）
            commentString = Replace(Replace(Replace(commentString, "~", "~~"), "*", "~*"), "?", "~?")
            
            ' 在commentWs的AK:BL列搜索，直接操作对象，不使用Activate/Select
            Set foundCell = commentWs.Columns("AK:BL").Find( _
                What:=commentString, _
                LookIn:=xlValues, ' 搜索单元格值而非公式，更符合批注文本的存储场景
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                MatchCase:=False, _
                SearchFormat:=False)
            
            If Not foundCell Is Nothing Then
                targetCol = foundCell.Column
                targetRow = foundCell.Row
                
                ' 限定Cells属于commentWs，避免ActiveSheet干扰
                commentsColumnName = Split(commentWs.Cells(, targetCol).Address, "$")(1)
                commentsColumnValue = commentWs.Range(commentsColumnName & "1").Value
                commentsProjCode = commentWs.Range("A" & targetRow).Value
                
                ' 直接写入目标工作表，无需激活
                matchCommentWs.Range("C" & matchRow).Value = commentsColumnValue
                matchCommentWs.Range("D" & matchRow).Value = commentsProjCode
            End If
        End If
    Next rng
End Sub

关键修改说明 #

1. 变量命名与声明：
   • 把comment重命名为commentWs，避免和VBA内置的Comment对象冲突
   • 恢复commentsColumnValue的字符串类型声明，确保类型一致
2. 对象初始化：
   • 取消matchCommentWs的赋值注释，确保工作表对象被正确设置
3. 避免激活/选择：
   • 直接通过工作表对象引用范围，彻底移除.Activate和.Select，提升代码稳定性
4. 特殊字符处理：
   • 对*、?、~进行转义（在前面加~），让Find方法将它们当作普通字符搜索
5. 类型安全：
   • 用CStr()强制将单元格值转为字符串，避免数值型内容赋值给字符串变量时的类型不匹配
   • 增加空单元格判断，跳过空值避免错误
6. 工作表限定：
   • 所有Cells和Range操作都明确指定所属工作表，避免ActiveSheet切换导致的引用错误

额外调试建议 #

如果仍然出现Type 13错误，可以按以下步骤排查：

• 在代码开头添加On Error Resume Next，然后在错误处用Debug.Print Err.Number, Err.Description查看具体错误位置
• 检查commentWs.Columns("AK:BL")范围内是否存在非文本类型的单元格（比如错误值#N/A），这类值无法被转为字符串，会触发类型不匹配

内容的提问来源于stack exchange，提问作者Karthik P B