[原创]任意的拆分、合并工作薄和工作表(已升级了分类汇总功能)

shujiandi

好，非常好使，谢谢

lytlxh

好用啊!!!!

dxy27

太谢谢仁兄了！

另外请问，如果用“将同路径下的多张工作薄中的工作表合并到当前活动的工作表”这个宏时想从

某一行开始应该怎么修改呢？（我要合并的表前10行都是表头，第11开始是数据），哪位知道麻烦告诉我，谢谢！

Sub 将同路径下的多张工作薄中的工作表合并到当前活动的工作表()
    Application.ScreenUpdating = False
    Dim lj, dirname, nm
    Dim a As Long
    Dim i As Long
    lj = ActiveWorkbook.Path
    nm = ActiveWorkbook.Name
    dirname = Dir(lj & "\*.xls")
    Do While dirname <> ""
        If dirname <> nm Then
            Workbooks.Open Filename:=lj & "\" & dirname
            a = Sheets.Count  '读当前工作薄中的所有的工作表
            Workbooks(nm).Activate
            For i = 1 To a
                Workbooks(dirname).Sheets(i).UsedRange.Copy Range("a65536").End(xlUp).Offset(1, 0)    '复制新打开的工作簿的第一个工作表的已用区域到rng
            Next i
            Workbooks(dirname).Close False
        End If
        dirname = Dir
    Loop
   
End Sub

彭希仁

分两步走可以搞定

6.将同路径下的多张工作薄中的工作表合并为当前活动工作薄的很多张工作表
1.将一个工作薄的若干工作表任意的合并成一张工作表（可以选择表头行的）

boraid

再次表示感谢～～～～

jlumath

怎么使用呀？

我要将当前活动的工作表拆分成多个工作表，例如将1-465行拆为一个工作表，467-821行为第二个工作表，同样，822-1568，1569-2015，2016-2970...可是一点击宏中的执行，却弹出第一列序号，添加？

怎么回事？

Sub 将当前活动的工作表拆分成多个工作表()
 UserForm4.Show (0)
End Sub

这里的USERFORM4什么意思？

偶是新手，希望得到大家的帮助！

[em17]

彭希仁

[em06]

拆分是需要标识的，例如工作表有36000行，第二列是省份（第一行到1000行是北京，第1001行到2000是辽宁。。。。。。。共36个），这样你就可以按省份进行拆分。

jlumath

哦，看来我的数据还用不了

我的数据是1-30000条，每组一定数目的条数，将这个工作表拆分成多个工作表

彭希仁

你可以加一辅助列来实现啊

煮青蛙

支持！ 可没法下载。