Cách tìm giá trị trong cột excel bằng mã vba Cells.Find

Question

Tôi phải tìm một giá trị celda trong trang tính Excel. Tôi đã sử dụng mã VBA này để tìm này:

Set cell = Cells.Find(What:=celda, After:=ActiveCell, LookIn:= _ 
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _ 
    xlNext, MatchCase:=False, SearchFormat:=False) 


If cell Is Nothing Then 
    'do it something 

Else 
    'do it another thing 
End If 

Vấn đề là khi tôi phải tìm giá trị chỉ trong một cột excel. Tôi tìm thấy mã tiếp theo:

Columns("B:B").Select 
    Selection.Find(What:="VA22GU1", After:=ActiveCell, LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False).Activate 

Nhưng tôi không biết cách điều chỉnh mã vba đầu tiên vì tôi phải sử dụng giá trị nothing.

Answer 1

Chỉ cần sử dụng

Columns("B:B").Select 
Set cell = Selection.Find(What:="celda", After:=ActiveCell, LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False) 

If cell Is Nothing Then 
    'do it something 

Else 
    'do it another thing 
End If 

Answer 2

Chỉ vì lợi ích của sự hoàn chỉnh, bạn cũng có thể sử dụng kỹ thuật tương tự trên với bảng excel.

Trong ví dụ bên dưới, tôi đang tìm văn bản trong bất kỳ ô nào trong Bảng Excel có tên "tblConfig", đặt trong trang tính có tên Config thường được đặt thành ẩn. Tôi chấp nhận các giá trị mặc định của phương thức Find.

Dim list As ListObject 
Dim config As Worksheet 
Dim cell as Range 


Set config = Sheets("Config") 
Set list = config.ListObjects("tblConfig") 

'search in any cell of the data range of excel table 
Set cell = list.DataBodyRange.Find(searchTerm) 

If cell Is Nothing Then 
    'when information is not found 
Else 
    'when information is found 
End If 

Answer 3

Dim strFirstAddress As String 
Dim searchlast As Range 
Dim search As Range 

Set search = ActiveSheet.Range("A1:A100") 
Set searchlast = search.Cells(search.Cells.Count) 

Set rngFindValue = ActiveSheet.Range("A1:A100").Find(Text, searchlast, xlValues) 
If Not rngFindValue Is Nothing Then 
    strFirstAddress = rngFindValue.Address 
    Do 
    Set rngFindValue = search.FindNext(rngFindValue) 
    Loop Until rngFindValue.Address = strFirstAddress