国产成人精品久久免费动漫-国产成人精品天堂-国产成人精品区在线观看-国产成人精品日本-a级毛片无码免费真人-a级毛片毛片免费观看久潮喷

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

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

瀏覽:76日期: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
主站蜘蛛池模板: 武松大战潘金莲三级在线 | a级精品九九九大片免费看 a级毛片免费观看网站 | 国产三级在线观看免费 | 国产一级性生活 | 亚洲第一成人天堂第一 | 欧美成年黄网站色视频 | 成人黄色免费看 | a国产片| 特级黄色毛片视频 | 在线精品国内外视频 | 国产美女动态免费视频 | 午夜免费毛片 | 色综合天天综合网看在线影院 | 精品国产亚洲一区二区在线3d | 三级视频在线 | 亚洲资源在线播放 | 性亚洲精品 | 亚洲精品国产一区二区在线 | 亚洲国产国产综合一区首页 | 小毛片在线观看 | 香蕉tv亚洲专区在线观看 | 精品综合久久久久久99 | 久久国产精品一国产精品 | 欧美一区二区高清 | 日韩经典中文字幕 | 欧美videofree性欧美另类 | 久久91精品国产91久久户 | 亚洲在线久久 | 欧美日韩加勒比一区二区三区 | 国内精品亚洲 | 久久免费高清视频 | 欧美成人午夜视频免看 | 2022国产精品自拍 | 久久精品青草社区 | 我要看欧美精品一级毛片 | 日韩欧美国产精品第一页不卡 | 亚洲国产精久久久久久久 | 亚洲性久久久影院 | 久久在线免费视频 | 国产精品亚洲玖玖玖在线靠爱 | 成人黄色免费 |