Question

我很难弄清楚如何组合我拥有的两个宏（见下文）。我想要实现的是每次（比如说）80行自动插入分页符。现在出现了我无法管理的部分。

在每80行之后，它将搜索H列中的第一个特定搜索值“total”并添加分页符，因此第80行中的分页符只能更改为更少（例如，第75行）。问题是在80行的范围内有多个“总数”。所以它必须在第80行之前搜索最后的“总数”。

在找到前80行中的最后一个“总计”后，它必须对接下来的80行执行相同操作。因此，如果分页符在第75行，则下一个范围必须搜索到第155行并再次执行相同操作等。

我有两个单独的代码可以使用。第一个每80行添加一次分页。

第二个搜索所有值“total”。所以现在第30,42,75行中有分页符（这些值在每个项目中都不同），我只希望最后一行最接近第80行。

这是我找到的第一个代码：

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Lastrow1 = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, _  
LookIn:=xlValues, SearchDirection:=xlPrevious).row
Worksheets("sheet1").PageSetup.PrintArea = "$B11:$L" & Lastrow1 + 1

Dim Lastrow As Long
Dim Row_Index As Long
Dim RW As Long

RW = 80

With ActiveSheet
    .ResetAllPageBreaks
    Lastrow = .Cells(rows.Count, "H").End(xlUp).row + 1
    For Row_Index = RW + 1 To Lastrow Step RW
        .HPageBreaks.Add Before:=.Cells(Row_Index, 1)
    Next
End With

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With

这是第二个代码：

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Lastrow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, _ 
LookIn:=xlValues, SearchDirection:=xlPrevious).row
Worksheets("sheet1").PageSetup.PrintArea = "$B11:$L" & Lastrow + 1

Dim row As Range

ActiveSheet.ResetAllPageBreaks

For Each row In ActiveSheet.UsedRange.rows
    Select Case row.Cells(8).Text
    Case "Total:"
        ActiveSheet.HPageBreaks.Add Before:=row.Cells(1).Offset(6, 0)
    End Select
Next row

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With

我希望我能正确解释我的问题。谢谢你的时间。

Answer 1

Sub Macro1() 
    Dim lastrow As Long, rngTemp As Range 

    lastrow = Range("H1").Offset(Rows.Count - 1).End(xlUp).Row 
    Set rngTemp = Range("H1") 

    Do While rngTemp.Row <> lastrow 
        Set rngTemp = Range("H1", rngTemp.Offset(80)).Find(What:="Total", SearchDirection:=xlPrevious) 
        rngTemp.Parent.HPageBreaks.Add Before:=rngTemp.Offset(1, -7) 
    Loop 
End Sub

在特定值excel vba之后的每x行添加分页符

1 个答案: