EXCEL工作表汇总

lws00289 · 发表于 2012-2-14 18:28

本帖最后由 lws00289 于 2012-2-14 20:29 编辑

各位高手，请帮忙把EXCEL中的所有数据先合计然后汇总到“总表”中，达到与WORD的内容一样

wq0804 · 发表于 2012-2-14 18:35

电子表格在哪？？

mjzxlmg · 发表于 2012-2-14 20:16

你这样的表格要请大神看能不能搞定
表格中间有合并单元格，且无规律，处理难度很大。

lws00289 · 发表于 2012-2-14 20:18

不好意思，把附件重新上传

lws00289 · 发表于 2012-2-14 20:22

mjzxlmg 发表于 2012-2-14 20:16
你这样的表格要请大神看能不能搞定
表格中间有合并单元格，且无规律，处理难度很大。

不一定要完全跟WORD版本一样，只要汇总到总表中就行

mjzxlmg · 发表于 2012-2-14 20:35

本帖最后由 mjzxlmg 于 2012-2-14 20:37 编辑

lws00289 发表于 2012-2-14 20:22
不一定要完全跟WORD版本一样，只要汇总到总表中就行

单纯是汇总几句代码就可以完成。

但上面说了，total表格中有合并单元格，数据在一个单元格，其它则是在不同单元格，很不好取数。要处理需要太多的判断，

lws00289 · 发表于 2012-2-14 20:40

mjzxlmg 发表于 2012-2-14 20:35
单纯是汇总几句代码就可以完成。

但上面说了，total表格中有合并单元格，数据在一个单元格，其它则是在不 ...

谢谢MJZXLMG热心帮助，我的首要目的是把所有表汇总到总表中，然后才是格式上的要求

mjzxlmg · 发表于 2012-2-14 20:45

本帖最后由 mjzxlmg 于 2012-2-14 20:59 编辑

lws00289 发表于 2012-2-14 20:40
谢谢MJZXLMG热心帮助，我的首要目的是把所有表汇总到总表中，然后才是格式上的要求

下面的代码可以汇总各工作表，但是Table 3、Table 18的第一行有标题，且中间有一行30号、140号是合并单元格，留空也不一致，不好处理。182号错位；

Sub 总表()
Dim i&, Myr&, Arr, j&, m&, Brr(1 To 10000, 1 To 27)
Dim Sht As Worksheet
For Each Sht In Sheets
If Sht.Name <> "总表" Then
      Myr = Sht.Cells(Rows.Count, 1).End(xlUp).Row
      Arr = Sht.Range("a1:aa" & Myr)
      For i = 1 To UBound(Arr)
            m = m + 1
            For j = 1 To 27
                  Brr(m, j) = Arr(i, j)
            Next
      Next
End If
Next
Sheets("总表").[a3].Resize(m, 27) = Brr
End Sub

重新上传.rar (176.87 KB, 下载次数: 59)

lws00289 · 发表于 2012-2-14 20:57

MJZXLMG，非常感谢你，正是我要的效果

		自动登录	找回密码
密码			免费注册

[求助] EXCEL工作表汇总