Tham khảo hàm sau:Xin nhờ anh chị giúp công thức sau với ạ. Nếu trong chuỗi có ký tự"-" thì trả về chuỗi ký tự đầu tiên bên trái dấu "-", nếu không có ký tự"-" thì trả về chính nó
Option Explicit
Function Tuan16(ByVal Rng As Range)
Dim i&
If InStr(Rng, "-") Then
Tuan16 = Mid(Rng, 1, InStr(Rng, "-") - 1)
Else
Tuan16 = Rng
End If
End Function
Sub Test()
Dim i&
For i = 6 To Sheet1.Range("E100000").End(3).Row
Sheet1.Range("G" & i) = Tuan16(Range("E" & i))
Next i
End Sub
Xin nhờ anh chị giúp công thức sau với ạ. Nếu trong chuỗi có ký tự"-" thì trả về chuỗi ký tự đầu tiên bên trái dấu "-", nếu không có ký tự"-" thì trả về chính nó