Nhờ các bạn giúp lập công thức. (1 người xem)

[bat_can_doi]

Tôi gửi các bạn file mấu nhờ giúp đỡ về công thức hoặc code.
Ở sheet "Gốc" là số liệu tôi copy từ trên mạng về. Tại Sheet "Trích xuất" tôi muốn chỉ lấy ra 3 cột (trong file là các cột màu vàng) còn các cột khác không cần. sheet "Gốc" lấy về có 15 cột với tiêu đề cố định, còn số dòng sẽ thay đổi theo tháng có lúc nhiều lúc ít (khoảng trên dưới 2000 dòng).
Tôi không biết làm thế nào mong các bạn giúp đỡ. Tôi dùng Excel 2003

 

[alodie123]

Sub test()
Dim rng, arr()
Sheet1.Activate
lr = Range("D" & Rows.Count).End(xlUp).Row
ReDim arr(1 To (lr - 6) / 2, 1 To 4)
rng = Range("B7" & lr).Value
For i = 1 To lr - 6
If i Mod 2 = 1 Then
arr((i - 1) / 2 + 1, 1) = rng(i, 1)
arr((i - 1) / 2 + 1, 2) = rng(i, 2)
arr((i - 1) / 2 + 1, 3) = rng(i, 3)
arr((i - 1) / 2 + 1, 4) = rng(i + 1, 3)
End If
Next i
Sheet2.Range("B5:E5000").ClearContents
Sheet2.Range("B5").Resize((lr - 6) / 2, 4) = arr
End Sub
Công thức
H7 =IF(MOD(ROW($B7)-6,2)=1,B7,"")
I7=IF(MOD(ROW($B7)-6,2)=1,C7,"")
J7=IF(MOD(ROW($B7)-6,2)=1,D7,"")
K7=IF(MOD(ROW($B7)-6,2)=1,D8,"")
fill xuống

 

[bebo021999]

Xem công thức trong file đính kèm