Kỹ thuật tách chuỗi dữ liệu trong VBA
Trong quá trình làm việc có nhiều trường hợp phải tách dữ liệu từ một chuỗi tổng hợp, ví dụ như chuỗi (211-2018-166-199) muốn lấy mã năm 2018 và đuôi 199 hoặc file toa độ xuất ra từ máy toàn đạc (11234.34222088.56) muốn lấy toạ độ X=34222088, Y= 11234, Z= 56 chẳng hạn.Dữ liệu xuất ra từ máy tính, hóa đơn, máy toàn đạc điện tử...vv sẽ gặp phải trường hợp này, nhiều người chọn cách đánh lại lần lượt 2018 và 199, với dữ liệu khoảng 10.000 nghìn dòng thì việc nhập tay không còn hiệu quả.
Minh chia sẻ file (bao gồm video hướng dẫn và file đính kèm) anh em tải về dùng thử.
link tải file
http://123link.pro/6ay5Bo
http://123link.pro/XGK3OdW
code sử dụng
Sub tach()
Dim a As String
Dim b As String
Dim c As Long, d As Long, e As Long, f As Long
e = Sheets("A").Range("K2").Value
a = Sheets("A").Cells(e, 2).Value & "-"
c = 1
d = 1
f = 3
While d > 0
d = InStr(c, a, "-")
If d > 0 Then
b = Mid(a, c, d - c)
Sheets("A").Cells(e, f).Value = b
f = f + 1
c = d + 1
End If
Wend
End Sub
Trong quá trình làm việc có nhiều trường hợp phải tách dữ liệu từ một chuỗi tổng hợp, ví dụ như chuỗi (211-2018-166-199) muốn lấy mã năm 2018 và đuôi 199 hoặc file toa độ xuất ra từ máy toàn đạc (11234.34222088.56) muốn lấy toạ độ X=34222088, Y= 11234, Z= 56 chẳng hạn.Dữ liệu xuất ra từ máy tính, hóa đơn, máy toàn đạc điện tử...vv sẽ gặp phải trường hợp này, nhiều người chọn cách đánh lại lần lượt 2018 và 199, với dữ liệu khoảng 10.000 nghìn dòng thì việc nhập tay không còn hiệu quả.
Minh chia sẻ file (bao gồm video hướng dẫn và file đính kèm) anh em tải về dùng thử.
link tải file
http://123link.pro/6ay5Bo
http://123link.pro/XGK3OdW
code sử dụng
Sub tach()
Dim a As String
Dim b As String
Dim c As Long, d As Long, e As Long, f As Long
e = Sheets("A").Range("K2").Value
a = Sheets("A").Cells(e, 2).Value & "-"
c = 1
d = 1
f = 3
While d > 0
d = InStr(c, a, "-")
If d > 0 Then
b = Mid(a, c, d - c)
Sheets("A").Cells(e, f).Value = b
f = f + 1
c = d + 1
End If
Wend
End Sub
