Giúp ghép 2 trang vào một trang trong excel (1 người xem)

[conal29]

Em có file (đính kèm). Vì file có số lượng trang quá lớn nên tạo ra 2 cột trong excel để giảm một nữa số trang.
Trong file đính kèm có: Sheet 1 là file gốc cần chuyển đổi, Sheet 2 là file mẫu mong muốn.

Anh chị trong diễn đàn hỗ trợ em với nhé! Em cám ơn nhiều!

 

[alodie123]

Sub test()
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
e = Int(lr / 50) + 1
For i = 1 To e
With Sheet1
.Range("A" & (i - 1) * 50 + 1 & ":C" & i * 50).Copy
End With
With Sheet2
d = (i - 1) * 3 + 1
.Cells(1, d).PasteSpecial (xlPasteAll)
End With
Next i
End Sub

 

[conal29]

Hay quá Alodie oi, nhưng có thể giúp mình chuyển nó thành cột dài xuống không àh, hiện nó chuyển sang hàng hết
(data copy theo hàng dọc thay vì hàng ngang)

 

[alodie123]

Hay quá Alodie oi, nhưng có thể giúp mình chuyển nó thành cột dài xuống không àh, hiện nó chuyển sang hàng hết
(data copy theo hàng dọc thay vì hàng ngang)

dài bao nhiêu thì thay cái số 50 = số tương ứng. Còn muốn chỉ có 2 cột thì :
Sub test()
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If lr Mod 2 = 1 Then
rc = (lr + 1) / 2
Else: rc = lr / 2
End If
With Sheet1
arr = .Range("A1:C" & rc)
arr2 = .Range("A" & rc + 1 & ":C" & lr)
End With
With Sheet2
.Range("A1").Resize(rc, 3) = arr
.Range("D1").Resize(rc, 3) = arr2
.Range("A1:A" & rc).Interior.ColorIndex = 40
.Range("D1" & rc).Interior.ColorIndex = 40
.Columns("A:F").AutoFit
End With
End Sub

 

[conal29]

giúp sắp xếp khi in trang

dài bao nhiêu thì thay cái số 50 = số tương ứng. Còn muốn chỉ có 2 cột thì :
Sub test()
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If lr Mod 2 = 1 Then
rc = (lr + 1) / 2
Else: rc = lr / 2
End If
With Sheet1
arr = .Range("A1:C" & rc)
arr2 = .Range("A" & rc + 1 & ":C" & lr)
End With
With Sheet2
.Range("A1").Resize(rc, 3) = arr
.Range("D1").Resize(rc, 3) = arr2
.Range("A1:A" & rc).Interior.ColorIndex = 40
.Range("D1" & rc).Interior.ColorIndex = 40
.Columns("A:F").AutoFit
End With
End Sub

Alodie ơi, đúng theo yêu cầu là 2 cột, alodie giúp tạo 2 cột đúng rồi. Nhưng giờ khi in thì chưa được nên nhờ alodie giúp sức:

cụ thể là: khi mình in cần cú pháp như vậy trên một trang (hiện nó chạy hết cột 1 rồi đến cột 2, nên ko in số thứ tự tăng dần theo từng trang được)

trang 1
1 6
2 7
3 8
4 9
5 10

tiếp đến trang 2
11 16
12 17
13 18
14 19
15 20

trên một trang: mình sẽ tìm kiếm cột thứ nhất đến cột thứ 2, sau đó mới qua trang kế tiếp... Alodie giúp mình nhé, thực sự cám ơn rất nhiều.,, d