DẠ, Xóa cái này ạ mà vẫn dữ nguyên dữ liệu áUID là cái chi chi![]()
Function removeuid(chuoi As String)
Dim ar, uid
ar = Split(chuoi, " (")
For i = LBound(ar) To UBound(ar) - 1
uid = Split(ar(i), " ")
ar(i) = Replace(ar(i), uid(UBound(uid)), "")
Next
removeuid = Join(ar, "(")
End Function
ĐÃ THÀNH CÔNG. CẢM ƠN NHIỀU ẠBạn dùng hàm tự tạo này xem có đúng không?
Mã:Function removeuid(chuoi As String) Dim ar, uid ar = Split(chuoi, " (") For i = LBound(ar) To UBound(ar) - 1 uid = Split(ar(i), " ") ar(i) = Replace(ar(i), uid(UBound(uid)), "") Next removeuid = Join(ar, "(") End Function
ĐÃ THÀNH CÔNG. CẢM ƠN NHIỀU Ạ
Bài đã được tự động gộp:
CẢM ƠN MỌI NGƯỜI RẤT NHIỀU. EM ĐÃ LÀM ĐƯỢC Ạ
cái này pates vào đâu aBạn dùng hàm tự tạo này xem có đúng không?
Mã:Function removeuid(chuoi As String) Dim ar, uid ar = Split(chuoi, " (") For i = LBound(ar) To UBound(ar) - 1 uid = Split(ar(i), " ") ar(i) = Replace(ar(i), uid(UBound(uid)), "") Next removeuid = Join(ar, "(") End Function