av一区二区在线观看_亚洲男人的天堂网站_日韩亚洲视频_在线成人免费_欧美日韩精品免费观看视频_久草视

您的位置:首頁技術文章
文章詳情頁

多個excel文件合并成一個excel表的方法

瀏覽:120日期:2023-08-12 15:10:45

Excel是我們最常用的數據處理軟件,而在我們使用Excel時,常常會處理同一類的數據,例如,我們制作月度報表,那么在年末時我們共積累了1至12月的月度報表,這時我們的Excel的文檔將多達12個,實在不利于我們的保存/分析/使用,那么我們如何將多個Excel文件合并成一個文檔,并且在保留所有的Excel原數據基礎上,做到所有的文檔完全獨立呢,其實我們在Excel中能夠通過宏命令建立多個Sheet頁來實現,還不知道如何操作用戶趕緊來了解一下吧!

多個excel文件合并成一個excel表的方法方步/驟法

1、首先,我們新建一個文件夾,將我們將所有需要合并的“Excel文件”放入其中,并根據自己的需要對其進行排序,然后再此文件夾中新建一個Excel文件(空白Excel文檔),如下圖所示。

多個excel文件合并成一個excel表的方法

2、接著,我們打開這個新建的Excel文檔,進入界面后,我們通過快捷組合鍵“Alt + F11”來打開“宏”。

多個excel文件合并成一個excel表的方法

2、然后我們在菜單欄中選擇“視圖”,然后在下拉菜單中點擊“代碼窗口”。

多個excel文件合并成一個excel表的方法

3、然后在代碼窗口中輸入以下的命令代碼:

Sub sheets2one()

’定義對話框變量

Dim cc As FileDialog

Set cc = Application.FileDialog(msoFileDialogFilePicker)

Dim newwork As Workbook

Set newwork = Workbooks.Add

With cc

If .Show = -1 Then

Dim vrtSelectedItem As Variant

Dim i As Integer

i = 1

For Each vrtSelectedItem In .SelectedItems

Dim tempwb As Workbook

Set tempwb = Workbooks.Open(vrtSelectedItem)

tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, '.xls', '')

tempwb.Close SaveChanges:=False

i = i + 1

Next vrtSelectedItem

End If

End With

Set cc = Nothing

End Sub

多個excel文件合并成一個excel表的方法

4、然后我們點擊操作菜單中的“運行”選項(具體如下圖所示),即可運行以上的宏命令。

多個excel文件合并成一個excel表的方法

5、然后彈出瀏覽窗口,我們在文件夾中選擇我們所需要合并的所有Excel文件,然后點擊“確認”按鈕。

多個excel文件合并成一個excel表的方法

6、等到宏命令合并結束后,,將自動生成一個工作簿,此時用戶即可在下方的Sheet頁中查看到相應的Excel文件,在需要切換文檔時只需要直接選擇即可,如下所示:

多個excel文件合并成一個excel表的方法

7、當用戶需要保存時,只需要點擊文件,然后選擇“另存為”即可完成。

多個excel文件合并成一個excel表的方法

上述的方法就是多個Excel文件合并為同一文檔,且保留所有原數據的方法,其實就是通過建立多個Sheet頁來實現保存為同一文檔,同時達到互不干擾。

標簽: excel
主站蜘蛛池模板: 91精品国产综合久久精品图片 | 午夜影院污 | 日韩中文在线视频 | 亚洲国产免费 | 日韩国产专区 | 天天综合国产 | 国产黄视频在线播放 | 欧美亚洲另类丝袜综合网动图 | 亚洲欧美另类在线观看 | 国产精品亚洲成在人线 | 国产1区 | 国产精品亚洲综合 | www.日韩欧美| 日本啊v在线 | 97超碰免费 | 影音av| 一级黄在线观看 | 亚洲a在线视频 | 伊人热久久 | 亚洲精品二三区 | 久久伊人一区 | 午夜欧美一区二区三区在线播放 | 中文字幕一区二区三区不卡 | 日韩欧美大片 | 操一草| 中文一区二区视频 | 成人99 | 久久高清国产 | 欧美精品片 | 91亚洲精华国产 | 久久综合久久久 | 97色在线视频| 欧美在线看片 | 成人毛片在线观看 | 久久视频精品在线 | 日本成人毛片 | 日韩国产中文字幕 | 伊人精品在线视频 | 福利社午夜影院 | 成人在线视频网站 | 免费久久精品视频 |