Excel VBA：按Sheet12单元格E6值跨表复制行时遇Error 438错误

错误原因分析 #

Error 438触发的核心原因通常包括：

• 直接引用Range对象而非其值，导致VBA隐式类型转换失败
• 工作表名称拼写错误或对象引用逻辑不当
• 变量声明不规范引发的隐式类型冲突

修正后的完整代码 #

Sub CopyGRPData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim wsCriteria As Worksheet
    Dim lRow As Long, cRow As Long, j As Long
    Dim criteriaValue As Variant
    
    ' 绑定工作表对象，减少重复引用并避免名称错误
    Set wsSource = ThisWorkbook.Sheets("Group Related Processes")
    Set wsTarget = ThisWorkbook.Sheets("Processing Activities")
    Set wsCriteria = ThisWorkbook.Sheets("Sheet12")
    
    ' 提前获取条件单元格的值
    criteriaValue = wsCriteria.Range("E6").Value
    
    ' 获取源数据区域最后一行
    lRow = wsSource.Range("A500").End(xlUp).Row
    
    ' 从下往上遍历，避免复制行导致的索引错位
    For j = lRow To 1 Step -1
        ' 显式比较单元格值，避免对象引用错误
        If wsSource.Range("C" & j).Value = criteriaValue Then
            ' 获取目标表最后一行位置
            cRow = wsTarget.Range("A500").End(xlUp).Row
            ' 复制整行到目标表的下一行
            wsSource.Rows(j).Copy Destination:=wsTarget.Range("A" & cRow + 1)
        End If
    Next j
End Sub

关键修正点 #

• 显式调用Value属性：直接使用Range.Value获取单元格内容进行比较，避免VBA隐式转换Range对象时触发438错误
• 工作表对象绑定：将常用工作表赋值给变量，减少重复的Sheets()调用，同时降低名称拼写错误概率
• 规范变量声明：所有变量均显式声明类型，避免Variant类型带来的潜在逻辑问题
• 使用ThisWorkbook：明确引用当前工作簿，避免ActiveWorkbook切换引发的对象引用混乱

额外检查项 #

1. 确认Sheet12是工作表的显示名称（而非VBA编辑器中的CodeName），若使用CodeName可直接写Sheet12.Range("E6").Value
2. 验证Sheet12的E6单元格数据有效性正常，下拉列表能返回有效文本/数值
3. 确保源工作表C列数据类型与E6一致（如均为文本或数值），避免类型不匹配导致的比较失败

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