Excel功能到底有多强大,Excel合并多个文件韦德娱

2019-05-03 22:05 来源:未知

问题:Excel办公无敌手

最近,经常遇到多个Excel文件需要合并成为一个工作表,进行全面的数据分析。于是,小晞开始学习【如何偷懒】。

你的日常工作会接触到Excel吗?

我相信80%的人都会说“YES”。

那你对Excel很熟练吗?

恐怕这个问题大家就不一定能回答的很肯定了。有一点毋庸置疑,Excel的熟练程度决定了工作的效率,尤其是需要处理大量数据的工作。我曾在一个大学同学的研究生宿舍(有点儿饶哈)看到她室友,要给她们班的学生做一年的考勤,我就看她把1月到12月的表一张张复制到一张新的表格里。我问她,万一有100个表让你汇总,你也一张张复制吗?她无奈苦笑道,确实是EXCEL知识太匮乏了,只能用笨方法了。我自己是做财务数据分析的,每天要接触大量数据,很多时候都要把各种表以各种方式汇总,自己也总结了三种常见的汇总方式,与大家分享一下。三种操作就是程序不同,操作方法是一样的,在Excel里的sheet右击鼠标——查看代码—— 复制代码——运行子过程

1、把同一工作簿下的多张表汇总在同一张表

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"

End Sub

2、把同一目录下的多张表汇总到同一工作簿下多张表(需在目录下新建一个工作表)

Sub 工作薄间工作表合并()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

3、把同一目录下的多张表汇总到同一工作簿下一张表 (需在目录下新建一个工作表)

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "" & MyName)

Num = Num 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row 2, 1) = Left(MyName, Len(MyName)

  • 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub     

这是我自己在日常工作中经常用到的三种汇总方式,大大节省了我汇总数据的时间。我自己也是从一个Excel小白慢慢成长起来的,在实际工作中经常会遇到一些难处理的数据,就想Excel能不能快速实现了,我就去百度或者找视频看,Excel从来没有让人失望过,工作两年,Excel成了最亲密的伙伴,我也试着把我自己总结的一些方法和大家分享,互相进步。

回答:

小晞一开始也是使用复制粘贴,复制粘贴,复制粘贴。。。的重复性操作,将多个Excel文件合并成一个Excel文件,可是如果经常性如此操作,将会让人易烦躁。

谢邀!微软Office发展到今天,最新版本Office2019,订阅版本Office365,在我看来Excel的强大完全不体现在Excel画图、开发游戏上面,所谓术业有专攻,画图和开发游戏,自然有更专业的软件,Excel还排不上号,它真正强大的地方在于为职场自动化办公提供了一整套解决方案。

接下来,就是隆重介绍今天小希学到的【偷懒新技能】:

1、Office完整的工具套件,让Excel能够与其他各兄弟软件强强联合

①Excel与WORD的邮件合并功能

我们都知道Word的邮件合并功能,这个功能只有和Excel进行联合,才能发挥它的威力,使得大批量而文档制作成为了可能。

Step1:在Excel表中创建清单

韦德娱乐1946 1

Step2:在Word中使用现有列表(Excel中的列表)进行邮件合并

韦德娱乐1946 2

Step3:设置邮件合并的字段

韦德娱乐1946 3

Step4:完成邮件合并,即可批量生成所有清单中的文档列表。

韦德娱乐1946 4

②Excel与PPT结合,实现报告自动化生成

Excel适合分析数据,但是并不适合展示数据,我们可以将Excel中的数据放入PPT中进行展示,这就是Excel和PPT的联合。

如图,是我做的一个数据分析器,通过在Excel中生成各种需要的数据图表,可以一键将文件转化成PPT格式,从而更形象的展示给听众。

韦德娱乐1946 5

使用VBA对Excel文件进行合并,简单快捷实用。

2、Excel借助VBA语言,能够实现真正意义上的办公自动化

其实编程真心不难,把基本的判断和循环结构搞懂就可以上手,若是VBA的话就更简单了,捷径就是三部曲。

style="font-weight: bold;">1)对预实现的功能手工操作一遍,同时录制宏
style="font-weight: bold;">2)根据录制的宏,更改参数及简单修改代码(加IF或者For循环)。3)搜索引擎各种查,加上根据VBA的提示各种改。

①批量打印

知乎大神何明科在知乎上写过他的经历

“我写的第一个VBA程序就是完成对100多张Excel表格的自动打印,因为是第一个VBA程序,所以比较挫,基本上是宏录制之后来改的,没有使用参考书及搜索引擎,全靠F1和自动提示”

实现的功能就是将每周都要做一次的100多张表格的按顺序打印让机器自动做一遍,而且需要防卡纸:按下一个“妞”,就慢慢美妙结果的发生。

