求大神帮帮忙！！！！！

jinriwang

大家好,之前想合并表格的，上论坛看了但是没看懂！下面就是我看的那个，能请大神们帮我写清楚点吗？我是个菜菜鸟，求大神们一个一个步骤写下，尽量清楚点  谢谢了  

本帖最后由 lzwubin 于 2014-3-17 17:56 编辑 解决问题为最终目的！         各月的销售记录、各班的学生成绩、各分支机构的人员档案信息、各分支机构的缴费基数表，这些数据常在EXCEL工作表中储存，常需要把这些记录合并到一起，进行进一步的分析、利用。         合并工作表记录，是数据业务中常见的业务。但如果采用一个表一个表的复制、粘贴，工作量大。         现以一个企业集团所属企业养老保险缴费基数核定表为例进行说明。         一、 企业养老保险缴费核定表表样： 2014-3-17 00:20 上传 下载附件 (73.54 KB) 2014-3-17 00:21 上传 下载附件 (95.56 KB) 2014-3-17 00:21 上传 下载附件 (80.09 KB) 二、汇总表表样： 2014-3-17 00:21 上传 下载附件 (101.97 KB) 三、通过两个按钮，分别指定宏。在EXCEL VBA环境中插入两个模块，图示、代码如下： 2014-3-17 00:21 上传 下载附件 (76.64 KB) Sub hebing() '把各单位缴费基数核定表合工到“汇总”工作表中 Rows("2:65536").Clear   '删除所有记录 Dim sht As Worksheet, xrow As Integer, rng As Range For Each sht In Worksheets   ‘遍历工作表     If sht.Name <> ActiveSheet.Name Then        Set rng = Range("a65536").End(xlUp).Offset(1, 0) ‘获得A列第一个空单元格        xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1  ' 获得分表中的记录条数        sht.Range("a2").Resize(xrow, 10).Copy rng  '复制记录到汇总表     End If Next End Sub Sub 清除() Rows("2:65536").Clear End Sub 四、执行后结果 2014-3-17 00:21 上传 下载附件 (168.19 KB)

yaozong

要上个表式的附件（不是图片），方便测试。

jpj123

建议你上传附件!