多个不规则的数据表怎么用VBA汇总

3190496160

店铺表格设计太过于奇葩了，代码仅仅针对目前上传的文件，仅供参考

chxw68

详见附件。

jiaqitang

感谢各位大佬

For i = 1 To UBound(br) Step 19

这是啥意思？每个人的代码里都有这个。

jiaqitang

3190496160 发表于 2023-2-10 10:35
店铺表格设计太过于奇葩了，代码仅仅针对目前上传的文件，仅供参考

这不是我设计的。这是一个问卷表。收集上来后做分析。结构上对分析不是很方便。但做为问卷表，填起来挺方便。

chxw68

jiaqitang 发表于 2023-2-10 12:30
感谢各位大佬

For i = 1 To UBound(br) Step 19

一个数据块竖向19行，这行的意思是竖向处理完一个数据块后处理下一个数据块。

jiaqitang

chxw68 发表于 2023-2-10 16:20
一个数据块竖向19行，这行的意思是竖向处理完一个数据块后处理下一个数据块。

原来如此，谢谢解答

caiyu93

3190496160 发表于 2023-2-10 10:33
Sub 汇总()
Application.ScreenUpdating = False
Dim br As Variant

这个代码还能再优化,看着像在爬楼梯呢,太搞笑了...

可以用find查找表里的heads 如北京,然后照着模板向下循环即可,比如北京的MergeArea是1-3列,即B3:C3,

每次循环开始前,定位好位置将循环的最大值用end定位一下,这样一个集合范围就出来了比如第一个小table范围是B3:C9,end定位到Row=9,这样的思路去处理,循环次数将大大减少

jiaqitang

chxw68 发表于 2023-2-10 11:07
详见附件。

老师，你代码里这一段是啥意思呀

For Each ws In Worksheets
        If ws.Name <> "summary" And ws.Name <> "note" And ws.Name <> "info" Then
            With ws
                r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
                c = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
                arr = .Range("a1").Resize(r, c)
                ls = .Range("b3").MergeArea.Columns.Count
                m = 0
                For i = 3 To r
                    If .Cells(i, 2).MergeCells And .Cells(i + 1, 2).MergeCells Then
                        m = m + 1
                        ReDim Preserve zrr(1 To m)
                        zrr(m) = Array(i, i)
                    Else
                        If m > 0 Then
                            zrr(m)(1) = i
                        End If
                    End If
                Next

特别是
m = 0
                For i = 3 To r
                    If .Cells(i, 2).MergeCells And .Cells(i + 1, 2).MergeCells Then
                        m = m + 1
                        ReDim Preserve zrr(1 To m)
                        zrr(m) = Array(i, i)
                    Else
                        If m > 0 Then
                            zrr(m)(1) = i
                        End If
                    End If
                Next

m是指什么?

kszcs

蓝桥玄霜 发表于 2023-2-10 10:06
汇总的例子：

B数据不全，不知道原因

jjmysjg

这个是不同标准