韦德娱乐1946 6

②制作各种管理系统

如图是制作的一个小型酒店管理系统,可以方便管理每一位入住的客人。我也曾经做过一个图书馆管理系统,管理了整个部门200号人的借书、还书。

韦德娱乐1946 7

1. 在需要合并多个Excel文件中的文件夹上,新建一个Excel文件;

3、Excel结合Power系列,让普通人进行大数据分析变得简单

微软PowerBI的出现,让普通用户进行大数据分析(上亿级数据)成为了可能,这是它强大之处的另一方面的体现。

有人总结了学习Power Query(是Power系列组件之一)的性价比,图示如下,大致意思是说:学习Power Query所需的时间最短,但是体现的价值最大。

韦德娱乐1946 8

PowerBI创建的数据分析模型。

韦德娱乐1946 9

这三点可以说是Excel强大的根源,使他成为目前最主流的生产力工具之一,这三个方面中都能挖掘出无数的强大技巧,你说Excel能有多强大呢?


style="font-weight: bold;">「精进Excel」系头条签约作者,关注我,如果任意点开三篇文章,没有你想要的知识,算我耍流氓!

回答:

绝大多数人,都只是把Excel当成一个表格处理工具。其实,Excel真的非常强大,结合函数和VBA等功能,它几乎无所不能。

很多强人脑洞打开,用Excel做了很多匪夷所思的事情。下面,我们就给大家介绍一下世界各国的强人都用Excel干了啥,绝对超乎你的想象!

韦德娱乐1946 10

1、用Excel画画

韦德娱乐1946 11

日本一位老人,用Excel来画画,并且还画得美轮美奂!

韦德娱乐1946 12

新建Excel文件

2、用Excel开发游戏

韦德娱乐1946 13有强人只用Excel就开发出了完整的三国杀游戏,我也是醉了!

2. 打开【新建Excel表】→右击底下的【sheet1】→选择【查看代码】→复制一下代码到编辑器中→运行程序→查看效果

3、用Excel做软件

韦德娱乐1946 14比如有人用Excel做了一套酒店的住房管理软件!

看完这些案例,你的脑洞有没有被打开?

回答:

本人接触Excel已有好多年了,记得那时候还是Excel2003,一眨眼功夫Excel2016已诞生!一开始只会做简单的表格和插图,后来自己参阅了不少关于Excel的书籍,不乏有基础应用方面的,当然也有关于VBA二次开发的。由于自己的喜好,加上名师的指点,自己的Excel技术,尤其是应用技术迈上了新台阶。

自从离开校园,进入职场,自己一直没有放弃对Excel的进一步学习。期间,自己开设了数个讨论群,幸亏网友的努力和无私奉献让自己学习了不少新知识,新应用!正因如此,在职场上,自己有幸拿到了数个不错的OFFER。

在工作期间,自己和团队开发过数个企业级的数据库,为办公白领们设计了较为自动化的表格链接,也结识了不少志同道合的朋友和工作好伙伴。以上都归功于Excel功能强大,它无所不能,只有想不到,没有它不能完成的任务!

当然,由于它还年轻,需要软件开发大咖们继续努力待完成的任务还很多,自己期待它后续更强大,更能为办公的体验带来新的革命!

谢谢!!

回答:

excel的功能到底有多强大,恐怕连开发者自己都不清楚。看到有个新闻一位日本老爷爷用excel作画,你没看错,是用excel作画,而且还卖出了不低的价格。

韦德娱乐1946 15

就是这位老爷爷,堀内辰男,已经77岁了。看看他用excel做的画,有没有惊艳到你。连我用了这么多年的都被吓到了,有木有!

韦德娱乐1946 16

韦德娱乐1946 17

这位爷爷的故事也很励志,他60岁退休后闲在家里,想着找一份自己喜欢的事情来做。

于是,想起自己的爱好画画,想利用画画来充实退休后的时光。当他打算去画室培训班学习时,发现画画所需的材料一年下来的费用不低,为了节省费用,他决定在电脑上用画图软件作画,由于以前工作的上接触过office软件,他决定尝试用excel作画,excel不是专业作图软件,每次作画时他都要一个一个单元格去描绘,恐怕没有比这复杂的了。而这位老爷爷就这样坚持了十几年。他的画也在“Excel自动图形艺术大赛”中得了冠军。正所谓“有志者,事竟成,破釜沉舟,百二秦关终属楚”。他的这种精神也值得现在的年轻人去学习。下面就来好好欣赏他的作品吧!

韦德娱乐1946 18

韦德娱乐1946 19

韦德娱乐1946 20

韦德娱乐1946 21

韦德娱乐1946 22

韦德娱乐1946 23

韦德娱乐1946 24

