excelvba将工作簿(vba 工作簿)

1. vba 工作簿

你要隐藏哪个工作就写哪个工作表

如

Sub aa()

Sheets("sheet1")

.Visible

= 0

End Sub

这是隐藏sheet1这个工作表的，=2时尝试深度隐藏，=-1时显示工作表，=0时一般隐藏，可在工作表点右键取消隐藏，深度隐藏时，在工作表中不能取消隐藏。

2. EXCELVBA帮助手册

声明全局变量可以在文档任何位置（For循环、If判断内除外）。比如：

Option Explicit

Public a As String

Sub aa()

a = "public"

MsgBox a

End Sub

以上代码可执行。

--------------------------------

Option Explicit

Public a As String

Sub aa()

a = "public"

MsgBox a

Dim i As Single

For i = 1 To 6

Public b As Single

b = i

MsgBox b

End Sub

以上代码提示：

编译错误:

Sub 或 Function 中的属性无效

以上。

3. excelvba怎么使用

首先，得知道，所谓”一步步实现“是什么意思，

如果是想知道代码每一行运行情况，一般用是用来检查修改代码时，可以在VBE中选中代码，再按F8分步执行。

其他情况，得看代码。

4. excelvba跨工作簿引用数据

可用CreateObject函数创建对EXCEL的引用，然后就可打开EXCEL工作簿，将表格中的数据复制到WORD中，参考代码如下：

Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名") .Sheets(1).Range("A1:H8").Copy '粘贴到WORD指定位置End Withxlapp.Quit

5. excelvba帮助文档

建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：

Sub import_from_txt()

Dim file_name As String, my_path As String

Dim lines, cols

Dim i As Integer, j As Integer, k As Integer, q As Integer

Application.ScreenUpdating = False

Worksheets("Sheet1").Range("A1:Z65536").ClearContents

my_path = ThisWorkbook.Path

file_name = "test.txt"

'读取文件

Open my_path & "\" & file_name For Input As #1

lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

Close #1

k = UBound(lines) + 1 '文件的行数

'遍历每一行

For i = 1 To k

cols = Split(lines(i - 1), ",") '以逗号作为分隔，将每行字符分割，分隔符可根据实际情况自己修改

q = UBound(cols) + 1 '分隔成的列数

For j = 1 To q '遍历该行的每一列

Worksheets("Sheet1").Cells(i, j) = cols(j - 1) '输出到表格中

MsgBox ("文件" & file_name & "读取完成,共" & k & "行")

Application.ScreenUpdating = True

End Sub

6. excelvba合并工作簿

看到Excel多表合并，其实常见的有2种场景

场景一：多个Excel文件需要合并为1个Excel文件（多个工作簿合并为1个工作簿）

场景二：1个Excel文件种有多个工作表，需要合并为1个工作表

首先来看下，场景一（多个Excel文件合并为1个文件），都有哪些方法可以实现？

场景描述：如图所示，在文件夹中，有4个Excel文件，每个Excel文件的数据格式都一致，需要把4个Excel文件合并到1个Excel文件中。

每个工作簿中的内容格式都一样，为了区分，我把工作簿1中的位置数据，标为了“工作簿1”；工作簿2中的数据标为了“工作簿2”...以此类推。

下面雷哥推荐几种方法来实现多个Excel文件合并为1个文件

方法1：PowerQuery

Step1：单击【数据】- 【新建查询】 - 【从文件】- 【从文件夹】

Step2：单击【浏览】，选择文件夹路径

Step3：选择【合并并加载】

最终的效果如图所下图所示。自动增加了

Source.Name

数据列，可以很方便看到数据来自于哪个工作簿

方法2：使用CMD命令，1s搞定合并

Step1：需要把文件格式修改为 csv文件格式。打开文件，另存为csv文件即可

Step2：在文件所在路径，按【shift】+右键，点击【此处打开命令窗口】，输入

copy *.csv out.csv，即把该路径下所有的csv文件合并到out.csv文件中。

下面来看下，场景二（多个Excel工作表合并为1个Excel工作簿），都有哪些方法可以实现？

场景描述：如图所示，1个excel文件中，有多个工作表，需要合并到1个工作表中。

方法1：PowerQuery法

Step1：单击【数据】- 【新建查询】 - 【从工作簿】

Step2：选择需要合并的工作表

Step3：在追加查询中，单击【将查询追加为新查询】

Step4：选择所需的工作表

Step5：单击关闭并上载

最终的效果如图所示

方法2：使用宏

Step1：按【Alt】+【F11】

Step2：输入代码，并单击三角形图标运行

Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "小主，数据合并结束啦！", vbInformation, "提示" End Sub

运行效果如下图所示，后续我们删去多余的标题行即可~

方法3：插件法 - 最简单

Step1：使用【方方格子】插件，单击【合并工作表】

