phuongvq123
Thành viên tiêu biểu

			
		- Tham gia
 - 15/4/20
 
- Bài viết
 - 524
 
- Được thích
 - 331
 

Sub TimMaFieu()
Dim Rng As Range, sRng As Range
Dim MyAdd As String:               Dim SoLuong As Integer, Tim As Variant
Set Rng = [A2].CurrentRegion
Tim = [D2].Value
Set sRng = Rng.Find(Tim, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        SoLuong = SoLuong + 1
        sRng.Interior.ColorIndex = 38
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    MsgBox SoLuong
End If
End Sub
	