关于数据汇总的VBA问题请教

清风旭来

各位高手：

我在学习中遇到关于数据统计VBA问题，真诚地向大家请教。

VBA要实现的功能是：分别从按序建立的多份sheet“表？”中抽取以按行序分布的“姓名”对应数据，在sheet “汇总”中建立“姓名”按列序分布及“表？”按行序分布的数据汇总表。

在附件：VBA应用试验场.xls中，已建立相关表式和公式以说明数据关系。

谢谢大家！

grf1973

1. Sub tt()
   
2.     Set hz = Worksheets("汇总")
   
3.     arr = hz.[b2:m2].Value
   
4.     For i = 3 To hz.[a65536].End(3).Row
   
5.         shtname = hz.Cells(i, 1).Text
   
6.         With Sheets(shtname)
   
7.             For j = 3 To .[a65536].End(3).Row
   
8.                 xm = .Cells(j, 2)
   
9.                 For k = 1 To UBound(arr, 2)
   
10.                     If xm = arr(1, k) Then hz.Cells(i, k + 1) = .Cells(j, "M"): Exit For
    
11.                 Next
    
12.             Next
    
13.         End With
    
14.     Next
    
15. End Sub

复制代码

清风旭来

二楼的兄弟出手好快啊！

清风旭来

根据运行结果，其中j只能运行到7，只能应用每张表第7个人员的数据！

grf1973

你自己源表格的数据重整一下就行了。原表里第7个开始全是？？？，当然作一个统计了。

grf1973

1. Sub tt1()
   
2.     Set hz = Worksheets("汇总")
   
3.     arr = hz.[b2:m2].Value
   
4.     For i = 3 To hz.[a65536].End(3).Row
   
5.         shtname = hz.Cells(i, 1).Text
   
6.         With Sheets(shtname)
   
7.             Set Rng = .Range("B3:M" & .[a65536].End(3).Row)
   
8.                 For k = 1 To UBound(arr, 2)
   
9.                     res1 = Application.WorksheetFunction.VLookup(arr(1, k), Rng, 12, 0)
   
10.                     hz.Cells(i, k + 1) = IIf(IsError(res1), "", res1)
    
11.                 Next
    
12.         End With
    
13.     Next
    
14. End Sub
    

复制代码

程序可以用Vlookup简化一下。

清风旭来

谢谢更新，研究一下！