电脑教程
位置:首页>> 电脑教程>> office教程>> excel中如何将多个sheet合并成一个

excel中如何将多个sheet合并成一个

  发布时间:2023-05-31 22:20:14 

标签:excel,中,如何,将,多个,sheet,合并,成,一个,为了

excel中如何将多个sheet合并成一个

为了实现将无数个有相同数据格式的excel表文件合并到一个excel的一个工作簿里面去方便进行后续的筛选,提取数据,分析等等。

需要分两步走:

第一步:将所有的excel合并到一个excel之中;刚才的多表之中的内容化身为现在的一个表,下边的多个sheet。

第二步:把这个excel之中的多个sheet合并到一个sheet之中。

需要的基础软件:拥有VBA的excel软件,可以用微软的包含有VBA的office,也可以用国产的wps之中的专业版。

下边说具体步骤

一 不同表合并到一个有很多sheet的表里

1、新建一个工作薄,将其命名为你合并后的名字。

2、打开此工作薄。

3、在其下任一个工作表标签上点击右键,选择“查看代码”。(wps的该按钮在开发工具下)

4、在打开的VBA编辑窗口中粘贴以下代码:

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

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

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com