VBA在单元格指定值的地方插入分页符

Question

我需要在指定值的每个单元格之后在工作表上插入多个分页符。我有一段代码，但目前没有任何反应

Statement.Activate
Dim c As Range
Dim FirstAddress As String

Set c = Columns("A").Find(What:="Please enter your Client Ref  on the reverse", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not c Is Nothing Then
FirstAddress = c.Address

Do
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(1)
Set c = Columns("A").FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If

谁能明白为什么这不起作用？

Answer 1

尝试只循环行。

    Dim ws As Excel.Worksheet
    Dim lRow As Long

    lRow = 1
    Set ws = Application.ActiveSheet

    'Loop through and record what is in the first column
    Do While lRow <= ws.UsedRange.Rows.count

        if ws.Range("A" & lRow) = "Please enter your Client Ref  on the reverse" then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c.Offset(1)
        End if

        lRow = lRow + 1
        ws.Range("A" & lRow).Activate
    Loop

Answer 2

发现问题！我已将打印设置为“全部在一页上”。