[已解决]求大神帮忙修改代码,需要增加一次运算,除以当列固定某栏位的值

eking_tang

求大神帮忙修改代码,现在的代码只完成了一半,还需要增加一次运算,除以当列固定某栏位的值.
有劳了,小弟感谢先

最佳答案

月排行榜 / 总排行榜

殿堂之上

2015-6-12 16:20

Sub aaaaa()
    For i = 8 To Cells(Rows.Count, "a").End(3).row
Cells(i, 1) = Cells(i, 1) / Range("ax" & i)
Cells(i, 1).NumberFormatLocal = "0.00"
Next
End Sub

跳转到最佳答案楼层

殿堂之上

Sub aaaaa()
    For i = 8 To Cells(Rows.Count, "a").End(3).row
Cells(i, 1) = Cells(i, 1) / Range("ax" & i)
Cells(i, 1).NumberFormatLocal = "0.00"
Next
End Sub

eking_tang

殿堂之上 发表于 2015-6-12 16:20
Sub aaaaa()
    For i = 8 To Cells(Rows.Count, "a").End(3).row
Cells(i, 1) = Cells(i, 1) / Range(" ...

太感謝了~~