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

Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ các anh chị cho em hỏi Cách replace xuống dòng zxczxczxczxc § Nội Quy § § Nội Quy § --- §0 - Trước khi đọc nội quy: quy định đưa ra là Có hàm nào làm cho chữ đậm hoặc nghiêng không nhi? Cách để tính nhanh khi nhảy lung tung tính tiền ăn mỗi bữa lỗi hàm trong wps excel giúp em giải câu excel ạ - Ở đây có ai nhận làm thuê bài tập excel ở trường không ạ, giúp mình vs ?? Xem thêm