- Tham gia
- 8/6/06
- Bài viết
- 14,317
- Được thích
- 22,356
- Nghề nghiệp
- Nuôi ba ba & trùn quế
Hình như nó chưa khử dấu tiếng Việt, BeBo ơi!Bạn dùng hàm tự tạo (UDF) nhé.
& như vậy sẽ khó xài cùng mọi người trong cộng đồng nhiều Font chữ!
Hình như nó chưa khử dấu tiếng Việt, BeBo ơi!Bạn dùng hàm tự tạo (UDF) nhé.
Thanks bác nhiều. Hàm đã chạy tốt với ký tự không dấu.Bạn dùng hàm tự tạo (UDF) nhé.
Bước 1) Alt-F11 mở cửa sổ VBA editor, Insert/module. Copy đoạn code dưới đây vào:
PHP:Option Explicit Function Uname(cell As Range) Dim i&, Ln As Range, st, ce As Range, max& Set Ln = Range("C1:C" & cell.Row - 1) st = Split(" " & cell.Value) For i = 1 To UBound(st) - 1 Uname = Uname & LCase(Left(st(i), 1))' LCase: Họ và Lót viết thường. Nếu muốn viết hoa thì dùng Ucase Next Uname = st(UBound(st)) & Uname If WorksheetFunction.CountIf(Ln, Uname & "*") = 0 Then Exit Function For Each ce In Ln st = Replace(ce, Uname, "") If Len(st) = 0 Then max = 1 ElseIf IsNumeric(st) Then max = max + 1 End If Next Uname = Uname & IIf(max = 0, "", max) End Function
Bước 2) Đóng cửa sổ VBA.
Tại ô C2:
=uname(A2)
Kéo xuống
Save As file dạng "Excel Macro-Enable Workbook" (.xlsm)
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2