Tách toàn bộ ký tự đầu của một chuỗi (2 người xem)

tttngoc2021 · 14/10/21

Mình muốn tách toàn bộ ký tự đầu để tạo chuỗi có hàm nào không xin chỉ giúp: Phan Thanh Nhan tách thành PTN (chỉ giữ ký tự đầu). Cảm ơn

xuongrongdat · 14/10/21

tttngoc2021 đã viết:
Mình muốn tách toàn bộ ký tự đầu để tạo chuỗi có hàm nào không xin chỉ giúp: Phan Thanh Nhan tách thành PTN (chỉ giữ ký tự đầu). Cảm ơn

Nếu bạn sử dụng Excel 2016 trở lên thì bạn làm cách này nhanh lắm nè bạn:

befaint · 14/10/21

xuongrongdat đã viết:
nhanh

Có chắc nhanh bằng thớt không? Nhanh tới mức rơi hết dấu câu, không rơi trượt phát nào.

tttngoc2021 · 14/10/21

Cảm ơn bạn nhé

xuongrongdat đã viết:
Nếu bạn sử dụng Excel 2016 trở lên thì bạn làm cách này nhanh lắm nè bạn:
View attachment 267726

cảm ơn bạn nhé

Bài đã được tự động gộp: 14/10/21

tttngoc2021 đã viết:
Cảm ơn bạn nhé

cảm ơn bạn nhé

Mà mình office 2010 thì làm sao nhỉ

Bài đã được tự động gộp: 14/10/21

xuongrongdat đã viết:
Nếu bạn sử dụng Excel 2016 trở lên thì bạn làm cách này nhanh lắm nè bạn:
View attachment 267726

Bạn nếu Excel 2010 thì làm như thế nào xin chỉ giúp

hoangminhtien · 14/10/21

tttngoc2021 đã viết:
Mình muốn tách toàn bộ ký tự đầu để tạo chuỗi có hàm nào không xin chỉ giúp: Phan Thanh Nhan tách thành PTN (chỉ giữ ký tự đầu). Cảm ơn

Flash fill như xuongrongdat là tốt nhất trong trường hợp này rồi nhưng lại có từ version 2016 trở lên
Hàm thì nó không tối ưu bằng VBA, nhưng nếu tên không dài thì dùng tạm hàm này vậy.

Binbo2020 · 14/10/21

tttngoc2021 đã viết:
Bạn nếu Excel 2010 thì làm như thế nào xin chỉ giúp

Với excel đồ cổ thì việc nối ký tự luôn là một mớ bòng bong, đi gỡ oải lắm. Xài tạm hàm chạy bằng cơm vậy, tên viết tắt chắc dài không quá 5 ký đâu nhỉ (dài hơn chạy bằng cơm cho nhanh) A4 là ô chứa dữ liệu.

Mã:

=LEFT(A4;1)&MID(A4;FIND(" ";A4)+1;1)&IF(ISERR(FIND(" ";A4;FIND(" ";A4)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1)+1;1))

befaint · 14/10/21

Flash Fill

tttngoc2021 · 14/10/21

Binbo2020 đã viết:
Với excel đồ cổ thì việc nối ký tự luôn là một mớ bòng bong, đi gỡ oải lắm. Xài tạm hàm chạy bằng cơm vậy, tên viết tắt chắc dài không quá 5 ký đâu nhỉ (dài hơn chạy bằng cơm cho nhanh) A4 là ô chứa dữ liệu.

Mã:

=LEFT(A4;1)&MID(A4;FIND(" ";A4)+1;1)&IF(ISERR(FIND(" ";A4;FIND(" ";A4)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1)+1;1))

cảm ơn bạn nhé

hoangminhtien đã viết:
Flash fill như xuongrongdat là tốt nhất trong trường hợp này rồi nhưng lại có từ version 2016 trở lên
Hàm thì nó không tối ưu bằng VBA, nhưng nếu tên không dài thì dùng tạm hàm này vậy.

cảm ơn nhé

xuongrongdat · 14/10/21

xuongrongdat đã viết:
Nếu bạn sử dụng Excel 2016 trở lên thì bạn làm cách này nhanh lắm nè bạn:
View attachment 267726

@SA_DQ : đây là 1 trong những bước để con tạo Mã nhân viên cho công ty con theo cách bác gợi ý á. Con làm thủ công 1 lần. hi

vanthinh3101 · 14/10/21

Góp vui công thức dùng cho Excel 2016 trở lên có hàm TEXTJOIN()
Giả sử Họ tên ở ô A3:

PHP:

