Xin giúp em rút/trích/lọc dữ liệu trong 1 cột thành nhiều thông tin nhỏ

[toikhongtinai]

-Mong cả nhà giúp em với.
-Hiện tại em có 1 bảng tính Excel như trong file đính kèm.
-Mục đích của em là trích dữ liệu từ 1 cột (chứa nhiều thông tin) ra thành nhiều cột mà trong đó 1 cột chứa 1 thông tin nhỏ trong cột gốc. Em suy nghĩ từ tối đến giờ mà vẫn chưa ra, nhờ cả nhà chỉ bảo giúp em.
-Cụ thể trong bảng tính của em như sau:

Trong ô G5 có chứa thông tin: "1441 Main St, Springfield, MA 01103 » Map (413) 733-6437" Em cần trích dữ liệu của ô G5 thành các cột chứ thông tin như sau:

Ô A5: 1441 Main St
Ô B5: Springfield
Ô C5: MA
Ô D5: 01103
Ô E5: (413) 733-6437

Mong cả nhà giúp em với vì em đang rất cần để báo cáo, trong bảng tính của em có khoảng 2000 ô giống như ô G5 trên ah (trong bảng đính kèm, cụ thể em cần tách dữ liệu của ô G5, G27, G43, G63, G79, ...
Cám ơn cả nhà rất nhiều

 

[siwtom]

-Mong cả nhà giúp em với.
-Hiện tại em có 1 bảng tính Excel như trong file đính kèm.
-Mục đích của em là trích dữ liệu từ 1 cột (chứa nhiều thông tin) ra thành nhiều cột mà trong đó 1 cột chứa 1 thông tin nhỏ trong cột gốc. Em suy nghĩ từ tối đến giờ mà vẫn chưa ra, nhờ cả nhà chỉ bảo giúp em.
-Cụ thể trong bảng tính của em như sau:

Trong ô G5 có chứa thông tin: "1441 Main St, Springfield, MA 01103 » Map (413) 733-6437" Em cần trích dữ liệu của ô G5 thành các cột chứ thông tin như sau:

Ô A5: 1441 Main St
Ô B5: Springfield
Ô C5: MA
Ô D5: 01103
Ô E5: (413) 733-6437

Mong cả nhà giúp em với vì em đang rất cần để báo cáo, trong bảng tính của em có khoảng 2000 ô giống như ô G5 trên ah (trong bảng đính kèm, cụ thể em cần tách dữ liệu của ô G5, G27, G43, G63, G79, ...
Cám ơn cả nhà rất nhiều

0. Alt + F11 để mở VBE --> chọn Insert --> Module --> dán code dưới đây vào Module:

[GPECODE=vb]
Function SeparateData(ByVal text As String)
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Pattern = ", *([a-z]+) *(\d+)( *» *[a-z]+)"
text = re.Replace(text, ",$1,$2,")

text = Replace(text, " ,", ",")
text = Replace(text, ", ", ",")
SeparateData = Split(text, ",")
End Function
[/GPECODE]

1. Chọn A3:E3
2. Nhập công thức =SeparateData($G3)
3. Kết thúc bằng CTRL+SHIFT+ENTER
4. Kéo công thức xuống dưới

 

[toikhongtinai]

0. Alt + F11 để mở VBE --> chọn Insert --> Module --> dán code dưới đây vào Module:

[GPECODE=vb]
Function SeparateData(ByVal text As String)
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Pattern = ", *([a-z]+) *(\d+)( *» *[a-z]+)"
text = re.Replace(text, ",$1,$2,")

text = Replace(text, " ,", ",")
text = Replace(text, ", ", ",")
SeparateData = Split(text, ",")
End Function
[/GPECODE]

1. Chọn A3:E3
2. Nhập công thức =SeparateData($G3)
3. Kết thúc bằng CTRL+SHIFT+ENTER
4. Kéo công thức xuống dưới

Ôi trời ơi cám ơn anh, em vắt óc từ tối đến giờ mà không làm nên cơm cháo gì hết, nhờ có anh mà giờ em nhẹ đầu rồi. Cám ơn anh nhiều lắm. Qua lễ em phải nộp báo cáo rồi, em dự định là lễ này để vợ con ở nhà để ôm cái báo cáo này, nhờ có anh mà nhiều khi vợ chồng em có thể đi chơi.
Cám ơn anh 1 lần nữa và lần nữa ^^