韦德娱乐1946 25

韦德娱乐1946 26

韦德娱乐1946 27

韦德娱乐1946 28

韦德娱乐1946 29

韦德娱乐1946 30

韦德娱乐1946 31

回答:

Excel就像一把天山寒铁淬炼而成的杀猪刀,本身已经很厉害,但具体有多厉害取决于用它的人。

合并代码:

01 数据管理

表格是什么?表格就是数据容器,对于非IT人士来说,这辈子可能都不会用数据库,但是!Excel让每个人都可以管理数据库了!其提供的基本功能足以完成大部分数据管理统计工作。

韦德娱乐1946 32

Sub 合并当前目录下所有工作簿的全部工作表()

Dim mypath, myname, awbname

Dim wb As Workbook, wbn As String

Dim g As Long

Dim num As Long

Dim box As String

Application.ScreenUpdating = False

mypath = ActiveWorkbook.Path

myname = Dir(mypath & "" & "*.xlsx")

awbname = ActiveWorkbook.Name

num = 0

Do While myname <> ""

If myname <> awbname Then

Set wb = Workbooks.Open(mypath & "" & myname)

num = num 1

With Workbooks(1).ActiveSheet

.Cells(.Range("a65536").End(xlUp).Row 2, 1) = Left(myname, Len(myname) - 4)

For g = 1 To Sheets.Count

wb.Sheets(g).UsedRange.Copy .Cells(.Range("a65536").End(xlUp).Row 1, 1)

Next

wbn = wbn & Chr(13) & wb.Name

wb.Close False

End With

End If

myname = Dir

Loop

