admin 管理员组

文章数量: 1184232


2024年3月27日发(作者:什么叫常量元素和微量元素)

EXCEL重要宏应用,序号的使用方法

EXCEL重要宏应用,序号的使用方法 .............................................................................. 1

1 序号 .................................................................................................................................. 2

1.1 . 希望在B列输入内容,A列就自动进行编号 ........................................................ 2

1.2 . 隐藏行连续 ............................................................................................................. 2

2 安全 .................................................................................................................................. 2

2.1 . 保护工作表 ............................................................................................................. 2

3 宏 ...................................................................................................................................... 2

3.1 . 批量将工作表转换为独立工作簿 ......................................................................... 2

3.2 . 一键汇总各分表数据到总表 ................................................................................. 3

3.3 . 一键将总表数据拆分为多个分表 ......................................................................... 4

3.4 . 汇总多个工作簿的数据到总表 ............................................................................. 6

3.5 . 按一列中的部门拆分成工作簿 ............................................................................. 8

3.6 . 按一列中的部门拆分成工作簿 ........................................................................... 10

3.7 . 将同一工作簿中的所有工作表合并到一个工作表中 ....................................... 12

3.7.1 代码1 .............................................................................................................. 12

3.7.2 代码2 .............................................................................................................. 13

3.8 . 把一个工作簿中的所有表单合并成一个表单,怎么去掉重复的表头、标题

行?方法如下:........................................................................................................... 13

3.8.1 代码1 .............................................................................................................. 13

3.8.2 代码2 .............................................................................................................. 13

3.9 . 将需要合并的工作簿文件放置在一个文件夹中,并新建一个工作簿 ........... 14

1

1 序号

1.1 . 希望在B列输入内容,A列就自动进行编号

在A2单元格中输入公式:=IF(B2="","",COUNTA($B$2:B2))

1.2 . 隐藏行连续

在A2单元格输入公式:=IF(B2="","",SUBTOTAL(103,$B$2:B2))

2 安全

2.1 . 保护工作表

按 Ctrl+G,打开定位条件对话框,选择定位到“公式”;

2、按Ctrl+1,打开单元格设置对话框,在“保护”选项下,勾选“隐藏”和“锁

定”;

3、在“审阅”选项下的“保护工作表”中设置撤销保护的密码,确定,即可达到隐

藏公式的效果。

3 宏

3.1 . 批量将工作表转换为独立工作簿

Sub Newbooks()

'EH技术论坛。VBA编程学习与实践。看见星光

Dim sht As Worksheet, strPath$

With alog(msoFileDialogFolderPicker)

'选择保存工作薄的文件路径

If .Show Then

strPath = .SelectedItems(1)

'读取选择的文件路径

Else

Exit Sub

1


本文标签: 工作 保护 文件 选择 数据