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程序、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)