Tách quá trình công tác

[aikia]

Mình có file đính kèm nhờ các bạn tách ra theo như mô tả.

 

[ndu96081631]

Mình có file đính kèm nhờ các bạn tách ra theo như mô tả.

File bạn "nuôi" virus nhiều ghê ha!
---------------------------------------
Thử bằng hàm củ chuối này xem:

Function SplitData(Text As String, VSign As String, HSign As String)
  Dim Item, Temp, Arr(), i As Long
  ReDim Arr(100, 100)
  On Error Resume Next
  Temp = Split(Text, VSign)
  For i = 0 To UBound(Temp)
    Item = Split(CStr(Temp(i)), HSign)
    Arr(i, 0) = Item(0)
    Arr(i, 1) = Item(1)
  Next
  SplitData = Arr
End Function

Sử dụng:
- Quét chọn 3 dòng, 2 cột bất kỳ rồi gõ vào công thức: =SplitData(B4,CHAR(10),":") ---> Bấm tổ hợp phím Ctrl + Shift + Enter
- Quét chọn 5 dòng, 2 cột bất kỳ rồi gõ vào công thức: =SplitData(C4,CHAR(10),":") ---> Bấm tổ hợp phím Ctrl + Shift + Enter