[已解决]VBA统计

qw002qw

大神们,帮我看看这个代码,我应该要修改哪里才能统计出结果,又能清除

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-10 14:17

你写的  不知道什么意思


也不知道 你要的是不是这个意思

跳转到最佳答案楼层

lyf7276

Sub 统计1()
mm = Sheet3.Range("f:f").Cells.Find("*", , , , , xlPrevious).Row
For i = 3 To mm

Select Case Sheet3.Range("d" & i).Value
Case "先进工作者"
Range("f" & i) = 500
Case "业绩突出"
Range("f" & i) = 100

Case "全勤奖"
Range("f" & i) = 100
Case "工作失误"
Range("f" & i) = -100
End Select
Next
End Sub


Sub 清除1()
mm = Sheet3.Range("f:f").Cells.Find("*", , , , , xlPrevious).Row
Sheet3.Range("f3:f" & mm).Clear
End Sub
你用这两段代码试试

1032446692

你写的  不知道什么意思


也不知道 你要的是不是这个意思