Tìm ngược không dùng vòng lặp

[chibi]

Chào các anh, chị trên diễn đàn. Trong một vùng của 1 cột, nếu dùng phương thức Find để tìm kiếm một giá trị thì sẽ tìm từ trên xuống dưới. Ví dụ

Range("A2:A10000").Find(What:="abc").Select

nếu tìm thấy sẽ đến ô đầu tiên từ trên xuống có giá trị là "abc". Nay tôi muốn tìm như thế nhưng cần đến ô đầu tiên từ dưới lên. Xin các anh, chị trợ giúp. (Không dùng for)

 

[ChanhTQ@]

Bạn thử với anh chàng này xem sao

Option Explicit
Sub UpTo()
 Dim Rng As Range, sRng As Range

 Set Rng = Range([B6], [B65500].End(xlUp))
 Set sRng = Rng.Find("GPE", , xlFormulas, xlPart)
 If Not sRng Is Nothing Then _
   MsgBox Rng.FindPrevious(sRng).Address
  
End Sub

 

[Po_Pikachu]

Bạn dùng code này được không?
http://www.giaiphapexcel.com/forum/showthread.php?t=29049

Sub Tim_nguoc()
MsgBox Range("A2:A10000").Find("abc", , , , , 2).Address
End Sub

Thân.

 

[SA_DQ]

Bạn dùng code này được không?
http://www.giaiphapexcel.com/forum/showthread.php?t=29049

Sub Tim_nguoc()
MsgBox Range("A2:A10000").Find("abc", , , , , 2).Address
End Sub

Thân.

Có ngắn thiệt, nhưng sẽ lỗi một khi không tìm thấy!

 

[ndu96081631]

Có ngắn thiệt, nhưng sẽ lỗi một khi không tìm thấy!

Vậy em thêm On Error... vào nữa là được chứ gì
Hoặc dùng câu lệnh If Not... gì gì đó Is Nothing (giống sư phụ)

 

[TrungChinhs]

Chào các anh, chị trên diễn đàn. Trong một vùng của 1 cột, nếu dùng phương thức Find để tìm kiếm một giá trị thì sẽ tìm từ trên xuống dưới. Ví dụ

Range("A2:A10000").Find(What:="abc").Select

nếu tìm thấy sẽ đến ô đầu tiên từ trên xuống có giá trị là "abc". Nay tôi muốn tìm như thế nhưng cần đến ô đầu tiên từ dưới lên. Xin các anh, chị trợ giúp. (Không dùng for)

Tôi thấy yêu cầu của bạn giống Bài này

Sub Cell_Cuoi()
On Error Resume Next
[a2:a65536].Find("abc", SearchDirection:=xlPrevious).Select
End Sub