利用VBA解决阶梯提成的方法

Sub CalculateCommission()    Dim ws As Worksheet    Dim lastRow As Long    Dim i As Long        ' 设置要操作的工作表    Set ws = ThisWorkbook.Worksheets("表1") '将"Sheet1"替换为实际的工作表名称        ' 获取最后一行的行号    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row        ' 循环遍历每一行业绩数据    For i = 3 To lastRow        ' 获取业绩数据        Dim sales As Variant ' 更改数据类型为 Variant        sales = ws.Cells(i, "B").Value                ' 使用VLOOKUP函数在提成比例区域内查找并获取提成比例        Dim commission As Variant        commission = Application.VLookup(sales, ws.Range("f3:g8"), 2, True)                ' 将提成比例写入对应的单元格（C列）        If Not IsError(commission) Then            ws.Cells(i, "C").Value = commission        End If    Next iEnd Sub

这段代码可以根据每行的业绩数据，在提成比例区域中查找对应的提成比例，并将结果写入相应的单元格中(C列）。请根据实际需求和数据进行适当的调整和修改。

1、设置工作表：使用Set ws = ThisWorkbook.Worksheets("表1")将要操作的工作表指定为"表1"。你可以根据实际情况将工作表名称更改为你的表格名称。

2、获取最后一行的行号：使用lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row获取B列中最后一行的行号。

3、循环遍历每一行业绩数据：通过For i = 3 To lastRow进行循环，从第3行开始遍历到最后一行。

4、获取业绩数据：使用sales = ws.Cells(i, "B").Value获取当前行B列的业绩数据。

5、使用VLOOKUP函数进行查找：使用commission = Application.VLookup(sales, ws.Range("f3:g8"), 2, True)在提成比例区域内（f3:g8）进行近似查找，并将结果赋给commission变量。

6、将提成比例写入单元格：通过ws.Cells(i, "C").Value = commission将提成比例写入当前行的C列单元格。

7、错误处理：使用If Not IsError(commission)判断是否发生了错误，如果没有发生错误，则执行写入操作。

请添加“关注”和“收藏”，方便后续查阅。