Cần giúp viết Code tìm ô có chứa dữ liệu (3335) và gõ chữ Thuế vào ô bên dưới ô đó (2 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một File Excel như sau:

Có Code nào (Không xài công thức) để tìm được ô dọc theo hàng 2 có chứa dữ liệu (3335) nằm ở cột cuối cùng bên phải (Ví dụ như hình trên đây là ô I2) và tự động gõ chữ Thuế vào ô ở dưới (Ô này cùng cột với ô có dữ liệu (3335) ở trên và hàng 7)?
Kết quả mong muốn như hình vẽ sau:

Trong trường hợp không có ô nào chứa dữ liệu (3335) thì hiện Msgbox ghi là Không có (3335)
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[SA_DQ]

Option Explicit
Sub Tìm3335C()
 Dim Rng As Range, sRng As Range, Rg0 As Range
 Dim MyAdd$
 Set Rng = [A2].Resize(, 255)
 Set sRng = Rng.Find("3335", , xlFormulas, xlPart)
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        Set Rg0 = sRng
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    Rg0.Offset(5).Value = "thué"
 Else
      MsgBox "NoThing"    
 End If
End Sub

 

[giangleloi]

Góp vui 1 code chậm chạp:
[GPECODE=vb]
Sub TimTK()
Dim i, R
With Sheet1
R = .Cells(2, .Columns.Count).End(xlToLeft).Column
For i = R - 1 To 2 Step -1
If .Cells(2, i) Like "*" & "3335" & "*" Then
.Cells(7, i) = "Thu" & ChrW(7871)
Exit For
End If
Next i
End With
End Sub
[/GPECODE]
P/s: Đọc nhầm đề rùi, yêu cầu kiếm có 1 cái. híc

 

[gtri]

Public Sub Thue()
Dim c As Long, i

With Sheet1
For c = 12 To 2 Step -1
If InStr(.Cells(2, c).Value, "(3335)") Then
i = i + 1
Exit For
End If
Next c

If i > 0 Then
.Cells(7, c).Value = "Thu" & ChrW(7871)
Else
MsgBox ("Khong Co (3335)")
End If
End With

End Sub