excel数据导入到九宫格中

魏露露

人员盘点，需要分析人员经济价值，求大神指教，如何快速将人员分入九宫格中，急需，感谢啊~~~

罗达

用公式的话有点难。用VBA字典将评价同级姓名连起来，然后写入九宫格。留个记号，我慢慢练习。
刚开始想复杂了，换了思路一下简单。
Sub jiugongge()
Dim arr, brr, m, n, i
arr = Worksheets("Sheet2 (3)").UsedRange
brr = Worksheets("Sheet1").Range("b2", "G7")

For i = 3 To UBound(arr)
    m = Application.Match(arr(i, 2), Array("S", "A", "B+", "B", "C", "D"), False)
    n = Application.Match(arr(i, 3), Array("0.5X", "1X", "1.5X", "2X", "2.5X", ">2.5X"), False)
    brr(m, n) = brr(m, n) & arr(i, 1) & " "
Next
    Worksheets("Sheet1").Range("b2", "G7") = brr

End Sub 人员盘点-例sss.zip (18.84 KB, 下载次数: 58)

2019-7-13 21:48 上传

点击文件名下载附件

changhong8

每个格子有两个单元格，有区别没

罗达

Sub jiugongge()
Dim arr, brr, m, n, i
arr = Worksheets("Sheet2 (3)").UsedRange
brr = Worksheets("Sheet1").Range("b2", "G7")

For i = 3 To UBound(arr)
    m = Application.Match(arr(i, 2), Array("S", "A", "B+", "B", "C", "D"), False)
    n = Application.Match(arr(i, 3), Array("0.5X", "1X", "1.5X", "2X", "2.5X", ">2.5X"), False)
    brr(m, n) = brr(m, n) & arr(i, 1) & " "
Next
    Worksheets("Sheet1").Range("b2", "G7") = brr

End Sub 人员盘点-例sss.zip (18.84 KB, 下载次数: 27)

2019-7-13 21:50 上传

点击文件名下载附件

罗达

又见审核，审核Sub jiugongge()
Dim arr, brr, m, n, i
arr = Worksheets("Sheet2 (3)").UsedRange
brr = Worksheets("Sheet1").Range("b2", "G7")

For i = 3 To UBound(arr)
    m = Application.Match(arr(i, 2), Array("S", "A", "B+", "B", "C", "D"), False)
    n = Application.Match(arr(i, 3), Array("0.5X", "1X", "1.5X", "2X", "2.5X", ">2.5X"), False)
    brr(m, n) = brr(m, n) & arr(i, 1) & " "
Next
    Worksheets("Sheet1").Range("b2", "G7") = brr
End Sub

魏露露

没有区别，就是随便划分的，甚至可以更多

罗达

魏露露 发表于 2019-7-13 22:25
没有区别，就是随便划分的，甚至可以更多

为什么我的回复看不见？连自己都看不见，附件也传了

魏露露

罗达 发表于 2019-7-13 22:31
为什么我的回复看不见？连自己都看不见，附件也传了

我看不见诶，是不是没有上传成功啊？

changhong8

发帖子要经过人工审核，审核过了就能看见了

hcm19522

K6:P29{=IFERROR(INDEX($B:$B,SMALL(IF(($C$5:$C$35=LOOKUP(1,0/($J$6:$J6<>""),$J$6:$J6))*($D$5:$D$35=K$30),ROW($5:$35)),MOD(ROW(A1)-1,4)+1)),"")