Việc này mình nghĩ cần phải có quy luật thì mới làm được, còn nếu không có (mà phải tự hiểu) thì không được.
Nếu xét về quy luật trên hình thì ta có:
Dim i as long, j as long
j = 2 'bien xac dinh dong ket qua o cot E
For i = 1 to dongCuoi
Range("E" & j).value = range("A" & i*3).value
Range("F" & j).value = range("B" & i*3 - 1).value
j = j + 1
Next i
Mình đã code như trên nhưng bấm run nó không chạy cái gì cả
Đoạn code trên chỉ là phần vòng lặp bạn nhé.
Bạn cần đặt nó vào trong 1 sub thì mới chạy được (bạn tạo 1 sub rồi paste code vào trong sub này)