在工作中，我们经常遇到多张工作表合并到一张工作表的问题，比如希望将图1所示中各分表中保存的成绩记录，汇总到工作簿中的"成绩表"工作表中，可以用图2下面的程序。
 
 
图1 七(3)班工作表中的成绩记录
 
 
 
 
图2 汇总结果
 
Sub hebing()     '把各班成绩表中的记录合并到"成绩表"工作表中     Dim sht As Worksheet     Set sht = Worksheets("成绩表")     sht.Rows("2:" & sht.rows.count).Clear      '删除成绩表中的原有记录     Dim wt As Worksheet, xrow As Integer, rng As Range     For Each wt In Worksheets                   '循环处理工作簿中的每张工作表         If wt.Name <> "成绩表" Then             Set rng = sht.Range("A1048576").End(xlUp).Offset(1, 0)             xrow = wt.Range("A1").CurrentRegion.Rows.Count - 1             wt.Range("A2").Resize(xrow, 7).Copy rng         End If     Next End Sub
 
第4行代码意思是将"成绩表"工作表赋值给sht对象，在VBA中，给对象赋值，前面必须加Set关键字。
 
第5行代码中的sht.rows.count表示sht工作表总共有多少行；在VBA中，Rows表示工作表或某个区域中所有行组成的集合。Rows("2:3")表示选中工作表的第2行到第3行。
 
第7行代码中的wt代表工作表集合中的一个工作表，随着循环变换。
 
第9行代码表示wt工作表中数据A列下面的第一个空单元格。Range("A1048576")表示工作表最下面一个单元格。
 
Range对象的End属性返回包含指定单元格的区域最尾端的单元格，返回结果等同于在单元格中按【End+方向键】(上、下、左、右方向键)组合键得到的单元格。
 
Range对象的Offset属性获得相对于安远隔区域一定偏移位置上的单元格区域。Offset(1, 0)表示单元格下面一个单元格。
 
第10行表示A1单元格所在当前区域的行数减1。
 
第11行表示将子表中的数据复制到汇总表的空白区域。
 
Range对象的Resize属性将指定的单元格区域有目的地扩大或缩小，得到一个新的单元格区域。Range("B2").Resize(5,4).Select表示将B2单元格扩展为一个5行4列的单元格区域。
 
 
 

微信公众号：VBA168
 
淘宝店铺地址：https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162
 
关注微信公众号，每天及时接收Excel VBA经典示例讲解。
 
淘宝店铺提供Excel定制服务。
 
祝你工作和学习更轻松！
 
 

excel多张表头相同，合并到一张表中：
 
 
 Sub 工作表合并()
 For Each st In Worksheets
 If st.Name <> ActiveSheet.Name Then
 st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
 End If
 Next
 End Sub

 
 

  
  Visio如何合并多张工作表（将多个文件合并成一个文件）
  
今天有个盆友问了我这样一个问题：手上有3张Visio文件，分别是3张流程图。他想将3个文件做成像excel表那样，有工作表1，工作表2，工作表3的样式。图片效果如下：

  

  

  
将上述3个流程图文件，合并到一个文件里去，如下图：
  
  
  

  

  
实现方法如下：
  
1. 新建一个工作表
  
2. 插入→对象→根据对象创建→浏览文件位置→插入
  
3. 设计→大小→适应绘图
  
OK，如此循环大功告成
  


  

  

  


 
 
 
转载于:https://blog.51cto.com/zuijiangnan/1694678

1、应用场景
 
在大多数情况下，业务数据是每个月通过Excel导入到tableau中进行分析，这应该是一个累加的过程。通常情况，使用连接数据功能，导入一月份数据是一张表，导入二月份数据是另一张表… 12个月即有12张表，当我们需要使用这一整年的数据进行分析时，就必须通过时间维度对12张表进行关联或者UNION ALL。这样做效率低而且麻烦！！如何解决？
 
2、解决方案
 
使用连接数据中的“转换为并集”功能。
 
3、先决条件
 
数据结构需要一致
命名规范
 
4、步骤如下
 
方式1：
 
（1）假设有一份Excel数据，1月份数据是sheet1（订单1），2月份数据是sheet2（订单2），3月份数据是sheet3（订单3），以此类推…
 
 （2）把Excel数据导入到Tableau Destop中
 
 （3）新建并集
 
 （4）在并集编辑页面有2种设置方式：手动和自动。手动方式每次更新只能手动把工作表拖入：
 
 而自动方式是使用通配符自动匹配，从而自动更新。注意命名规范，名称应相同，月份数字1、2、3使用*号匹配：
 
 （5）设置完成后，刷新数据会新增两个字段
 
 （6）当Excel数据源sheet新增或者减少时，自动刷新。
 
 
方式2：
 
（1）假设有3个Excel数据存放在一个文件夹里面，分别是1月、2月、3月，以后会陆续增加数据…
 
 
 
 
 （2）将第一个月的数据导入到tableau destop中
 
 （3）创建并集并设置
 
 （4）完成后表里面会生成两个字段以识别
 
 （5）完毕。