Excel VBA新手求助：跨工作表复制指定单元格失败问题

代码问题分析 #

你的代码无法完成复制操作，核心问题如下：

• Cells("B4")用法错误：Cells方法需传入行号+列号参数（如Cells(4, 2)），若要直接用单元格地址指定，应使用Range("B4")。
• row变量未显式定义：遍历单元格区域时，每个迭代元素是Range对象，必须明确定义类型。
• End语句使用不当：End会直接终止整个程序，找到匹配项后若要停止操作，应使用Exit Sub（退出整个过程）或Exit For（仅退出循环）。
• On Error Resume Next掩盖错误：调试阶段建议移除该语句，方便排查潜在问题。

修正后的代码 #

Sub CopyMatchingContent()
    Dim wbExcel As Workbook
    Dim wsSheet1 As Worksheet
    Dim wsSheet2 As Worksheet
    Dim rng As Range
    Dim row As Range ' 明确定义为Range对象
    Dim MyString As String
    Dim content As Variant
    
    Set wbExcel = ThisWorkbook
    Set wsSheet1 = wbExcel.Sheets(1)
    Set wsSheet2 = wbExcel.Sheets(2)
    MyString = "xxx"
    Set rng = wsSheet2.Range("A1:A10")
    
    For Each row In rng
        ' 显式使用Value属性获取单元格内容，避免隐式转换问题
        If Mid(row.Value, 1, 3) = MyString Then
            content = row.Value
            wsSheet1.Range("B4").Value = content ' 也可使用wsSheet1.Cells(4, 2).Value
            Exit Sub ' 找到第一个匹配项后退出过程，若需继续查找则改用Exit For
        End If
    Next row
End Sub

关于变量row的定义 #

遍历Range区域时，循环变量row必须定义为Range类型——因为每个循环迭代的对象都是单个单元格的Range实例。若定义为Object虽能运行，但显式定义为Range可获得代码提示、类型检查，大幅减少潜在错误。

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