Tách số cách nhau bởi những khoảng trắng ra từng con số riêng biệt

[anhop]

Chào ACE diễn đàn GPE!
E đang gặp một vấn đề về xử lý chuỗi số như trong file đính kèm. Mong ACE giúp đỡ.
Cảm ơn ACE nhiều!!!

 

[khoavu87]

Tách số

Ban đầu bạn mở êxcl lên nhấn Alt +F11.Sau đó nhấn chuột phải chinêsrt ---> module
Sau đó mở linh tôi copy ở dưới ra mở file worl và copy vào module
Sau khi làm như vậy nhấn Alt +F5 là ok

 

[BNTT]

Bạn chọn ô đó, rồi gọi lệnh Text to Columns trong menu Data. Đánh dấu chọn mục Delimited, rồi nhấn Next:

Đánh dấu mục Space, rồi nhấn luôn nút Finish:

Xong.

 

[ndu96081631]

Chào ACE diễn đàn GPE!
E đang gặp một vấn đề về xử lý chuỗi số như trong file đính kèm. Mong ACE giúp đỡ.
Cảm ơn ACE nhiều!!!

Yêu cầu này dùng code VBA là gọn nhất

Function TachSo(NumText As String, Pos As Long, Optional PC As String = " ") As Double
  TachSo = Split(WorksheetFunction.Trim(NumText), PC)(Pos - 1)
End Function