Excel办公神技之---对同一文件夹下的所有工作簿快速合并-办公文件夹

Excel办公神技之---对同一文件夹下的所有工作簿快速合并

头条号名称

亲爱的读者,Excel爱好者:

大家新年好!

在实际工作中,我们是否经常遇到许多的工作簿需要合并在一起的情形呢?

我想答案是肯定的。特别是大量工作表的内容结构十分相似的情况下,这就需要我们对其做合并工作,以便我们进行统计工作。

要是工作表张数不多的情况下(3-5张工作表),我们可以用复制一张工作表,再把它粘贴到一新的工作表中。问题关键是如果工作表张数特别多,甚至数百上千张工作表的情况下呢,这种复制粘贴的老法子是不是非常的恐怖呢?

朋友们,读者们,不用害怕!

现在就和大家分享一种超级使用,快速合并工作表的方法。

代码如下:

Sub CombineWbs()

Dim bt As Range, r As Long, c As Long

r = 1

c = 7

Dim wt As Worksheet

Set wt = ThisWorkbook.Worksheets(1)

wt.Rows(r + 1 & ":1048576").ClearContents

Application.ScreenUpdating = False

Dim FileName As String, sht As Worksheet, wb As Workbook, WbN As String

Dim Erow As Long, fn As String, arr As Variant, Num As Long

FileName = Dir(ThisWorkbook.Path & "\*.xlsx")

Num = 0

Do While FileName <> ""

If FileName <> ThisWorkbook.Name Then

Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1

fn = ThisWorkbook.Path & "\" & FileName

Set wb = GetObject(fn)

Set sht = wb.Worksheets(1)

Num = Num + 1

arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 7))

wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

WbN = WbN & Chr(13) & wb.Name

wb.Close False

End If

FileName = Dir

Loop

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub

'以上代码,只要复制粘贴到Excel开发工具下的工程编辑窗口下,然后点击运行按钮,就可以快速实现上述功能了。

如果喜欢这篇文章,请点赞。如果有好的建议,请发表评论。

谢谢大家宝贵的时间!!

温馨提示:(1)需要合并的工作簿和执行合并的活动工作簿,二者必须在同一文件夹下;

(2)需要合并的工作表内容及结构相似。

推荐阅读

    excel怎么用乘法函数

    excel怎么用乘法函数,乘法,函数,哪个,excel乘法函数怎么用?1、首先用鼠标选中要计算的单元格。2、然后选中单元格后点击左上方工具栏的fx公

    wps如何合并章节

    wps如何合并章节,WPS教程,1.WPS表格如何实现单元格合并?WPS 表格在新版本中增加了“合并单元格”系列按钮,同时配有下拉菜单和快捷键。新增

    查看配置:酷睿i3530集展示办公平台

    查看配置:酷睿i3530集展示办公平台,,由于时间和精力的关系,我们不可能对所有的配置进行评论,希望我们能理解,我希望我们的评论能在那些需要帮

    excel中乘法函数是什么?

    excel中乘法函数是什么?,乘法,函数,什么,打开表格,在C1单元格中输入“=A1*B1”乘法公式。以此类推到多个单元。1、A1*B1=C1的Excel乘法公式

    如何把老版本的excel更新换代?

    如何把老版本的excel更新换代?,更新换代,版本,如何,对于Excel来说,老版本的Excel更新换代要从软件工具更换、知识准备、应用环境配套3个角度

    标准差excel用什么函数?

    标准差excel用什么函数?,函数,标准,什么,在数据单元格的下方输入l标准差公式函数公式“=STDEVPA(C2:C6)”。按下回车,求出标准公差值。详细

    EXCEL如何统计个数?

    EXCEL如何统计个数?,个数,统计,如何,关于计数,最常用的就是Cout系列函数和Sumproduct函数。一、Count。功能:统计指定范围中数值类型值的个数

    EXCEL数据透视表怎么用?是干什么的

    EXCEL数据透视表怎么用?是干什么的,透视,干什么,怎么,excel透视表:数据透视表(Pivot Table)是一种交互式的表,可以进行某些计算,如求和与计数等