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

Dùng hàm IF và hàm Vlookup ??Chia sẻ File Excel kế toán nội bộ miễn phí Hỏi đáp về cách làm Hỏi tí về sum if Mn ơi, có nhóm nào về kế toán ở zalo thì add e vs ạ ***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- Hàm tìm ngày trong khoảng thời gian xác định Không thể copy paste dữ liệu do sub Worksheet_DeActivate() SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Định dạng số bị lỗi Xem thêm