Có Code nào xác định được vị trí đầu tiên và vị trí cuối cùng của "Cam" trên 1 dòng không?

[hung2412]

Xin chào các bạn GPE!
Mong các bạn giúp cho tôi vấn đề sau với. Tôi có dữ liệu trên hàng thứ 5. Có Code nào xác định được vị trí đầu tiên và vị trí cuối cùng của "Cam" trên 1 dòng không?
Chân thành cảm ơn các bạn!

 

[huuthang_bd]

Xin chào các bạn GPE!
Mong các bạn giúp cho tôi vấn đề sau với. Tôi có dữ liệu trên hàng thứ 5. Có Code nào xác định được vị trí đầu tiên và vị trí cuối cùng của "Cam" trên 1 dòng không?
Chân thành cảm ơn các bạn!

Bạn có thể dùng thử code này.

With Rows(5)
    Set Dau = .Find(What:="Cam", after:=.Cells(.Cells.Count), LookAt:=xlWhole, SearchDirection:=xlNext)
    Set Cuoi = .Find(What:="Cam", LookAt:=xlWhole, SearchDirection:=xlPrevious)
End With

 

[nguyentinhhn]

Function Cuoi(tenqua As String, dong As Long) As Long
Dim CotCuoi As Long, i As Long
With Application.ActiveSheet
CotCuoi = .Cells(dong, .Columns.Count).End(xlToLeft).Column
End With
Cuoi = 0
For i = CotCuoi To 1 Step -1
If tenqua = Cells(dong, i).Value Then
Cuoi = i
Exit For
End If
Next i
End Function
'======================================
Function Dau(tenqua As String, dong As Long) As Long
Dim CotCuoi As Long, i As Long
With Application.ActiveSheet
CotCuoi = .Cells(dong, .Columns.Count).End(xlToLeft).Column
End With
Dau = 0
For i = 1 To CotCuoi
If tenqua = Cells(dong, i).Value Then
Dau = i
Exit For
End If
Next i
End Function
'====================
Sub Test()
Sheet1.Select
MsgBox Dau("Cam", 2)
MsgBox Cuoi("Cam", 2)
End Sub