通过VBA编程将多个表的内容按条件汇总的一个表上

majesty10

诸位大神，要写毕业论文，要用到编程的东西。特来求助！
1. 有多张关于股票财务情况的excel表，其中横轴是每只股票的财务指标情况，纵轴是所有股票代码（但是包含好多时间点）。
2.要求是以月份和某一个财务指标为条件进行汇总。比如，将时间为201504，财务指标为总市值的股票汇总在一起。
3.由于月份多，财务指标多，所以手动太麻烦，因此就先用VAB编程来完成。
希望大神来帮忙，小女子拜谢啦！
新建文件夹.rar (22.43 KB, 下载次数: 215)

2015-5-22 14:37 上传

点击文件名下载附件

huang1314wei

有时间帮你写一下

huang1314wei

1. Private Sub CommandButton1_Click()
   
2.     Dim book As Workbook
   
3.     Dim str$, B, arr, i, j, k, m
   
4.     m = 0
   
5.     Sheet1.Cells.Clear
   
6.     str = ThisWorkbook.Path & "\*.xls"
   
7.     Application.ScreenUpdating = False
   
8.     B = Dir(str)
   
9.     Do While B > ""
   
10.      If B <> ThisWorkbook.Name Then
    
11.        Set book = Workbooks.Open(ThisWorkbook.Path & "" & B)
    
12.         arr = Sheets("sheet1").Range("A1").CurrentRegion
    
13.         i = UBound(arr)
    
14.         ThisWorkbook.Activate
    
15.         For j = 1 To i
    
16.           For k = 1 To 5
    
17.             If arr(j, 2) = ComboBox1.Value And arr(2, k) = ComboBox2.Value Then
    
18.                m = m + 1
    
19.                Cells(m + 1, 1) = arr(j, 1)
    
20.                Cells(m + 1, 2) = arr(j, 2)
    
21.                Cells(m + 1, 3) = arr(j, k)
    
22.              End If
    
23.            Next
    
24.          Next
    
25.        Windows(B).Close False
    
26.       End If
    
27.       B = Dir()
    
28.      Loop
    
29.     Range("A1").Resize(1, 3) = array("证券代码", "交易月份", ComboBox2.Value)
    
30.     UserForm1.Hide
    
31.     Application.ScreenUpdating = True
    
32. End Sub
    

复制代码

huang1314wei

附件供参考
新建文件夹.rar (34.73 KB, 下载次数: 243)

2015-5-23 13:09 上传

点击文件名下载附件

majesty10

huang1314wei 发表于 2015-5-23 13:10
附件供参考

太牛了！ 只是我太菜，还有一些其他的数据要用同样的方法做！能加qq请教一下吗？1224420569我把这些用到其他数据上的时候，就出来下面这些：
file:///C:\Users\dell\Documents\Tencent Files\1224420569\Image\C2C\)%30](`DCPET{U3Z6)I)5SF.png

小菜鸟一枚，请大神帮忙呢！