=TEXTJOIN("",TRUE,IFERROR(MID(" "&A3,FIND("@",SUBSTITUTE(" "&A3," ","@",ROW($A$1:$A$10)))+1,1),""))

Ctrl + Shift + Enter

Thêm 1 cách sử dụng VBA:

PHP:

Function GetFirstCharacters(SourceString As String)
    Dim Temp, Res()
    Dim I As Byte, K As Byte
    
    Temp = Split(" " & SourceString, " ")
    For I = LBound(Temp) To UBound(Temp)
        If Len(Temp(I)) Then
            K = K + 1
            ReDim Preserve Res(1 To K)
            Res(K) = Left(Temp(I), 1)
        End If
    Next I
    GetFirstCharacters = Join(Res, "")
End Function

hocexcel_1991 · 15/10/21

Thêm 1 cách khác

Mã:

=CONCAT(REPLACE(FILTERXML("<m><n>"&SUBSTITUTE($A1," ","</n><n>")&"</n></m>","//n"),2,20,""))

VetMini · 15/10/21

vanthinh3101 đã viết:

...
Thêm 1 cách sử dụng VBA:

PHP:

Function GetFirstCharacters(SourceString As String)
    Dim Temp, Res()
    Dim I As Byte, K As Byte
   
    Temp = Split(" " & SourceString, " ")
    For I = LBound(Temp) To UBound(Temp)
        If Len(Temp(I)) Then
            K = K + 1
            ReDim Preserve Res(1 To K)
            Res(K) = Left(Temp(I), 1)
        End If
    Next I
    GetFirstCharacters = Join(Res, "")
End Function

Code này rắc rối và nhiều kẽ hở lắm.
Điều đáng ghi nhớ: nếu split với dấu cách thì nên trim chuỗi trước. Trừ phi cần giữ lại đúng số dấu cách.

Dim e
For Each e in Split(Application.Trim(SourceString), " ")
GetFirstCharacters = GetFirstCharacters & Left(e, 1)
Next e

chiendich · 15/10/21

tttngoc2021 đã viết:
Mình muốn tách toàn bộ ký tự đầu để tạo chuỗi có hàm nào không xin chỉ giúp: Phan Thanh Nhan tách thành PTN (chỉ giữ ký tự đầu). Cảm ơn

Dùng hàm tự tạo trên GPE.

Mã:

