|
▼まこと さん:
まず、ページ数が、1、1、2、3と1が2回続いていたので、1箇所修正しました。
Sub 改ページ100()
Dim i, n, m, no, no2, st As Long
no = 50 '○行おきに挿入
no2 = 2 '挿入する行の数
st = 55 '最初の挿入行位置
i = Range("A65536").End(xlUp).Row
Range("D3").value = 1
For m = 0 To (i - (st - no + no2)) / (no - no2) - 1
Rows(st + m * no).Resize(2).Insert Shift:=xlDown
Range("D" & (st + m * no)).value = m + 1’←ここを修正
Rows(4).Copy
Rows(st + m * no + 1).PasteSpecial
Excel.Application.CutCopyMode = False
Next
n = Range("A65536").End(xlUp).Row
For i = st To n Step no
ActiveSheet.HPageBreaks.Add before:=Cells(i, 1)
Next i
End Sub
>ドカ様、わざわざ行を変数にしていただき、本当に心使いありがとうございます。変数部分の数値をいろいろ変えてご提示されたコードを走らせても、最初の一ページだけはうまく50名で改ページできるのですが、2ページ以降はだんだんずれていってしまいます。
>憶測ですが、
セルの行数で会話をして、お互いの認識を一致させましょう。
まず、
55行目で改行
105行目で改行
155行目で改行
となっていると思いますが、これをどうしたいのでしょうか?
ページ数と項目の行を追加しているので、当然、2行づつデータが下にずれていきますよね。それを回避したいと言われても、私にはどうしようもできないです。
|
|