用代码，使光标定位到E11:E5010列区域的公式获取的第一个“错误”单元格，谢谢！

zyhui1961

用代码，使光标定位到E11:E5010列区域的公式获取的第一个“错误”单元格，谢谢！

本例为E4353单元格

yynrzwh

外块300

set h = [e11:e10000].find("错误", lookat:=xlwhole)
cells(h.Row,"e") . select

zyhui1961

外块300 发表于 2024-1-18 11:43
set h = [e11:e10000].find("错误", lookat:=xlwhole)
cells(h.Row,"e") . select

谢谢回复，这样吗？提示错误！

2Denny19

Sub 找错误单元格()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    Set ws = ThisWorkbook.Sheets("学生信息")
    Set rng = ws.Range("E11:E5010")

    For Each cell In rng
        If cell.Value = "错误" Then
            cell.Select
            Exit Sub
        End If
    Next cell

    MsgBox "未找到包含错误的单元格在指定区域内。"
End Sub

zyhui1961

yynrzwh 发表于 2024-1-18 11:32

谢谢回复！
公式获取的“错误”，这样查找不到！

yynrzwh

zyhui1961 发表于 2024-1-18 11:55
谢谢回复！
公式获取的“错误”，这样查找不到！

你没看清楚我的图片，查找“值",不是”公式"

准提部林

M = application.match("错误", [e:e],0)
if not iserror(m) then range("e" & m).select

外块300

zyhui1961 发表于 2024-1-18 11:49
谢谢回复，这样吗？提示错误！

if not h is nothing then range("e" & h.row).celect

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.17
   
2.     r = Me.Cells(Rows.Count, "e").End(3).Row
   
3.     Set Rng = Me.Range("e11:e" & r)
   
4.     For Each rn In Rng
   
5.         If rn.Value = "错误" Then
   
6.             rn.Select
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10. End Sub
    
11. 
    

复制代码