[已解决]根据条件提取数据

c888

提取数据.rar (14.5 KB, 下载次数: 13)

2012-3-8 23:55 上传

点击文件名下载附件
谢谢大家！

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-3-9 09:27

1. Private Sub CommandButton1_Click()
   
2.     UserForm1.Hide
   
3.     Dim arr, i&, BtAr, Ar(1 To 8, 1 To 7)
   
4.     BtAr = Array("名次", "号码", "姓名", "班级", "成绩", "分值", "备注")
   
5.     arr = Worksheets("3").Range("A1").CurrentRegion.Value
   
6.     For i = 2 To UBound(arr)
   
7.         If arr(i, 1) = ComboBox2.Value And Len(arr(i, 10)) Then
   
8.             Ar(arr(i, 8), 1) = arr(i, 8)
   
9.             Ar(arr(i, 8), 2) = arr(i, 4)
   
10.             Ar(arr(i, 8), 3) = arr(i, 5)
    
11.             Ar(arr(i, 8), 4) = arr(i, 6)
    
12.             Ar(arr(i, 8), 5) = arr(i, 7)
    
13.             Ar(arr(i, 8), 6) = arr(i, 10)
    
14.             Ar(arr(i, 8), 7) = arr(i, 9) & arr(i, 11)
    
15.         End If
    
16.     Next i
    
17.     Range("a1").Resize(1, 7) = BtAr
    
18.     Range("a2").Resize(8, 7) = Ar
    
19. End Sub

复制代码

提取数据.rar (18.63 KB, 下载次数: 18)

2012-3-9 09:27 上传

点击文件名下载附件

跳转到最佳答案楼层

liuguansky

1. Private Sub CommandButton1_Click()
   
2.     UserForm1.Hide
   
3.     Dim arr, i&, BtAr, Ar(1 To 8, 1 To 7)
   
4.     BtAr = Array("名次", "号码", "姓名", "班级", "成绩", "分值", "备注")
   
5.     arr = Worksheets("3").Range("A1").CurrentRegion.Value
   
6.     For i = 2 To UBound(arr)
   
7.         If arr(i, 1) = ComboBox2.Value And Len(arr(i, 10)) Then
   
8.             Ar(arr(i, 8), 1) = arr(i, 8)
   
9.             Ar(arr(i, 8), 2) = arr(i, 4)
   
10.             Ar(arr(i, 8), 3) = arr(i, 5)
    
11.             Ar(arr(i, 8), 4) = arr(i, 6)
    
12.             Ar(arr(i, 8), 5) = arr(i, 7)
    
13.             Ar(arr(i, 8), 6) = arr(i, 10)
    
14.             Ar(arr(i, 8), 7) = arr(i, 9) & arr(i, 11)
    
15.         End If
    
16.     Next i
    
17.     Range("a1").Resize(1, 7) = BtAr
    
18.     Range("a2").Resize(8, 7) = Ar
    
19. End Sub

复制代码

提取数据.rar (18.63 KB, 下载次数: 18)

2012-3-9 09:27 上传

点击文件名下载附件