Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

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

DocBuoc

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?

TruongMinh

mình nghĩ là sử dụng AutoCorrect trong mục Proofing sẽ gọn hơn

NamTae

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

NguyenThiHaMinh

dùng Flash Fill banj ơi, Excel 2013 trở lên

TruongMinh

=LEFT(A1,1) & MID(A1,FIND(" ",A1,1)+1,1) bạn thử dùng hàm này nhé

XuanTamTruong

SonDoan

Flash fill

SonDoan

Vlookup thôi

TuyetPhale

Hóng với

NguyenNgocThuHien

cái này viết code, có lẽ là hay hơn cả.

DangHoa

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 đề

ChieuTrien

=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))

TrungNguyen

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

TrinhXuanTuyen

PhamMinhTung1

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

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI FILE QUẢN LÝ QUỸ TIỀN MẶT BẰNG EXCEL Xin chào mọi người, Hôm này Đỉnh muốn chia sẻ cho các bạn 2 cuốn sách cực kỳ Cả nhà có mẹo gì để tẩy mực máy in trên giấy A4 không ạ? Chỉ tẩy con số ở Hỗ trợ hàm tìm kiếm, xuất dữ liệu Lỗi #N/A trong hàm IMPORTXML Mong các cao nhân giúp đỡ Hi mọi người, Hi mọi người, Em chuyển file exel sang dạng ảnh bị lỗi font chữ ( Xem thêm