Xin hàm tách chuỗi theo điều kiện

Liên hệ QC
Đọc từng chữ bài #2.
Bác ơi cháu đã ghi Macro như này rồi nhưng không biết làm như nào nữa bác à
Sub Macro2()
'
' Macro2 Macro
'

'
Range("B2").Select
Selection.TextToColumns Destination:=Range("F4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
ActiveWorkbook.Save
Sheets("Sheet1").Select
End Sub
 
Upvote 0
Upvote 0
Không dùng hàm nhé.
Sử dụng thử File, với điều kiện có cùng cấu trúc như B2, C2, D2. Nếu khác cấu trúc thì không đãm bảo. Thử nhấn nút và xem kết quả.
Cháu cảm ơn bác
Bác ơi vẫn chưa được bác à, hay là bác rút gọn giúp cho cháu cái code của cháu đã ghi ở bài #7 với bác @be09
 
Upvote 0
Cháu cảm ơn bác
Bác ơi vẫn chưa được bác à, hay là bác rút gọn giúp cho cháu cái code của cháu đã ghi ở bài #7 với bác @be09
Chưa được là thế nào phải nêu rõ:
- Nó không tách dữ liệu?
- Lỗi code?
Kiểm tra lại File., với điều kiện có cùng cấu trúc như B2, C2, D2. Nếu khác cấu trúc thì không đãm bảo, nhấn nút và xem kết quả.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Chưa được là thế nào phải nêu rõ:
- Nó không tách dữ liệu?
- Lỗi code?
Kiểm tra lại File.
Cháu cảm ơn bác ạ
Cháu muốn hỏi thêm bác nữa nhưng cháu sợ tết đến nơi roài bác bận không có thời gian.
Ví dụ là các ô có dữ liệu dài ngắn khác nhau thì code này không làm được bác nhỉ?
Bài đã được tự động gộp:

Bác ơi hàm chuẩn quá bác ơi
Cháu chúc bác năm mới có nhiều tốt đẹp nhé bác
 
Upvote 0
Bài này chỉ đúng khi các phần tử cách nhau bằng dấu "-" có số lương bằng nhau, còn không thì ...."tèo".
Híc
Thân
Chủ Topic chỉ đưa có 3 Cell nên bài 9 tôi có nêu rõ "với điều kiện có cùng cấu trúc như B2, C2, D2".
 
Upvote 0
Web KT

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

Back
Top Bottom