高手帮忙在Excel的宏中编个VBA程序

Sub test()
Dim a As Double
Dim i As Integer
a = 09'乘数
i = 0
Do While Len(Cells(1 + i, 8)) <> 0'检测H列是否为空
‘不为空 继续
Cells(1 + i, 8) = Cells(1 + i, 8) a '将H列的数乘以常数a 并将H列改写
'如果需要将结果写在另一列 请用下面的语句
'结果写在I列
Cells(1 + i, 9) = Cells(1 + i, 8) a
i = i + 1'换下一行
Loop
End Sub

以上就是关于高手帮忙在Excel的宏中编个VBA程序全部的内容，包括:高手帮忙在Excel的宏中编个VBA程序、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！