có thể dùng hàm excel nào giải quyết được bài toán này không nhỉ mọi người: Mình có 1 bảng gồm 20 tên tỉnh thành bây giờ muốn đổi thành tên viết tắt như hình (trong thực tế nó là các symbols) bằng hàm excel?
mình nghĩ là sử dụng AutoCorrect trong mục Proofing sẽ gọn hơn
m vừa thử dùng vlookup cũng đc nhưng mấy chữ ở dữ liệu gốc và kết quả cần phải nằm ở các ô riêng rẽ :3 hóng
dùng Flash Fill banj ơi, Excel 2013 trở lên
=LEFT(A1,1) & MID(A1,FIND(" ",A1,1)+1,1) bạn thử dùng hàm này nhé
Flash fill
Vlookup thôi
Hóng với
cái này viết code, có lẽ là hay hơn cả.
Nếu yêu cầu chỉ có mỗi thế này thôi thì mỗi tình làm 1 cột, ghép lại với nhau là đạt được yêu cầu, cần chi phải phức tạp vấn đề
=LEFT(A2;1)&MID(A2;FIND(" ";A2)+1;1)&IF(ISERR(FIND(" ";A2;FIND(" ";A2)+1));"";MID(A2;FIND(" ";A2;FIND(" ";A2)+1)+1;1))&IF(ISERR(FIND(" ";A2;FIND(" ";A2;FIND(" ";A2)+1)+1));"";MID(A2;FIND(" ";A2;FIND(" ";A2;FIND(" ";A2)+1)+1)+1;1))&IF(ISERR(FIND(" ";A2;FIND(" ";A2;FIND(" ";A2;FIND(" ";A2)+1)+1)+1));"";MID(A2;FIND(" ";A2;FIND(" ";A2;FIND(" ";A2;FIND(" ";A2)+1)+1)+1)+1;1))
Mình viết giúp bạn 2 hàm
Hàm thứ nhất tách lấy chữ cái đầu của địa danh Public Function Rut_Gon_Ten(va As String) Dim i As Integer Dim strTemp() As String Dim strResult As String strTemp = Split(va, " ") For i = LBound(strTemp) To UBound(strTemp) strResult = strResult & Left(strTemp(i), 1) Next strResult = UCase(strResult) Rut_Gon_Ten = strResult End Function
Hàm thứ 2 tách từng tên trong chuỗi tên và tìm kiếm chuỗi tách ra này trên bảng đã tách chữ cái bên trên Public Function Gop_Ten(Ra As Range, va As String, column_index As Integer) Dim i As Integer Dim j As Integer Dim strTemp() As String Dim strResult As String strTemp = Split(va, ",") For i = LBound(strTemp) To UBound(strTemp) - 1 For j = 1 To Ra.Rows.Count If strTemp(i) = Ra.Cells(j, 1).Value Then strResult = strResult & Ra.Cells(j, column_index).Value & "," End If Next Next For i = UBound(strTemp) To UBound(strTemp) For j = 1 To Ra.Rows.Count If strTemp(i) = Ra.Cells(j, 1).Value Then strResult = strResult & Ra.Cells(j, column_index).Value End If Next Next Gop_Ten = strResult End Function
Đây là file đính kèm mình gửi lại bạn tham khảo http://www.mediafire.com/download/noddws6xaul8e2x/2.xlsm
Haha tìm được rồi, hôm nay ngồi rãnh lôi bài này ra làm, bạn còn cần thì xem trên trang cá nhân mình xem đúng ko nhed
