求助如何实现行列数不定的情况下进行数据汇总

lsc900707

dagal 发表于 2018-10-17 21:20
谢谢，测试可以，不知汇总的小计金额出不来呢？为何在汇总的备注一列后面会多出些没用的内容，看了一下， ...

框架出来了，细节你自己修改一下。

dagal

lsc900707 发表于 2018-10-17 21:10
代码在审核，先测试第一个代码吧：

好像有的人员的预收款项及后面分解月份的合计数没过来呢。比如杨红的，预收款项，5-9月的合计数，李恩文的后面分解的合计没有

lsc900707

dagal 发表于 2018-10-17 21:26
好像有的人员的预收款项及后面分解月份的合计数没过来呢。比如杨红的，预收款项，5-9月的合计数，李恩文 ...

你的月份都带日期的，而且日期都不一样的。附件已更新过，你再下载测试看看。

liulang0808

dagal 发表于 2018-10-17 21:06
版主，谢谢！上半部分可以了，只是“其他”这张工作表的是从第3行到合计都要汇总过来，然后有个小计，所 ...

其他表，增加判断表名，然后提取
第二问题，就是拷贝几列数据吧，

dagal

lsc900707 发表于 2018-10-17 21:29
你的月份都带日期的，而且日期都不一样的。附件已更新过，你再下载测试看看。

嗯，我日期统一下。那汇总2呢，也是列不统一但又得抓取那几列固定的数据过来

dagal

liulang0808 发表于 2018-10-17 21:34
其他表，增加判断表名，然后提取
第二问题，就是拷贝几列数据吧，

嗯嗯，就是提取各表指定列数据

lsc900707

dagal 发表于 2018-10-17 21:40
嗯，我日期统一下。那汇总2呢，也是列不统一但又得抓取那几列固定的数据过来

1. Sub 汇总1()
   
2.     Dim brr(1 To 9999, 1 To 5)
   
3.     For Each sht In Sheets
   
4.         If InStr(sht.Name, "汇总") = 0 And sht.Name <> "其他" Then
   
5.             arr = sht.[a1].CurrentRegion
   
6.             For i = 2 To UBound(arr, 2)
   
7.                 If arr(2, i) = "开票情况" Then j = i: Exit For
   
8.             Next
   
9.             For i = 3 To UBound(arr)
   
10.                 If Len(arr(i, 1)) And InStr(arr(i, 1), "合计") = 0 Then
    
11.                     m = m + 1
    
12.                     brr(m, 1) = sht.Name
    
13.                     brr(m, 2) = arr(i, 1)
    
14.                     brr(m, 3) = arr(i, 5)
    
15.                     brr(m, 4) = arr(i, j - 1)
    
16.                     brr(m, 5) = arr(i, j)
    
17.                 End If
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     If m Then
    
22.         [a3].Resize(m, 5) = brr
    
23.         [a3].Resize(m, 5).Borders.LineStyle = xlContinuous
    
24.     End If
    
25. End Sub

复制代码

lsc900707

dagal 发表于 2018-10-17 21:40
嗯，我日期统一下。那汇总2呢，也是列不统一但又得抓取那几列固定的数据过来

完整代码见附件：

dagal

lsc900707 发表于 2018-10-17 22:43
完整代码见附件：

太实用了，谢谢。非常完美，解决了多年来手工一格格的填写汇总表及一个个单位的汇总粘贴问题。。