VBA中用SpecialCells定义动态范围后Find方法返回空的问题

问题出在哪 #

你的代码里获取最后行的逻辑有两个致命问题：

1. 未指定工作表：Range("A:A").SpecialCells(...)默认用的是当前激活的工作表，不是你要操作的namedsheet——如果当时激活的是其他表，拿到的行号完全不对，动态范围自然覆盖不到要找的单元格。
2. SpecialCells(xlCellTypeLastCell)不靠谱：这个方法找的是工作表中最后被编辑过的单元格，不是A列真正的最后非空行。比如你之前在A列100行输过内容后来删了，它还是会返回100，导致范围里包含一堆空行，而你要找的值可能不在这个范围里。

修复后的代码 #

改用End(xlUp)获取A列真实的最后非空行，同时严格绑定目标工作表：

Sub teste1()
    Dim aux As Long
    Dim aux2 As Range
    Dim LR As Long
    Dim ws As Worksheet
    
    ' 先绑定目标工作表，避免活动表干扰
    Set ws = ThisWorkbook.Worksheets("namedsheet")
    
    ' 获取A列最后一个非空单元格的行号（从列尾往上找）
    LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    aux = ws.Range("A1").Value
    
    With ws.Range("A2:A" & LR)
        ' 明确Find的查找规则，避免默认参数坑
        Set aux2 = .Find(What:=aux, LookIn:=xlValues, LookAt:=xlWhole)
        If Not aux2 Is Nothing Then
            ' 直接取行号列号，不用折腾Split
            SRow = aux2.Row
            SCol = aux2.Column
        Else
            ' 处理找不到的情况，防止后续报错
            MsgBox "没找到匹配的值"
            Exit Sub
        End If
    End With
    
    ThisWorkbook.Worksheets("namedsheet2").Cells(1, 1).Value = ws.Cells(SRow, SCol).Value
    MsgBox "完成"
End Sub

额外优化建议 #

• 给Find加上LookIn和LookAt参数：默认参数可能因Excel设置或之前的操作改变，明确参数能避免意外。
• 增加找不到值的处理：如果aux2是空的，直接退出，防止后续赋值时因为SRow/SCol未定义报错。
• 替换Split操作：Range对象本身就有Row和Column属性，直接用就行，代码更简洁。

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