多工作表数据汇总求大佬帮忙

sparrowhawk2007 · 发表于 2020-3-4 01:41

情况说明：
1、工作表有12个月，也有可能只是7、8个月，每个月的编号不一定一致。每个工作表大概300行，列数不固定，多的时候有200列。
2、货物名称每个月都不一样（也有可能是一样的，但汇总的时候还是按月来汇总）。
3、表中所有的数据区域都是文本格式的，系统导出的数据那怕是空数据都是含有’的

需求：
1、把所有的数据按编号汇总到一个新表，并保留原来的列名（即货物名称）
具体情况等打包上传了，麻烦各位老师帮看看怎么写代码，先谢谢各位老师

约定的童话 · 发表于 2020-3-4 09:31

本帖最后由约定的童话于 2020-3-4 10:08 编辑

解题思路：先多表循环，提取不重复的编号跟姓名作为BC列，同时提取月份作为行，组件一个大框架，然后再工作表循环匹配数据填到数组赋值单元格，还是比较麻烦的

3190496160 · 发表于 2020-3-4 10:19

多工作表循环，字典匹配即可，也倒没有难度，只是麻烦

3190496160 · 发表于 2020-3-4 10:46

Sub 字典汇总()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("得到的新表样式")
.UsedRange.Offset(3) = Empty
y = .Cells(3, Columns.Count).End(xlToLeft).Column
ar = Range(.Cells(1, 1), .Cells(5000, y))
For j = 4 To UBound(ar, 2)
      If Trim(ar(1, j)) = "" Then
         ar(1, j) = ar(1, j - 1)
      End If
Next j
For j = 4 To UBound(ar, 2)
      s = Trim(ar(1, j)) & "|" & Trim(ar(3, j))
      d(s) = j
Next j

k = 3
For Each sh In Sheets
      If sh.Name <> "需求" And sh.Name <> "得到的新表样式" Then
         br = sh.[a1].CurrentRegion
         For j = 1 To UBound(br, 2)
            If Trim(br(1, j)) = "" Then
                  br(1, j) = br(1, j - 1)
            End If
         Next j
         For i = 4 To UBound(br)
            If Trim(br(i, 2)) <> "" And Trim(br(i, 3)) <> "" Then
                  s_1 = Trim(br(i, 2)) & "|" & Trim(br(i, 3))
                  t = d(s_1)
                  If t = "" Then
                     k = k + 1
                     d(s_1) = k
                     t = k
                     ar(k, 1) = k
                     ar(k, 2) = br(i, 2)
                     ar(k, 3) = br(i, 3)
                     For j = 4 To UBound(br, 2)
                        If Trim(br(3, j)) <> "" Then
                              m = d(Trim(br(1, j)) & "|" & Trim(br(3, j)))
                              If m <> "" Then
                                 ar(k, m) = br(i, j)
                              End If
                        End If
                     Next j
                  End If
            End If
         Next i
      End If
Next sh
.[a1].Resize(k, UBound(ar, 2)) = ar
End With
End Sub

3190496160 · 发表于 2020-3-4 10:47

好用请给小花

多工作表数据汇总.rar (32.06 KB, 下载次数: 16)

sparrowhawk2007 · 发表于 2020-3-4 14:06

3190496160 发表于 2020-3-4 10:47
好用请给小花

老师，我是需要从工作表1、2、3、4、5------等表汇总到一个新表中。得到的新表样式是我举的一个例子，而且各个工作表的列数是不固定的，行数也是不固定的

sparrowhawk2007 · 发表于 2020-3-4 14:08

sparrowhawk2007 发表于 2020-3-4 14:06
老师，我是需要从工作表1、2、3、4、5------等表汇总到一个新表中。得到的新表样式是我举的一个例子，而 ...

现在代码得到的数据：例如张三只是得到了1月的数据，并没有得到2月 3月的数据

3190496160 · 发表于 2020-3-4 15:09

sparrowhawk2007 发表于 2020-3-4 14:08
现在代码得到的数据：例如张三只是得到了1月的数据，并没有得到2月 3月的数据

等有时间再看看吧，比较麻烦的

vic9 · 发表于 2020-3-4 17:17

本帖最后由 vic9 于 2020-3-4 20:37 编辑

没有单元格合并

abc123281 · 发表于 2020-3-4 19:16

多工作表数据汇总 - 副本.rar (37.54 KB, 下载次数: 20)

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

多工作表数据汇总求大佬帮忙

评分

最新热点 /1