Excel VBA(宏)有多强大?看了这几个Excel功能就服了!
发布时间:2023-04-17 10:17:13
excel为提供了很多好用的功能和函数,但还是有很多工作无法用现有功能和函数批量完成,比如多个excel表格的合并与拆分,而借助VBA语言编写的宏代码,这些看似无法批量处理或无法完成的事情,瞬间变得只是小菜一碟,也许你不懂VBA,也建议先收藏起来这些代码备用。
(第1个示例中,演示了VBA代码的使用方法,后面示例均和第1个类似,不再具体演示)
1、一次取消所有工作表的隐藏
Excel可以一次隐藏多个工作表,但取消工作表隐藏却需要一个个的设置,用VBA编写一段代码,一秒完成!
注意
要想使用VBA功能,需要把代码粘贴到添加的模块中,详见动画演示
要想保存VBA代码,需要把文件另存为xlsm格式文件,详见动画演示
动画演示:
代码:
Sub 取消隐藏()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "总表" Then
Sheets(x).Visible = -1
End If
Next x
End Sub
Sub 隐藏()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "总表" Then
Sheets(x).Visible = 0
End If
Next x
End Sub
2、根据模板批量生成日报表
根据模板批量生成报表,没什么好方法,只能一个一个的复制然后修改名称。但这对VBA来说,只需点一下按钮即可瞬间完成。
代码:
Sub 生成报表()
Dim x As Integer
Dim sh As Worksheet
For x = 1 To 31
Set sh = Sheets.Add
With sh
.Name = x & "日"
Sheets("日报模板").Range("1:15").Copy sh.Range("A1")
End With
Next x
End Sub
3、拆分工作表为单独的excel文件
把当前excel文件中除第1个工作外的所有工作表,均保存为单独的excel文件到3月文件夹中。
拆分演示(在拆分过程中会画面会停几秒,请耐心等待)
代码:
Sub 拆分表格()
Dim x As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For x = 2 To 32
Sheets(x).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Path & "/3月/" & Sheets(x).Name & ".xlsx"
.Close True
End With
Next x
Application.ScreenUpdating = True
End Sub
4、合并多个Excel文件工作表到一个文件中
3月文件夹下有N张报表,要求把该文件夹中所有excel文件的第1个工作表合并到当前的excel文件中,以单独的工作表存放。
代码:
Sub 合并表格()
Dim mypath As String
Dim f As String
Dim ribao As Workbook
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & "/3月/"
f = Dir(ThisWorkbook.Path & "/3月/*.xlsx")
Do
Workbooks.Open (mypath & f)
With ActiveWorkbook
.Sheets(1).Move after:=ThisWorkbook.Sheets(Sheets.Count)
End With
f = Dir
Loop Until Len(f) = 0
Application.ScreenUpdating = True
End Sub
猜你喜欢
- 打开文件。选择显示1900-01-01的单元格。选择格式,最后一个自定义格式。在原有格式后边增加 空格;空格; (两个
- 在利用Excel进行数据处理时,有时需要输入大量重复或有规律的数据,使用Excel2003的自动填充功能输入数据,可以方便输入这些数据,节省
- 日常所见,工作汇报或者演讲者演讲用的都是PPT,而不是Word?那是因为Word是文字处理应用程序,大部分由文字组成,整篇文档繁冗,而PPT
- 有时候,我们会遇到这样一个问题,下载的一些资料中标点使用很不规范,比如文中许多引号都是英文半角状态下的直引号(””),明明是一段中国文字,却
- excel2016怎么使用IF函数判断数据是否符合条件?excel2016表格中想要知道数据是否符合条件,该怎么判断呢?下面我们就来看看使用
- 输入公式必须以等号“=”起首,例如= Al+A2,这样Excel才知道我们输入的是公式,而不是一般的文字数据。现在我们就来练习建立公式,我们
- 书法是我们的传统文化之一,我们小学的时候都会有书法课,那么在word文档中怎么插入书法字帖?下面小编就为大家介绍一下,来看看吧在word文档
- 如何删除word文档属性和个人信息?1、首先查找下文档在电脑磁盘的位置,找到后在WORD文档上单击鼠标右键,选择属性。 2、弹出 属性 对
- excel是我们常用的办公软件,有时会用到打印功能,那么excel如何调整打印预览的大小?下面小编带来打印预览调整大小的设置方法,希望对大家
- 虽说Word是一款大家时常使用的文档编辑软件,但我们在使用的过程中还是经常会出现卡顿无法使用的情况,那么我们在遇到这种问题应该如何去解决呢?
- 因为工作需要我需要装VS 2008、VS 2010和VS 2015 编程软件,导致和office部分组件冲突,打开Excel一直会先“正在配
- Word剪贴板可存储从任意位置复制或剪切的文本和图形,并允许将存储的项目粘贴到任何其他Office文件中。那么,word剪贴板如何查看和清空
- 步骤:1. 备份.pages文件以防你把它搞坏,2. 右键点击.pages文档,然后选择“重命名” ,3. 删除“.pages”扩展名,并用
- Word怎么将文字转化成表格?打开Word 2007文档,为准备转换成表格的文本添加段落标记和分割符(建议使用最常见的逗号分隔符,并且逗号必
- excel2016中想要跟换主题的颜色,不喜欢自动配置的颜色,该怎么更换呢?excel中有三种颜色可选,今天我们就来看看将excel主题设置
- 一说到Word办公,很多人会觉得很简单,可是一遇到问题,就感觉非常难,今天给大家分享word双横线下划线怎么打的技巧。1、双横线下划线如果要
- 如何在Word 2013中设置段落格式?Word 2013提供的许多格式设置选项包括格式化整个段落的方法,而不仅仅是单个单词或句子。您可以
- 很多的朋友,看到Word中的流程图,条条框框的以为很难画,其是只需要六步就可以搞定了。大家不要以为小编是在开玩笑,你一看便知。第1步:打开W
- 如何退出Microsoft Word 2010?就像您有多种启动Word 2010的方式一样,您可以通过多种方式退出Word。您可以直接退出
- 1.在编辑区击右键,选择“项目符号及编号”;2.选择“多级符号”选项卡;3.点选第一行二列的大方框,再点击右下角的“自定义”按钮;4.对一级