Excel VBA跳过页脚和页眉

Question

我有一个宏，将数据写入格式为A4页的excel电子表格。如何构建跳过每个页面的页脚和页眉的宏?例如，目前我的数据是从A1:A500写入的，但我希望从A10:A50, A65到A105, A120到A160等写入的数据。这将防止数据与页脚和页眉重叠。

任何想法?

Answer 1

编写一个将旧行号转换为新行号的函数

Function A4_Row(n As Long) As Long
A4_Row = 9 + n + Int((n - 1) / 41) * 14
End Function
Sub Demo()
Dim i As Long, j As Long
For i = 1 To 500
j = A4_Row(i)
Cells(i, 1) = i
Cells(i, 2) = j
Next
End Sub