Excel vba按指定列号内容插入分页符

Sub Fyf() '按指定列号插入分页符
Dim i%, Co%, Ro%, A%, b%, c%, arr, V As Variant, j%
V = InputBox(prompt:=" 请输入3个列号,不足3个请重复输入,全以"",""分隔", Title:="提示", ypos:=80)
Dim start As Double: start = Timer
On Error GoTo VV
ActiveSheet.ResetAllPageBreaks
Co = Cells(1, 1).End(xlToRight).Column
Ro = Cells(1, 1).End(xlDown).Row
arr = Range("A1:" & Split(Cells(1, Co + 1).Address, "$")(1) & Ro)

A = Range(Split(V, ",")(0) & 1).Column
b = Range(Split(V, ",")(1) & 1).Column
c = Range(Split(V, ",")(2) & 1).Column

For i = 3 To UBound(arr)
arr(i, Co + 1) = 0: arr(i - 1, Co + 1) = 0
If arr(i, A) <> arr(i - 1, A) Or arr(i, b) <> arr(i - 1, b) Or arr(i, c) <> arr(i - 1, c) Then
ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
j = j + 1
End If
Next
MsgBox "共计分页: " & j & "次" & Chr(10) & "共计耗时:" & Format(Timer - start, "0.00") & "秒。"
VV: End Sub

Excel vba按指定列号内容插入分页符相关推荐

Py之Xlrd：Xlrd简介、安装、使用方法(读取xlsx文件的shee表头名/总行数/总列数、每一行的内容、指定列的内容)之详细攻略
Py之Xlrd:Xlrd简介.安装.使用方法(读取xlsx文件的shee表头名/总行数/总列数.每一行的内容.指定列的内容)之详细攻略导读 xlrd,xlwt和xlutils是用Pyth ...
pandas 读取excel文件的指定列
使用 pandas 读取 excel 文件的指定列,可以使用 pd.read_excel() 函数,并通过 usecols 参数指定要读取的列.例如: import pandas as pddf = ...
像 word 手动插入分页符一样实现报表中强制分页（强制分页）
### 概述 – 使用 Word 编辑文档,当文本或图形等内容填满一页时,Word 会插入一个自动分页符并开始新的一页.如果要在某个特定位置强制分页,可手动插入分页符(分隔符内),这样可以确保章节标题 ...
WORD学习之插入分页符
我们在用Word编辑文档时,不可避免的需要对文档进行页面布局,才能使得文档看起来更加美观.有时候会使用到分页符,下面就简单介绍一下分页符分页符主要作用: 1.若要把两段分开在两页显示时,把光标定位 ...
word2007-2010排版中解决段后插入分页符新页首行空行问题
word2007-2010排版中,很多人都会遇到这个问题.当你在段后插入分页符想开启新的一页的时候,新页首行有个空行.如果删除,会连同分页符一起删除.不删除有影响排版美观.那怎么解决呢: 解决办 ...
word插入分页符后在下一页开始出现一个回车符，这个回车符如何删掉，但不影响分页
方法一:只要把光标放到要分页的字前面插入分页符就可以了.比如把1和2分两页显示,只要在2前面插入分页符就可以了. 方法二:将光标放在空白页的下一页的文字最前面,然后按delete键,将文字移动到空白页 ...
①隔若干行插入分页符②排签排版③按条件分页④按行拆分工作表
关于打印与分页的4个高级技巧 ①隔若干行插入分页符,相当于按规律手动分页 ②排签排版,相当于分栏打印 ③按条件分页,使一页中只支持一个类别的数据 ④按行数拆分工作表,从而使用每页都能打印顶 ...
C++操作Word文档——插入分页符
C++操作word文档,向文档插入分页符,进行换页操作 \x0c
world插入分页符后多出一行
上下文背景中文摘要和英文摘要要分页显示,老师要求在中文摘要页面插入分页符之后,中文摘要页的尾部/英文摘要页的头部不能出现空行.比如: 错误的解决办法直接删除英文摘要头部的空行:相当于删除了分页符, ...
excel中VBA获取指定单元格内容
1.筛选指定列获取数据 For Each Rng In Sheets("目录").Range("b1:B23")Debug.Print Rng.ValueIf ...

Excel vba按指定列号内容插入分页符

Excel vba按指定列号内容插入分页符相关推荐

最新文章

热门文章