Cần giúp tăng tốc Code Tô màu vàng cho ô nằm dưới cùng có chứa 2 ký tự "PN" bên trái (1 người xem)

[hung2412]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tô màu vàng cho ô nằm dưới cùng có chứa 2 ký tự "PN" bên trái ngoài cùng trong ô ở cột B, tôi dùng Code (Code này duyệt từng ô từ trên xuống dưới):

Sub Tim_o()
Dim i As Long
For i = 6 To [B65536].End(xlUp).Row      
     If Left(Cells(i, 2), 2) = "PN" Then Cells(i, 2).Select
Next
ActiveCell.Interior.ColorIndex = 6
End Sub

=> Vấn đề được đặt ra ở đây là: Có Code nào tăng tốc hơn Code trên không (Code duyệt từ trên xuống dưới)?
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[nghiaphuc]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tô màu vàng cho ô nằm dưới cùng có chứa 2 ký tự "PN" bên trái ngoài cùng trong ô ở cột B, tôi dùng Code (Code này duyệt từng ô từ trên xuống dưới):

Sub Tim_o()
Dim i As Long
For i = 6 To [B65536].End(xlUp).Row      
     If Left(Cells(i, 2), 2) = "PN" Then Cells(i, 2).Select
Next
ActiveCell.Interior.ColorIndex = 6
End Sub

=> Vấn đề được đặt ra ở đây là: Có Code nào tăng tốc hơn Code trên không (Code duyệt từ trên xuống dưới)?
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Khỏi For-Next gì ráo, bạn thử code này xem:
[GPECODE=vb]Sub Test()
On Error Resume Next
[B:B].Find("PN*", , , xlPart, , xlPrevious).Interior.ColorIndex = 6
End Sub[/GPECODE]
Hễ tìm thấy mấy anh "PN" thì code sẽ tô màu cho anh cuối cùng, ngược lại thì chẳng làm gì cả.

 

[hung2412]

Khỏi For-Next gì ráo, bạn thử code này xem:
[GPECODE=vb]Sub Test()
On Error Resume Next
[B:B].Find("PN*", , , xlPart, , xlPrevious).Interior.ColorIndex = 6
End Sub[/GPECODE]
Hễ tìm thấy mấy anh "PN" thì code sẽ tô màu cho anh cuối cùng, ngược lại thì chẳng làm gì cả.

Oh, very good. Bạn tài thật.