các bác giúp dùng hàm - công thức gì để tách địa chhir hộp thư ra với ạ em cám ơn https://facebook.com/569100319856001_1096186757147352
Code thui.
MÌnh code theo hàm đảo ngược
=CONCATENATE(ReverseText(LEFT(ReverseText(LEFT(A1,FIND(".com",A1))),FIND(" ",ReverseText(LEFT(A1,FIND(".com",A1))),1))),"com")
Đây là hàm đảo ngược: Function ReverseText(text) As String
Dim TextLen As Integer Dim i As Integer TextLen = Len(text) For i = TextLen To 1 Step -1 ReverseText = ReverseText & Mid(text, i, 1) Next i
End Function
Góp vui code vậy. Bạn chép Function này vào module. Tại H8= Tach(G8). Fill xuống Function tach(diachi As String) Dim part part = Split(diachi, ChrW(160)) tach = Split(part(1), " ")(0) End Function
Link tải file https://drive.google.com/open?id=0ByVMaX29BRaoOW55QmxMR1hRQTQ
mình cám ơn!.
giờ có cách nào để tách nó ra như thế này k ạ
copy ra rồi lọc trùng là hết
Cần gì code nữa, bạn filter là đc.
Cái này làm thủ công cũng đc nhé. Dùng Find and replace 2 lần
