|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
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)
|
|