[已解决]根据人数生成部门个数及区

amzxfgh9632

附件内有说明
生成部门及所属区.rar (11.42 KB, 下载次数: 8)

2015-1-3 15:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

as0810114

2015-1-3 15:43

1. Sub test()
   
2.     Dim arr, i, j
   
3.     Dim brr(1 To 1000, 1 To 2)
   
4.     arr = Sheets(1).Range("B8").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 6 To 10
   
7.             If arr(i, j) <> "" Then
   
8.                 k = k + 1
   
9.                 brr(k, 1) = arr(i, 1)
   
10.                 brr(k, 2) = arr(i, 2)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Sheets(2).Range("b5").Resize(k, 2) = brr
    
15. End Sub

复制代码

跳转到最佳答案楼层

as0810114

1. Sub test()
   
2.     Dim arr, i, j
   
3.     Dim brr(1 To 1000, 1 To 2)
   
4.     arr = Sheets(1).Range("B8").CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 6 To 10
   
7.             If arr(i, j) <> "" Then
   
8.                 k = k + 1
   
9.                 brr(k, 1) = arr(i, 1)
   
10.                 brr(k, 2) = arr(i, 2)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Sheets(2).Range("b5").Resize(k, 2) = brr
    
15. End Sub

复制代码