Dim A, B
Sub test()
Dim i
Sheets(2).Select
A = Range("a1").CurrentRegion
i = UBound(A) - 1
i = Application.WorksheetFunction.Ceiling(i, 4) '向上舍入为4的整数倍
A = Range([a1], Cells(i + 1, UBound(A, 2)))
Sheets(1).Select
B = [a1:w23]
For i = 2 To UBound(A) Step 4
Call Card(i, 0, 0)
Call Card(i + 1, 0, 12)
Call Card(i + 2, 12, 0)
Call Card(i + 3, 12, 12)
Range("a1").Resize(UBound(B), UBound(B, 2)) = B
ActiveSheet.PrintOut
Next i
End Sub
'一张卡(序号, 偏移行, 偏移列)
Sub Card(i, r, c)
B(r + 5, c + 3) = A(i, 1)
B(r + 5, c + 6) = A(i, 2)
B(r + 6, c + 3) = A(i, 3)
B(r + 7, c + 3) = A(i, 4)
B(r + 8, c + 3) = A(i, 5)
B(r + 9, c + 3) = A(i, 6)
B(r + 10, c + 3) = A(i, 7)
B(r + 11, c + 3) = A(i, 8)
B(r + 11, c + 6) = A(i, 9)
End Sub
准考证2.rar
(16.42 KB, 下载次数: 58)
|