Option Explicit
Function AbbName(ByVal Text As String, Optional ByVal Delimiter As String = vbNullString, Optional ByVal IncName As Boolean = False) As String
  Dim sPart1 As String, sPart2 As String, sp As String, lPos As Long
  sp = Space(1)
  If InStr(1, Text, sp) Then
    With WorksheetFunction
      sPart1 = .Trim(Text)
      lPos = InStrRev(sPart1, Space(1))
      sPart2 = Mid(sPart1, lPos + 1, Len(sPart1))
      sPart1 = Mid(sPart1, 1, lPos - 1)
      sPart1 = "{""" & Replace(sPart1, " ", """;""") & """}"
      sPart1 = Join(Evaluate("Transpose(LEFT(" & sPart1 & ",1))"), Delimiter)
    End With
    AbbName = sPart1 & Delimiter & IIf(IncName, Left(sPart2, 1), sPart2)
  End If
End Function

Cú pháp:

Mã:

=AbbName(C3,"",TRUE)

vanthinh3101 · 15/10/21

VetMini đã viết:
Code này rắc rối và nhiều kẽ hở lắm.
Điều đáng ghi nhớ: nếu split với dấu cách thì nên trim chuỗi trước. Trừ phi cần giữ lại đúng số dấu cách.

Dim e
For Each e in Split(Application.Trim(SourceString), " ")
GetFirstCharacters = GetFirstCharacters & Left(e, 1)
Next e

Em cám ơn bác đã chỉ dạy.

Nhattanktnn · 15/10/21

vanthinh3101 đã viết:
Góp vui công thức dùng cho Excel 2016 trở lên có hàm TEXTJOIN()
Giả sử Họ tên ở ô A3:

PHP:

=TEXTJOIN("",TRUE,IFERROR(MID(" "&A3,FIND("@",SUBSTITUTE(" "&A3," ","@",ROW($A$1:$A$10)))+1,1),""))

Ctrl + Shift + Enter

Thêm 1 cách sử dụng VBA:

PHP:

Function GetFirstCharacters(SourceString As String) Dim Temp, Res() Dim I As Byte, K As Byte Temp = Split(" " & SourceString, " ") For I = LBound(Temp) To UBound(Temp) If Len(Temp(I)) Then K = K + 1 ReDim Preserve Res(1 To K) Res(K) = Left(Temp(I), 1) End If Next I GetFirstCharacters = Join(Res, "") End Function

Cái hàm này sao bạn lại chọn hướng redim preserve rồi join lại mình thấy hơi cồng kềnh.
Vì chỉ xử lý chuỗi nên mình nghĩ khai báo biến txt, sau đó txt = txt & left(temp(i),1). kết quả hàm GetFirstCharacters = txt là được.
Mà theo mình biết, nếu có hướng làm khác thì không nên redim preserve mảng từng phần tử

vanthinh3101 · 15/10/21

Nhattanktnn đã viết:
Cái hàm này sao bạn lại chọn hướng redim preserve rồi join lại mình thấy hơi cồng kềnh.
Vì chỉ xử lý chuỗi nên mình nghĩ khai báo biến txt, sau đó txt = txt & left(temp(i),1). kết quả hàm GetFirstCharacters = txt là được.
Mà theo mình biết, nếu có hướng làm khác thì không nên redim preserve mảng từng phần tử

Cám ơn bạn đã góp ý.
Bài #12, bác @VetMini cũng nêu vấn đề đó ra rồi.
Tôi xin được cảm ơn và tiếp thu.

SA_DQ · 16/10/21

xuongrongdat đã viết:
@SA_DQ : đây là 1 trong những bước để con tạo Mã nhân viên cho công ty con theo cách bác gợi ý á. Con làm thủ công 1 lần. hi

Sớm nay mình mới tình cờ đọc được bài này của bạn & mình rất vui!
Sẵn đây xin mạn phép anh em (chắc trong DĐ không có chị nào lớn tuổi hơn mình!) mã nhân viên luôn có 2 phần; Mình tạm gọi 1 phần là đặc tính & phần định trị;
Phần đầu luôn gồm 3 ký tự & phần sau gồm 2 ký số (hay/& ký tự - nếu danh sách nhân viên cỡ vạn người)
Ví dụ:

STT	Mã NV	Họ & Tên
1	TTT01	Trần Thành Trai
2	TTT00	Từ Thanh Tuấn
3	TMH04	Trần Thị Minh Hà
4	TMH03	Tạ Thị Minh Hà
5	TMH02	Trần Minh Hà
6	TMH01	Từ Mạnh Hóa
7	TMH00	Trần Minh Hồng
8	TJD00	Trần Dương
9	THH00	Trần Minh Hồng Hà
10	NHB92	Nhữ Thái Hải Hà
11	NHBAZ	Ngô Thị Hòa Biền
12	NHB00	Nguyễn Hòa Bình
13	LTF00	Lê Công Thành Đạt

Chỉ cần các bạn nhìn vô 4 mã được tô đậm thì ta nghiệm ra được qui luật tạo mã.Ở đây sẽ có vài trường hợp diễn ra:
(1) Danh sách đã có mã, muốn chuyển sang hệ mã như trên;
(2) Đã có DS theo hệ mã này & bổ sung người mới 'đến'
. . . . .

Rất vui lòng giải đáp các câu hỏi của các bạn, nếu có!

Thân chào & chúc các bạn luôn khỏe!

tttngoc2021 · 19/10/21

Binbo2020 đã viết:
Với excel đồ cổ thì việc nối ký tự luôn là một mớ bòng bong, đi gỡ oải lắm. Xài tạm hàm chạy bằng cơm vậy, tên viết tắt chắc dài không quá 5 ký đâu nhỉ (dài hơn chạy bằng cơm cho nhanh) A4 là ô chứa dữ liệu.

Mã:

=LEFT(A4;1)&MID(A4;FIND(" ";A4)+1;1)&IF(ISERR(FIND(" ";A4;FIND(" ";A4)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1;1))&IF(ISERR(FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1));"";MID(A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4;FIND(" ";A4)+1)+1)+1)+1;1))

Cảm ơn bạn nhiều nhé

Bài đã được tự động gộp: 19/10/21

Cảm ơn mọi người mình đã làm đc rồi

Tách toàn bộ ký tự đầu của một chuỗi (2 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Có bao giờ bạn tự hỏi "Tôi là ai?"

|||||||||||||

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên tích cực

|||||||||||||

Thành viên mới

Có bao giờ bạn tự hỏi "Tôi là ai?"

Thành viên tích cực

Bắt đầu học Excel

Ăn cùng góc phố

Lỡ bước sang ngang

File đính kèm

Thành viên tích cực

Thành viên gắn bó

Thành viên tích cực

/(hông là gì!

Thành viên mới

Đếm ngược thời gian