Tách dữ liệu trong 1 ô của excel (1 người xem)

[heyyou]

cho em hỏi cái, hiện tại em đang cần tách các dữ liệu của file xuất xuống nhưng nó trộn lẫn với nhau + người nhập dữ liệu pro quá nên nhìn vào muốn té xỉu lun, em nhờ bác nào cao thủ giúp em trường hợp này với.
theo file đính kèm, tách hộ giúp em theo 3 trường:
Địa chỉ - người liên hệ + số đt - email

tks các bác nhiều nha

 

[Let'GâuGâu]

cho em hỏi cái, hiện tại em đang cần tách các dữ liệu của file xuất xuống nhưng nó trộn lẫn với nhau + người nhập dữ liệu pro quá nên nhìn vào muốn té xỉu lun, em nhờ bác nào cao thủ giúp em trường hợp này với.
theo file đính kèm, tách hộ giúp em theo 3 trường:
Địa chỉ - người liên hệ + số đt - email

tks các bác nhiều nha

trước tiên bạn dùng Ctrl H để thay dấu : thành dấu ,
sau đó bạn dùng text to column táchda611u phẩy này ra

 

[heyyou]

cái đó chỉ làm được với dòng không có đia chỉ thui, còn dòng nào có địa chỉ thi nó "," tùm lum lun á. cái này em copy vài dòng ra nen nhìn thấy thể thui, chứ làm nguyên cái danh sách hợp đồng mà theo cách text to column chắc chết lun á

 

[HungQuoc49]

cái đó chỉ làm được với dòng không có đia chỉ thui, còn dòng nào có địa chỉ thi nó "," tùm lum lun á. cái này em copy vài dòng ra nen nhìn thấy thể thui, chứ làm nguyên cái danh sách hợp đồng mà theo cách text to column chắc chết lun á

Dựa theo ý bài 2, thay dấu ":" ---> "#", rồi text to columns theo dấu "#"

 

[heyyou]

em hiểu ý 2 và 4 nhưng dữ liệu của em nó có nhìu dòng như thế này:
254 Nguyễn Công Trứ , P.Nguyễn Thái Bình, Q1, TPHCM, CK, C.OANH: 01682 714 713, oanh.daewoong@gmail.com or C.MƠ: 0933 861 269

vậy nếu làm theo thì nó sẽ cho ra rất nhiều cột, trong khi 1 file khoảng 130k dòng mà ngồi dò cho từng cột kiểu đó chắc đuối lun. có bác nào có cách tách ra dữ liệu em cần không ( mỗi màu em tô là cho ra 1 cột )

 

[anhtuan1069]

em hiểu ý 2 và 4 nhưng dữ liệu của em nó có nhìu dòng như thế này:
254 Nguyễn Công Trứ , P.Nguyễn Thái Bình, Q1, TPHCM, CK, C.OANH: 01682 714 713, oanh.daewoong@gmail.com or C.MƠ: 0933 861 269

vậy nếu làm theo thì nó sẽ cho ra rất nhiều cột, trong khi 1 file khoảng 130k dòng mà ngồi dò cho từng cột kiểu đó chắc đuối lun. có bác nào có cách tách ra dữ liệu em cần không ( mỗi màu em tô là cho ra 1 cột )

Bạn dùng hàm dưới đây

Function tachChuoi(Str As String, VT As Integer) As String
Dim arr() As String, i As Integer, k As Integer
For i = Len(Str) To 1 Step -1
    If Mid(Str, i, 1) = "," Then
        k = k + 1
    End If
Next i
Str = WorksheetFunction.Substitute(WorksheetFunction.Substitute _
    (Str, ",", Chr(255), k), ",", Chr(255), k - 1)
arr = Split(Str, Chr(255))
tachChuoi = Trim(arr(VT - 1))
End Function

Cú pháp: Tachchuoi(ô cần tách, vị trí là 1 hoặc 2 hoặc 3 nhé)

 

[heyyou]

cám ơn bác, nó giúp em đỡ 1 phần rồi, để em gom lại từ từ, tks bác nhiều

 

[heyyou]

bác cho em hỏi, dữ liệu của em chỉ có thế này:
C.THANH: 0902 933 644, ndn.thanh@hcmc-mrt.com

thì khi dùng cách của bác nó cho kết quả là #Value.

có cách khắc phục không vậy bác,

Bạn dùng hàm dưới đây

Function tachChuoi(Str As String, VT As Integer) As String
Dim arr() As String, i As Integer, k As Integer
For i = Len(Str) To 1 Step -1
    If Mid(Str, i, 1) = "," Then
        k = k + 1
    End If
Next i
Str = WorksheetFunction.Substitute(WorksheetFunction.Substitute _
    (Str, ",", Chr(255), k), ",", Chr(255), k - 1)
arr = Split(Str, Chr(255))
tachChuoi = Trim(arr(VT - 1))
End Function

Cú pháp: Tachchuoi(ô cần tách, vị trí là 1 hoặc 2 hoặc 3 nhé)