这个问题求助赵刚版主解决

快乐的罗非鱼

关于表格汇总的问题，请赵刚版主出马解决     对不起这个里面没有汇总表，下面的附件里面有汇总表的格式

foreversun

没看出来工汇总的内容

快乐的罗非鱼

汇总表的格式就是把对应的内容提取出来

lzyamo3057

快乐的罗非鱼 发表于 2013-5-19 12:23
汇总表的格式就是把对应的内容提取出来

1. Sub test()
   
2.     Dim sht As Worksheet, i As Integer
   
3.     Dim arr, brr, crr, drr
   
4.     For Each sht In Worksheets
   
5.         arr = Sheets("汇总表").Range("a1").CurrentRegion
   
6.         i = UBound(arr)
   
7.         If sht.Name <> "汇总表" Then
   
8.             With sht
   
9.                 brr = sht.Range("b5:k7")
   
10.                 crr = .Range("b9:k10")
    
11.                 drr = .Range("b14:e14")
    
12.             End With
    
13.             With Sheets("汇总表")
    
14.                 .Range("a" & i + 1).Resize(UBound(brr), UBound(brr, 2)) = brr
    
15.                 .Range("i" & i + 1).Resize(UBound(crr), UBound(crr, 2)) = crr
    
16.                 .Range("q" & i + 1).Resize(UBound(drr), UBound(drr, 2)) = drr
    
17.             End With
    
18.         End If
    
19.     Next
    
20. End Sub
    

复制代码

lzyamo3057

表格样式，做了些改变。希望不影响

lzyamo3057

请测试。。。比较笨拙的方法

快乐的罗非鱼

lzyamo3057 发表于 2013-5-19 13:07

您提取的不对啊，您按照汇总表的内容对照建知道了