紧急求助！！按条件计算中位数

真情作祟

基础数据见《数据表》（左表），要求计算出各类人员年龄、工龄的中位数 中位值问题表.rar (7.1 KB, 下载次数: 11)

2015-9-10 10:44 上传

点击文件名下载附件

，填入《计算输出表》（右表）。多谢！！

真情作祟

怎么没人回答呀？

小zhi

1. Sub 中位数()
   
2.     Dim sht As Worksheet, i, n, m, x As Integer, arr(), arryj(), arrzc()
   
3.     '重新定义数组
   
4.     ReDim arr(1 To 2, 1 To 2)       '基层管理人员
   
5.     ReDim arryj(1 To 2, 1 To 2)     '基层管理人员一级
   
6.     ReDim arrzc(1 To 2, 1 To 2)     '中层管理人员正职
   
7.     '设定sht为工作簿的第一个表
   
8.     Set sht = ThisWorkbook.Worksheets(1)
   
9.     '循环类别列
   
10.     For i = 3 To sht.Cells(Rows.Count, 2).End(xlUp).Row
    
11.         '设定条件，将符合条件的列入数组
    
12.         Select Case sht.Cells(i, 2).Value
    
13.             Case Is = "基层管理人员"
    
14.                 '再定义数组
    
15.                 n = n + 1
    
16.                 ReDim Preserve arr(1 To 2, 1 To n)
    
17.                 arr(1, n) = sht.Cells(i, 3).Value   '写入年龄值
    
18.                 arr(2, n) = sht.Cells(i, 4).Value   '写入工龄值
    
19.             Case Is = "基层管理人员一级"
    
20.                 m = m + 1
    
21.                 ReDim Preserve arryj(1 To 2, 1 To m)
    
22.                 arryj(1, m) = sht.Cells(i, 3).Value  '写入年龄值
    
23.                 arryj(2, m) = sht.Cells(i, 4).Value '写入工龄值
    
24.             Case Is = "中层管理人员正职"
    
25.                 x = x + 1
    
26.                 ReDim Preserve arrzc(1 To 2, 1 To x)
    
27.                 arrzc(1, x) = sht.Cells(i, 3).Value  '写入年龄值
    
28.                 arrzc(2, x) = sht.Cells(i, 4).Value   '写入工龄值
    
29.         End Select
    
30.     Next
    
31.     '将中位数写入计算输出表
    
32.     With WorksheetFunction
    
33.     '写入基层管理人员的年龄与工龄中位数
    
34.     sht.Cells(3, 7).Value = Application.Median(.Index(arr, 1, 0))
    
35.     sht.Cells(3, 8).Value = Application.Median(.Index(arr, 2, 0))
    
36.     '写入基层管理人员一级的年龄与工龄中位数
    
37.     sht.Cells(4, 7).Value = Application.Median(.Index(arryj, 1, 0))
    
38.     sht.Cells(4, 8).Value = Application.Median(.Index(arryj, 2, 0))
    
39.     '写入中层管理人员正职的年龄与工龄中位数
    
40.     sht.Cells(5, 7).Value = Application.Median(.Index(arrzc, 1, 0))
    
41.     sht.Cells(5, 8).Value = Application.Median(.Index(arrzc, 2, 0))
    
42.     End With
    
43. End Sub

复制代码

小zhi

上传个已解决的附件，你在宏中运行”中位数“就可以了。