如何用VB实现根据分工作表自动汇总填入第1张汇总表

451676210

附件中第1张为汇总表，涂黄色的部分如何用VB编程实现由分工作表自动生成，求助！

学不完用不尽

1. Sub test()
   
2. Dim sht As Worksheet
   
3. Dim i, j
   
4. Dim arr
   
5. j = 4
   
6. With Sheets("高加降本实际模版")
   
7. For Each sht In Worksheets
   
8. If sht.Name <> "高加降本实际模版" Then
   
9. arr = sht.Range("b6").CurrentRegion
   
10. j = j + 1
    
11. .Cells(j, 2) = sht.Range("c3")
    
12. If j <= 6 Then
    
13. .Cells(j, 3) = sht.Name
    
14. Else
    
15. .Cells(j, 3) = "SPEC-" & sht.Name
    
16. End If
    
17. For i = 1 To UBound(arr)
    
18. If arr(i, 1) = "降本合计" Then
    
19. .Cells(j, 4) = sht.Range("l" & i + 2)
    
20. .Cells(j, 5) = sht.Range("p" & i + 2)
    
21. End If
    
22. Next i
    
23. End If
    
24. Next sht
    
25. End With
    
26. End Sub

复制代码

学不完用不尽

提示：
取消“降本合计”的合并单元格。（可以设置为“跨列居中”）
查看附件


测试.rar (171.84 KB, 下载次数: 173)

2013-8-30 23:47 上传

点击文件名下载附件

451676210

太感谢你了。

jianlifzp

经典啊，的好好学习了

gfp12345678

谢谢分享。。。。。。。。。。。。。。。。。。。。。。。。。。

youxian8

进来学习一下！