业务员 | 业绩 | 提成金额 |
张三 | 12000 | 6000 |
李四 | 10000 | 5000 |
王二 | 5000 | 2500 |
麻子 | 20000 | 10000 |
成丰富 | 350000 | 175000 |
牛奶 | 1000000 | 500000 |
第一种方式:
Sub 提成金额()
Dim n%
n = 2 计时器,
For Each num In Worksheets(9).[b2:b7]//遍历 第9张sheet表的a2行到b7行
Worksheets(9).Cells(n, 3) = num * 0.5 //提成金额50%
n = n + 1
Next num
End Sub
第二种方式
Sub 提成金额()
For Each num In Worksheets(9).[b2:b7]
num.Offset(0, 1) = num * 0.5 'num.Offset(0, 1) //num字段右偏移一个单元格
Next num
End Sub