多区域分类汇总

longer10010

因工作中遇到大量多区域数据，需要将里面的数据分类汇总，哪个高人有空帮忙看看，谢谢！

longer10010

忘了说下，用VBA来实现

feilanga

很明显，你我理解的分类汇总不一样

飞天篮球猪

半百

ykcbf1100

刚开始看错了，以为是分类汇总，后来看了效果图，才发现是数据合并，代码又推倒重写了。
被标题误导了。

ykcbf1100

数据合并。。。

1. Sub ykcbf()   '//2024.7.17
   
2.     With Sheets("批次")
   
3.         r = .Cells(Rows.Count, "s").End(3).Row
   
4.         arr = .[s1].Resize(r, 9)
   
5.     End With
   
6.     ReDim brr(1 To 100000, 1 To 3)
   
7.     For j = 3 To 8 Step 3
   
8.         For i = 3 To UBound(arr)
   
9.             s = arr(i, j) & "|" & arr(i, j + 1)
   
10.             If Trim(arr(i, j)) <> Empty Then
    
11.                 m = m + 1
    
12.                 brr(m, 1) = arr(i, j)
    
13.                 brr(m, 2) = arr(i, j + 1)
    
14.                 brr(m, 3) = arr(i, j + 2)
    
15.             End If
    
16.         Next
    
17.     Next
    
18.     With Sheets("汇总")
    
19.         .UsedRange.Offset(1).Clear
    
20.         With .[a2].Resize(m, 3)
    
21.             .Value = brr
    
22.             .Borders.LineStyle = 1
    
23.             .HorizontalAlignment = xlCenter
    
24.             .VerticalAlignment = xlCenter
    
25.         End With
    
26.         .[a2].Resize(m, 3).Sort .[b2], 1
    
27.     End With
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码

longer10010

feilanga 发表于 2024-7-17 09:04
很明显，你我理解的分类汇总不一样

嗯，忘了汇总，您的思路是对的，对了再请教一下， 能不能把汇总表中编号、长度排序

longer10010

飞天篮球猪 发表于 2024-7-17 09:12

感谢帮助！

ykcbf1100

longer10010 发表于 2024-7-17 09:31
嗯，忘了汇总，您的思路是对的，对了再请教一下， 能不能把汇总表中编号、长度排序

你这不是搞心态吗？自己想要什么都不知道的？如果是汇总，你的效果图完成不对的。