Step2：选择汇总区域后，单击确定

最终的效果如下

还是插件最简单，分分钟搞定哈~

雷哥：自媒体【雷哥office】创始人，《竞争力：玩转职场Excel，从此不加班》作者，微软Excel专家认证，office培训师，职场老司机，分享职场经验 / 办公技能 / 提高职场效率！

7. excelvba命令手册

宅家里太无聊了，答一发！全文大约5000字，赶时间的朋友r点赞收藏即可用于日后学习！

作为一名接触Excel有7年历史的运营94年大叔，建议日常的大多数人只需快速系统了解Excel，以后遇到问题再针对性搜索或学习即可。最近整理了Excel的知识点，在这里分享给大家，希望大家都能像下面一样愉快使用Excel。

数据看板应用

条件格式的应用

E00.Excel系统知识大纲

本文内容较长，干货不断，建议小伙伴们点赞收藏后，供日后学习使用~

根据了Excel2016专家认证的考试大纲，结合自己的工作使用，就给大家从管理工作簿、自定义数据格式与验证、Excel函数、Excel图表、数据透视表等5大部分来一一论述。

E01.管理工作簿

这部分的内容主要是接触整体的菜单栏、功能区的熟悉、让我们对Excel整体框架有大概的了解以及如何保护工作簿不被别人修改等等。

E01-1.新建功能区藏着不少模板

【文件】→【新建】就有许多小伙伴不知道的宝贝，因为不少人没有接触过这些地方，只知道工作区域能看见的数值。

E01-2.详细的图文教程

详细清晰的图文教程

E01-3.日常处理工作簿的小技巧

1.设置快速访问工具栏

设置保护密码的表格

取消保护的工作表

还有更多工作簿处理小技巧就不一一论述，详细可以看教程的视频操作，更容易上手啦。

E02.自定义数据格式和验证

单元格是工作表最基本的单位，单元格的格式设置尤为重要，我们主要了解到文本、数值、日期等格式的区别，了解通配符#、*号等应用就OK了。

E02-1.单元格式设置

通过选中单元格右击，或者利用快捷键ctrl+1就能调出【单元格格式设置】，日常用的较多单元格格式设置主要为，日期、文本、数值、货币等几种形式。

利用自定义格式还能设置出别的形式，例如在数值带单位、重复文本等，这方面内容只需了解即可。作为基础无需深入研究。

E02-2.多行多列的转换

我们经常要遇到一些乱糟糟的数据要整理，多行多列转换经常要用到滴。

杂乱无序的多行多列转换

↓↓↓

E02-3.常用Excel快捷键

能熟练应用一些常用快捷键能极大帮助我们提高工作效率，不少小伙伴由于记快捷键太难而放弃使用快捷键，其实整理好规律记快捷键就能极大提高效率。

我整理日常自己用得比价多的快捷键，分别是从A到Z，0到9的运用，帮助大家能记住这些快键键。

上传视频封面

常用Excel快捷键大全

E02-4.条件格式

通过常规的条件格式设置，我们可标记出重点的数据，突出显示某部分的数据。

延伸，通过自定义格式设置，我们还能做出一下的选择交互效果↓

E02-5.批量重命名文件和新建文件夹

日常我们经常遇到要批量把某文件重新按照一定规律，通过bat批处理就能快速解决该问题。

E02-6.设置主题颜色

日常我们可以看到许多大神能做出许多不同配色的方案，其实这种通过主题色设置即可。

多种配色方案设置↓

E03.常用Excel函数

Excel函数是最考验逻辑的功能，也是提极大提高我们工作效率一环。但面对众多的函数不少小伙伴却被吓坏了，其实我们只要掌握核心的4个函数就OK了。vlookup、if，sumifs，countifs四个函数。

常用函数的使用↑

E03-1.IF函数

①单个if函数使用

②多重if嵌套应用↓

③IF/and/OR函数嵌套使用

E03-2.vlookup函数

表达式：=VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)

=VLOOKUP(查找值,查找区域,返回列数,匹配类型)

①正向查找

例子：要找班上一名叫喜洋洋的数学成绩

=VLOOKUP(“喜洋洋”,“成绩表区域”,返回列数,0)

正向查找，我们可以通过改变引用的方式，匹配出多个相对应的结果值。

延伸类型

①逆向查找

表达式：=vlookup(查找值，IF（{1,0}，查找值所在列，结果值所在列）,2,0）

逆向查找其实是构造出新的查找区域↑

例子：你有一个儿子叫哆啦A梦，你去到学校找儿子的，门卫要查找以为名叫哆啦A梦的学号，才能知道儿子在哪个班。

=VLOOKUP($M8,IF({1,0},B:B,A:A),2,0)

因为有数组输入后，需要同时按下，ctrl+shift+enter

得：={VLOOKUP($M8,IF({1,0},B:B,A:A),2,0)}