Các phương pháp tách họ và tên đề nghị post ở đây

  • Thread starter Thread starter daerty5
  • Ngày gửi Ngày gửi
Liên hệ QC
Chỗ này để phòng trường hợp người ta nhập thừa khoảng trắng ở cuối ấy.
Ở hàm lấy tên ý:
D4=TRIM(RIGHT(SUBSTITUTE(TRIM(B4)," ",REPT(" ",50)),30))
Không cần lấy TRIM(B4) trong hàm SUBSTITUTE vì có thừa " " cũng không ảnh hưởng gì mà
 
Cho em hỏi ngược 1 tý
Em muốn gộp dử liệu C2,B2,D2,E2,F2,G2 vào cùng 1 ô H2
với C2 thêm cụm từ "Cửa hàng"
B2 thêm cụm từ "Mã cửa hàng" và
D2 thêm cụm từ "Địa chỉ
Nhờ các cao nhân chỉ giúp ạ
1533009091218.png
 
Xin mấy thầy giúp đở tách họ và tên khác nhau ký tự viết hoa với ạ

MorrisonFaith
JustinManning
BlackSebastian
StewartNash
QuinnLily
SimonKing
RutherfordLuke
JosephParsons
BrandonYoung
GrantAnthony

thank
 
Xin mấy thầy giúp đở tách họ và tên khác nhau ký tự viết hoa với ạ

MorrisonFaith
JustinManning
BlackSebastian
StewartNash
QuinnLily
SimonKing
RutherfordLuke
JosephParsons
BrandonYoung
GrantAnthony

thank
A1=MorrisonFaith
A2=JustinManning
A3=BlackSebastian
A4=StewartNash
A5=........
Mã:
B1=LEFT(A1,MATCH(,INDEX(N(EXACT(LOWER(MID(A1,ROW($2:$100),1)),MID(A1,ROW($2:$100),1))),),))
C1=MID(A1,LEN(B1)+1,100)

Thân
 
uầy, không ngờ nó lại vi diệu đến như thế
 
Mình xin phép chia sẻ cách tách họ tên bằng chức năng flash fill trong excel từ phiên bản 2013 trở đi rất tiện lợi
https://bit.ly/2PBzleP
 
Làm thế nào để tách chuỗi văn bản theo ký tự đặc biệt : Dấu ":" và dấu "|"
Tôi có những chuỗi như trong file đính kèm , bây giở tôi phai tách ra từng đoạn đươc cách nhau bởi cả dấu ":" và dấu "|"
các bạn giúp tôi với
xin cảm ơn nhiều
 

File đính kèm

Làm thế nào để tách chuỗi văn bản theo ký tự đặc biệt : Dấu ":" và dấu "|"
Tôi có những chuỗi như trong file đính kèm , bây giở tôi phai tách ra từng đoạn đươc cách nhau bởi cả dấu ":" và dấu "|"
các bạn giúp tôi với
xin cảm ơn nhiều
Bạn dùng code này xem đúng không nhé.
Mã:
Sub tach()
    Dim arr, i As Long, a As Long, arr1, T, LR As Long
    With Sheet1
         LR = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A2:A" & LR).Value
         ReDim arr1(1 To UBound(arr, 1), 1 To 100)
         For i = 1 To UBound(arr, 1)
            a = 0
            arr(i, 1) = Replace(arr(i, 1), ":", "|")
            For Each T In Split(arr(i, 1), "|")
                a = a + 1
                arr1(i, a) = T
            Next
        Next i
        .Range("B2").Resize(LR, 100).ClearContents
        .Range("B2").Resize(i - 1, 100).Value = arr1
   End With
End Sub
 

File đính kèm

Bạn dùng code này xem đúng không nhé.
Mã:
Sub tach()
    Dim arr, i As Long, a As Long, arr1, T, LR As Long
    With Sheet1
         LR = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A2:A" & LR).Value
         ReDim arr1(1 To UBound(arr, 1), 1 To 100)
         For i = 1 To UBound(arr, 1)
            a = 0
            arr(i, 1) = Replace(arr(i, 1), ":", "|")
            For Each T In Split(arr(i, 1), "|")
                a = a + 1
                arr1(i, a) = T
            Next
        Next i
        .Range("B2").Resize(LR, 100).ClearContents
        .Range("B2").Resize(i - 1, 100).Value = arr1
   End With
End Sub
Rất cảm ơn bạn
Nhưng bạn ơi tôi chưa biết gì về CODE cả - tôi mới chập chững học excel mà . Bạn có thể chỉ tôi cách dùng CODE không ? Bạn làm ơn chỉ theo từng bước một nhé - cảm on ban
 
Rất cảm ơn bạn
Nhưng bạn ơi tôi chưa biết gì về CODE cả - tôi mới chập chững học excel mà . Bạn có thể chỉ tôi cách dùng CODE không ? Bạn làm ơn chỉ theo từng bước một nhé - cảm on ban
Cho dữ liệu vào Như bạn rồi bấm nút tách thế là xong cần gì biết code.
 
Web KT

Bài viết mới nhất

Back
Top Bottom