Giúp trích dữ liệu không đều nhưng có quy luật (1 người xem)

[lyly2626]

Em thường xuyên phải copy 1 khối dữ liệu từ web xuống.
Khổ nỗi khi vô excel chúng lại không đều nhau, quy luật tuy có nhưng rất khó bắt
Xin xem file đính kèm để e trình bày cho tiện ạ.

 

[HieuCD]

bạn chạy thử code

Sub GPE()
Dim Darr, Arr(), i As Long, k As Long
Darr = Range("C3:E" & Range("E65500").End(xlUp).Row)
ReDim Arr(1 To UBound(Darr), 1 To 7)
On Error Resume Next
For i = 1 To UBound(Darr)
    If Darr(i, 1) <> "" Then
        k = k + 1
        Arr(k, 1) = Darr(i, 1)
        Arr(k, 2) = Darr(i, 2)
        Arr(k, 3) = Darr(i + 1, 2)
        Arr(k, 6) = Darr(i, 3)
        Arr(k, 7) = Darr(i + 1, 3)
        i = i + 1
    ElseIf Darr(i + 1, 1) <> "" Then
        Arr(k, 5) = Darr(i, 3)
    ElseIf Darr(i, 3) <> "" Then
        If Darr(i - 1, 2) <> "" Then
            Arr(k, 4) = Darr(i, 3)
        Else
            Arr(k, 4) = Arr(k, 4) & " - " & Darr(i, 3)
        End If
    End If
Next i
Range("G3").Resize(k, 7) = Arr
End Sub

 

[lyly2626]

GPE này quả thật nhiều cao thủ. Bài này e đã loay hoay lâu lắm rồi mà quên không nghĩ ra: "Tại sao ko đưa lên GPE nhờ giúp nhỉ?"
Thật không biết nói gì hơn. Nguyện gắn bó với GPE suốt đời.

 

[thuctien]

Em thấp thủ nên không xài code mà thêm 1 cột phụ như đính kèm được không ạ?
Dùng hàm nó có cái hay là tự động cập nhật khi dữ liệu thay đổi, chẳng cần phải bấm nút chạy gì cả.