EXCEL中如何提取多个工作表中的数据

EXCEL中如何提取多个工作表中的数据,第1张

工具/材料:Microsoft Office Excel2016版,Excel表格。

1、首先选中Excel表格,双击打开。

2、然后在该界面中,选中“方方格子”里“工作表”里“汇总拆分”按钮。

3、再者在该界面中,选中“汇总大师”选项。

4、之后在该界面中,点击左侧“多簿汇总到一表”选项。

5、接着在该界面中,点击“开始”按钮。

6、其次在该界面中,点击右侧的“添加文件”按钮。

7、接着在该界面中,选中要提取的多个工作表。

8、其次在该界面中,点击右下角的“打开”按钮。

9、之后在该界面中,选择“区域”和“提前数值”。

10、其次在该界面中,点击右下角的“开始”按钮。

11、然后在该界面中,显示提取成功,点击“确定”按钮。

12、最后在该界面中,显示多个工作表中提取的数据。

如果只有两三个文件,可以使用公式实现:打开三个文件,在总xls里面的需要的单元格输入等号=,然后点击别的工作簿、工作表、单元格,最后回车即可。

如果文件数量很多,或者需要获取数据的范围很多,或者需要获取不确定的数据,那么就必须使用VBA编程,例如下面的代码:

Option Explicit

Sub 宏1()

  Dim st As Worksheet

  Dim fn, n

  Set st = ActiveSheet

  For Each fn In Array("axls", "bxls")

      n = stUsedRangeRowsCount + 1

      With WorkbooksOpen(fn)

          Sheets(1)UsedRangeCopy stCells(n, 1)

          Close False

      End With

  Next fn

End Sub

Sub aa()

Dim i As Integer

For i = 2 To 20

WorksheetsAddName = Sheets("sheet1")Cells(i, 1)

Next

End Sub

假如sheet1 A列是工作表名字

1、首先选择“公式”,定义一个名称,还是以定义为“A”为例,引用位值处输入“=getworkbook(1)”,然后点击“确定”。

2、接着在同一个列中同时选择20个单元格(有几个工作表就选择几个单元格),在其中输入公式“=TRANSPOSE(A),然后在键盘上输入输Ctrl+Shift+Enter”,输入后即可看到所有单元格中已经包含了所有的工作表名。

3、选定出现的数据,点复制,点选择性粘贴,数值,再用查找,替换,把工作薄名称去掉,这就可以完成一次性提取excel各sheet名称。

EXCEL必备工具箱是一个的EXCEL插件,点击“安装”后就可以使用,绝大部分功能可以免费使用,与excel完全溶为一体。提供了密码去除、阴阳历转换、将选区存储为、身份z号码校验、工作表排序及生成目录、人工双面打印、专业水准的套表数据汇总、穿透查询等实用功能。

工作表标签上点击右键还增加了轻松隐藏/取消隐藏工作表、工作表导出为文件功能。针对财务人员,还提供了个人所得税、未确认融资费用、按揭贷款/一般贷款利息、各种复利、实际利率法摊销等计算功能。此外,还提供了自动生成分析文档、财务比例计算等模版,来简化你的日常工作。

首先,确定你要得到是工作表名称(类似默认打开文件里的Sheet1、Sheet2……),而不是工作簿名称。

使用VBA方便

随便右击一个工作表标签(左下角),选择“查看代码”或者按 Alt+F11,并双击其中一个Sheet

复制下面的代码:

Sub a()

    For i = 1 To ThisWorkbookWorksheetsCount

        DebugPrint Worksheets(i)Name

    Next i

End Sub

点击F5运行,结果显示在“立即窗口中”,如下图。如果没有看到立即窗口,可以在“视图”菜单找到(或Ctrl+G调出来)

用宏,代码如下

Sub 宏1()

'

' 宏1 宏

'

'

Dim x As Integer

Dim na As String

For x = 1 To SheetsCount

Sheets(x)Select

na = Sheets(x)name

Sheets(x)Copy

ActiveWorkbookSaveAs Filename:="D:\文件\1\" & na, FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindowClose

Next x

End Sub

我是以SHEET名作为新副本的文件名。

其中代码 D:\文件\1 自行改成你需要保存的文件夹,文件夹里面不要有重名的文件。

然后执行宏

1、首先,在系统中找到所在的文件夹,如图所示。2、查看文件夹中文件的格式。3、在确定了大多数文件夹中的格式后,在右上角搜索框,输入" txt"。4、在出现的搜索结果中,按住“ Ctrl+A”选择全部,按住“ Ctrl+C”复制全部,然后,在其他地方新建文件夹,按住“ Ctrl+V”提取所有选择的文件到新文件中即可。5、如果查看不到自己的文件格式,点击左上脚的“工具”-“文件夹选项”。6、-“隐藏已知文件扩展名”就能根据扩展名,来快速将多个文件夹的内容提取到一个文件夹中了。

以上就是关于EXCEL中如何提取多个工作表中的数据全部的内容,包括:EXCEL中如何提取多个工作表中的数据、请问excel大神,如何批量获取指定路径下其他excel文件中数据、Excel怎么根据指定名称批量生成工作表等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9778098.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-01
下一篇 2023-05-01

发表评论

登录后才能评论

评论列表(0条)

保存