利用VBA將excel多個(gè)工作表數(shù)據(jù)快速合并到一個(gè)工作表方法
我要評(píng)論利用VBA將數(shù)據(jù)區(qū)域不定的多個(gè)工作表數(shù)據(jù)快速合并到一個(gè)工作表方法。有需要的朋友可以跟著教程一起來學(xué)習(xí)！
方法/步驟
分別有工作表1、2、3數(shù)據(jù)區(qū)域如下圖所示：
按ALT+F11打開VBE編輯器，在工程窗口下的Microsoft Excel對(duì)象右鍵-插入-模塊，新建一個(gè)模塊1。
輸入如下代碼：
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer</p> flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并數(shù)據(jù)" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并數(shù)據(jù)"
Sheets("合并數(shù)據(jù)").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并數(shù)據(jù)" Then
hrow = Sheets("合并數(shù)據(jù)").UsedRange.Row
hrowc = Sheets("合并數(shù)據(jù)").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并數(shù)據(jù)").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并數(shù)據(jù)").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub
按ALT+F8打開宏對(duì)話框窗口，鼠標(biāo)單擊執(zhí)行hbgzb宏。
實(shí)現(xiàn)如圖所示效果：
注意事項(xiàng)
本段VBA代碼由于將編輯過的區(qū)域作為源數(shù)據(jù)區(qū)域，顧無論該數(shù)據(jù)源有無數(shù)據(jù)，只要曾經(jīng)編輯過皆做為源數(shù)據(jù)源，做拷貝處理。
以上就是利用VBA將excel多個(gè)工作表數(shù)據(jù)快速合并到一個(gè)工作表方法介紹，希望能對(duì)大家有所幫助！
相關(guān)文章
陽歷/農(nóng)歷轉(zhuǎn)換對(duì)照表怎么做? Excel制作日歷表/萬年歷的最終版
想要制作陽歷/農(nóng)歷轉(zhuǎn)換對(duì)照表，，通過這個(gè)對(duì)照表，你只需知道陽歷日期，就可以快速準(zhǔn)確的找到對(duì)應(yīng)的農(nóng)歷日期，下面我們就來看看詳細(xì)制作方法2025-04-10三分鐘就搞定! Excel快速制作一個(gè)日歷表/萬年歷的技巧
工作上需要制作一個(gè)日歷表/萬年歷，該怎么制作呢？我們需要使用三個(gè)excel函數(shù)來實(shí)現(xiàn)，詳細(xì)請(qǐng)看下文介紹2025-04-10這個(gè)函數(shù)公式簡(jiǎn)直太強(qiáng)了! excel按權(quán)重求和計(jì)算的技巧
Excel中有一個(gè)功能非常強(qiáng)大的函數(shù)，它就是SUMPRODUCT函數(shù)，既能求和、計(jì)數(shù)、權(quán)重計(jì)算，還能排名等，今天我們就來看看Excel根據(jù)權(quán)重求和的技巧2025-04-10tocol函數(shù)哪個(gè)版本能用? excel中tocol函數(shù)的兩種高級(jí)用法
TOCOL函數(shù)公式非常強(qiáng)大，值得一學(xué)，從字面意義可以理解出來，它是將數(shù)據(jù)轉(zhuǎn)換成一列的，今天分享TOCOL函數(shù)的2種高級(jí)用法2025-04-10Excel隱藏行和折疊行有什么不同? 隱藏行和折疊使用方法和區(qū)別介紹
excel表格進(jìn)行操作的時(shí)候，發(fā)現(xiàn)有隱藏和和折疊行，看上去效果一樣，都隱藏了，但是兩者是有很大區(qū)別的，詳細(xì)請(qǐng)看下文介紹2025-03-21Excel工齡計(jì)算不再愁! Excel隱藏函數(shù)DATEDIF輕松計(jì)算精確到天級(jí)的工齡
在日常工作中，我們經(jīng)常需要計(jì)算員工的工齡，以便進(jìn)行人事管理、薪資調(diào)整等工作，本文將詳細(xì)介紹如何在Excel表格中計(jì)算工齡，并提供多種實(shí)用方法供您選擇2025-03-13快速提高工作效率! Excel高手的8個(gè)技巧勸你學(xué)學(xué)
Excel數(shù)據(jù)處理遇到的問題，99%都是由于奇葩的數(shù)據(jù)格式造成的，今天跟大家整理了幾個(gè)Excel表格構(gòu)建的規(guī)則,先不要問為什么，照著做就對(duì)了2025-03-06Excel透視表1月到12月不能排序怎么辦? 數(shù)據(jù)透視表日期無法排序解決方法
如圖對(duì)數(shù)據(jù)透視表日期進(jìn)行升序排序后，仍不是我們想要的結(jié)果，有可能月份是文本，不能排列，下面我們就來看看詳細(xì)解決辦法2025-03-06財(cái)務(wù)審計(jì)必會(huì)! 2分鐘搞定用excel做賬齡劃分的技巧
首先咱們得明確一下賬齡的概念，簡(jiǎn)單來說，賬齡就是某個(gè)賬戶的余額從產(chǎn)生到現(xiàn)在的時(shí)間長(zhǎng)度，比如，一年以內(nèi)的賬齡就是那些在過去一年內(nèi)產(chǎn)生的債權(quán)或債務(wù)，下面我們就來看看2025-03-06
實(shí)現(xiàn)辦公自動(dòng)化! DeepSeek搭配Excel制作自定義按鈕的技巧
DeepSeek生成想要的代碼很方便，如果將生成的代碼放到excel中作為vba代碼使用，豈不是能實(shí)現(xiàn)辦公自動(dòng)化？下面我們就來看看實(shí)現(xiàn)方法2025-03-05
