关于薪级薪档对应问题，谢谢各位大神解答！！

churlin170

各位EXCEL大神，想请教一下：

有一个薪级薪档表如图1，现在我需要计算实际员工工资所对应的薪级薪档，如图2。假设员工的工资刚好与薪级薪档表数值对应，则直接为对应的薪级薪档（如工资5855，薪级薪档刚好是18级7档）；若工资不与薪级薪档表对应，则先与7档的薪级从下往上做对比，直到实际薪酬刚好比对应值小（如工资3600，刚好比7档的15级的3720小，入15级），接下与15级的薪档从小往大做对比，直到实际薪酬刚好比对应值小（如工资3600，入15级，刚好比7档的3720小，比6档的3560大，因此入6档，最后确认实际薪酬为15级6档）。

想问问如何通过编程来实现呢？或者excel还有没有其他更简单的方法实现啊？

感谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%, j%, c%
   
3.   Dim arr, brr
   
4.   With Worksheets("对应表")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:h" & r)
   
7.   End With
   
8.   With Worksheets("工资表")
   
9.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
10.     brr = .Range("a2:e" & r)
    
11.     For i = 1 To UBound(brr)
    
12.       For j = UBound(arr) To 4 Step -1
    
13.         If brr(i, 1) <= arr(j, 2) Then
    
14.           Exit For
    
15.         End If
    
16.       Next
    
17.       For k = 2 To UBound(arr, 2)
    
18.         If brr(i, 1) >= arr(j, k) Then
    
19.           Exit For
    
20.         End If
    
21.       Next
    
22.       If k > UBound(arr, 2) Then
    
23.         k = 8
    
24.       End If
    
25.       brr(i, 2) = arr(j, 1)
    
26.       brr(i, 3) = Left(arr(1, k), Len(arr(1, k)) - 1)
    
27.       brr(i, 4) = arr(j, 1) & "-" & Left(arr(1, k), Len(arr(1, k)) - 1)
    
28.       brr(i, 5) = arr(j, k)
    
29.     Next
    
30.     .Columns(4).NumberFormatLocal = "@"
    
31.     .Range("a2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
32.   End With
    
33. End Sub
    

复制代码

chxw68

详见附件。

churlin170

chxw68 发表于 2018-7-10 16:46
详见附件。

太感谢啦！！

想问问因为薪级薪等这个表只是部分，还有很多薪级和薪等，假如我需要修改引用薪级薪等表的范围，大概需要修改那几行的代码呢？

还有一个很弱智问题是，为啥k=8？是因为目前薪级有8级么？