[已解决]如何将总表分成分表，又将分表合成总表？以A列数据为准。

gavincar

想得到如下结果：
将这个总表的数据以班级为单位分成若干个小文件，即每个文件中含有本班的所有信息，文件名为班级名。
如：司法1班.xls、综合1班.xls
生成的每个文件的第一行与总表相同。
注：每个班人数可能不同。
另：能否再将已分的若干个以班级命名的小文件（在同一文件夹下）合并成总表呢？
通过VBA如何实现。

将总表分成：
司法1班.xls
司法2班.xls
行政1班.xls
行政2班.xls
综合1班.xls
综合2班.xls
综合3班.xls

如何再将这些分表再合成总表。

注：例子中有7个班级在实际工作中可能会有更多的班级，十个二十个的。

最佳答案

月排行榜 / 总排行榜

兰色幻想

2012-4-20 16:59

Sub 拆分表()
Dim wb As Workbook '声明一个工作簿变量
Dim r As Integer, k As Integer '声明r为了存放总行数,k是初始行数
Dim x As Integer '循环变量
With ThisWorkbook.Sheets("sheet1") '使用with 语句 后面凡带.的前面都省略了with后的对象
r = Sheets("sheet1").Range("a65536").End(xlUp).Row '获得r的值，即总行数
  For x = 2 To r '在行之间建立循环
    k = x '变量k用来记录初始的值
    Do Until .Cells(x + 1, 1) <> .Cells(x, 1) '如果发现A列的班级上下名称不一样,中止循环
       x = x + 1 '如果名称一样则让x+1，即继续向下循环
    Loop
    '通过上面的循环可以找到本次班级的区域
   Set wb = Workbooks.Add '添加一个excel文件
   .Range("a1:f1").Copy wb.Sheets(1).Range("a1") '拷贝标题行
   .Cells(k, 1).Resize(x - k + 1, 6).Copy wb.Sheets(1).Range("a2") '拷贝内容行
   wb.SaveAs ThisWorkbook.Path & "/" & .Cells(k, 1) & ".xls" '另存新文件
   wb.Close True '保存并关闭新文件
  Next x '继续找下一个班级
End With
End Sub

跳转到最佳答案楼层

兰色幻想

Sub 拆分表()
Dim wb As Workbook '声明一个工作簿变量
Dim r As Integer, k As Integer '声明r为了存放总行数,k是初始行数
Dim x As Integer '循环变量
With ThisWorkbook.Sheets("sheet1") '使用with 语句 后面凡带.的前面都省略了with后的对象
r = Sheets("sheet1").Range("a65536").End(xlUp).Row '获得r的值，即总行数
  For x = 2 To r '在行之间建立循环
    k = x '变量k用来记录初始的值
    Do Until .Cells(x + 1, 1) <> .Cells(x, 1) '如果发现A列的班级上下名称不一样,中止循环
       x = x + 1 '如果名称一样则让x+1，即继续向下循环
    Loop
    '通过上面的循环可以找到本次班级的区域
   Set wb = Workbooks.Add '添加一个excel文件
   .Range("a1:f1").Copy wb.Sheets(1).Range("a1") '拷贝标题行
   .Cells(k, 1).Resize(x - k + 1, 6).Copy wb.Sheets(1).Range("a2") '拷贝内容行
   wb.SaveAs ThisWorkbook.Path & "/" & .Cells(k, 1) & ".xls" '另存新文件
   wb.Close True '保存并关闭新文件
  Next x '继续找下一个班级
End With
End Sub

hxgfkfb

经典，学习            

yiguo

多谢兰版 ，学习先。

jxncfxsf

学习、学习、再学习！不知那天学得会？！但也要屡败屡战！！！

sparkguo

学习了  校长是得心应手啊

lcx22

合并和拆分是办公室必修的游戏，谢谢兰版。

桀骜孤星

我先收藏，然后学习

桀骜孤星

看这意思，班级是连在一起的，未打乱

w2001pf

先看再慢慢消化吧！