将分页符添加到每一行，但出现应用程序或对象定义的错误

Question

For i = 1 To LastRow
If wbkCurBook.Sheets("August FMR").Cells(i, "A").Value = "CTY" Then
wbkCurBook.Sheets("August FMR").Rows(i).PageBreak = xlPageBreakManual
End If
Next i

假设这个循环检查每一行是否有特定的字符串，如果有，则在该行添加分页符。当我运行代码时，它目前没有添加任何分页符。

Answer 1

您的代码试图在第一行也添加分页符，但这不起作用，因为它将分页符放在当前查看的行之上。如果第一行a列中没有CTY值，它对我有效。

如果它是对象定义的，那么您可能没有正确设置工作簿或LastRow。

For i = 1 To LastRow
If wbkCurBook.Sheets("Sheet1").Cells(i, "A").Value = "CTY" Then
wbkCurBook.Sheets("Sheet1").Rows(i).PageBreak = xlPageBreakManual 'add before row
wbkCurBook.Sheets("Sheet1").Rows(i + 1).PageBreak = xlPageBreakManual 'add after row
End If
Next i