Range("a1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & num & "个工作薄下的全部工作表。如下:" & Chr(13) & wbn, vbInformation, "提示"

End Sub

02 隔行填充相同姓名

按ctrl_g打开定位窗口 - 定位条件:空值 - 在编辑栏中输入=B2,然后按Ctrl Enter完成公式填充。

韦德娱乐1946 33

韦德娱乐1946 34

03 用来画像素画

只要把格子调到宽高一致即可,矢量画亦可

韦德娱乐1946 35

代码粘贴处

04 根据格式化信息,生成标准的word文件

通过下图的Word VBA,完成主要的交互界面并连接计算软件。在通过简单的交互获取主要信息后,在后台完成计算并将主要信息填写入八股文的word模版,最终完成报告,同时将结构化的信息存入Access数据库。

韦德娱乐1946 36

总之,Excel真的是强大到没谁了。

回答:

Excel 在 1000 个大神手里,就有 1000 种用法。

不信?睁大你的眼睛看好咯 ~

韦德娱乐1946 37

NO. 1 爱情买卖

网络有云,女追男,隔层纱,男追女,加个妈!

在这个颜值就是正义,房产就是实力的时代,最牛丈母娘横空出世,亲手建立相亲数据库!

韦德娱乐1946 38

27 项评分标准,包含 18 项人格测试、星座命理、教育背景、资产信息、婚姻状况等等等等。

明确分类,综合打分,一点都不含糊!

「论选人的毒辣眼光,和俺老娘相比,在座的各位都是垃圾!」——最牛丈母娘内心OS

ㄟ( ▔, ▔ )ㄏ

可是……你有张良计,我有过墙梯啊。

女婿们也不是吃素的好么。

天涯社区上就有一位男同胞,用 Excel 表格详细记下了每个相亲对象及与其约会的信息。从表格中的信息来看,第19个在谈。

韦德娱乐1946 39

天涯跟帖纷纷祝福祝福这位极品……永远单身。

嗯,30 好几的人,各项条件蛮好还单身,是有原因的!

Excel 表示这个锅不背!

ヽ( ̄▽ ̄)ノ

合并结果

NO.2 点餐不愁

在写字楼里上班,每天中午最烦的事情是啥?

今天中午吃什么?

今天中午吃什么?

今天中午吃什么?

……

Wuli 帅到掉渣的 Excel 课程老师常子冠老师,也 hin 为这个头疼呀~

于是就用 Excel 表格做了个点餐宝。

韦德娱乐1946 40

竟然还分单身汪、情侣档、家庭装三个档,真是不放过任何一个暴击单身汪的机会啊!

每到午餐时间,常老师就淡定的按下:

韦德娱乐1946 41

中午吃什么?阿弥陀佛,让上天来决定吧!

End. To be continue!

NO.3 打了个码

现在随处可见二维码,去菜市场买个菜、去水果摊买根香蕉、去小店买瓶水都是扫码支付。

每次我掏出钱包,想要给一张毛爷爷,小哥大娘们都是一脸鄙视。

网络上就有位大神用 Excel 做了个二维码生成器,只要点个按钮,输入内容,就会自动将内容生成二维码。

我实在忍不住好奇,也生成了一个,差点没惊掉下巴。

我勒个去,竟然不是图片版,是活生生的一份表格啊!

如果你喜欢鄙文,那就在右下角点个喜欢吧,你的鼓励是我最大的动力来源,在此小晞表感恩。

NO.4 忙里偷闲

我不想我不想我不想上班!

我不想我不想我不想加班!

我只想拿工资吃大餐!

韦德娱乐1946 42

哎……现实总是那么残酷

..(。•ˇ‸ˇ•。)…

可就是有这么一班闲!人!

为了躲过老板,能够在上班时打发时间,竟然用 Excel 做游戏。比如,《愤怒的函数公式》:

韦德娱乐1946 43

比如,《 Excel 版 2048》:

韦德娱乐1946 44

别以为只有国外的大神会用 Excel 做游戏。

在当年三国杀刚火, Office 还是 2003 版的年代,国内就有位牛人用 Excel 开发了一款游戏叫做:Excel 三国杀!

老板远远一看,还以为他日夜奋战是在做表,真相却是这样的:

韦德娱乐1946 45

尼玛,想玩游戏想疯了这是!

为了写这篇稿子,我又特地去搜了一下 Excel 三国杀。结果人家直接改名叫 Excel 杀了,还开发成了安卓版游戏 App。

韦德娱乐1946 46

服!Orz

不过这些游戏都太烧脑,而且玩起来太费时,一不小心沉迷进去被老板抓包了可怎么办哟。

要比无聊,下面这位老大爷说第一,就没人敢称第二!

如果您也在学习excel,我们可以互相关注,相互学习的呦。Go!Go!Go!

NO. 5 无聊至极

请先欣赏一幅工笔画:

韦德娱乐1946 47

是不是很漂酿?对,你猜得没错!

竟然是用!Excel!画!的!

韦德娱乐1946 48

这是一位日本老大爷用 Excel 形状实打实地画出来的!这位大爷之前对电脑是一窍不通,后来在空闲时间学习电脑,刚好电脑上自带 Excel 软件,于是就一点一点钻研,练就了这一手非常极其无敌罕见又厉害的绝技!

韦德娱乐1946 49

对,就是他!

凭借这一手绝技,这位日本老大爷很早以前就已经成为风靡全球的网红了。

不信?你百度搜一搜「 Excel 画画」就知道了。

我只想说,大爷,你用 Excel 画画都这么厉害,让那些学画画的怎么办啊?

我很好奇(真好奇宝宝),到底有多少人会像老大爷一样拿 Excel 来画画。

回答:

实在还没有领略过它的强大;

不过附上大神用Excel的美术画作:

韦德娱乐1946 50

韦德娱乐1946 51

韦德娱乐1946 52

韦德娱乐1946 53

韦德娱乐1946 54

回答:

excel为我们提供了很多好用的功能和函数,但还是有很多工作无法用现有功能和函数批量完成,而借助VBA语言编写的宏代码,这些看似无法批量处理或无法完成的事情,瞬间变得只是小菜一碟。

1、一次取消所有工作表的隐藏

Excel可以一次隐藏多个工作表,但取消工作表隐藏却需要一个个的设置,用VBA编写一段代码,一秒完成!

注意

  • 要想使用VBA功能,需要把代码粘贴到添加的模块中,详见动画演示

  • 要想保存VBA代码,需要把文件另存为xlsm格式文件,详见动画演示

动画演示:

韦德娱乐1946 55

代码:

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来说,只需点一下按钮即可瞬间完成。

韦德娱乐1946 56

代码:

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月文件夹中。

拆分演示(在拆分过程中会画面会停几秒,请耐心等待)

韦德娱乐1946 57

代码:

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文件中,以单独的工作表存放。

韦德娱乐1946 58

代码:

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

更多财会Excel技巧和财税要闻,欢迎关注秀财网(xiucaiweb)

回答:

虽说Excel耍酷是一流的。

但Excel的商业性才是巨大宝藏。

很多人因为看了酷炫而学,只是看到了表面。

另外,随着时间推移,有些技术是被更新的。

VBA就是一个最强大又最不需要去学的,可以假装高手的高手都在用这个耍酷。

回答:

要把记录从主数据库中提取出来,按照固定格式,分类打印在一张表上,不知道excel怎么才能一键实现,我感觉很难,复制粘贴记录的做法就不用再说了。excel不论功能多强,也只是让你的表格更好看而已。

TAG标签: 韦德娱乐1946
版权声明:本文由韦德娱乐1946_韦德娱乐1946网页版|韦德国际1946官网发布于韦德娱乐1946,转载请注明出处:Excel功能到底有多强大,Excel合并多个文件韦德娱