Question

如何把以下EXCEL VBA代码封装

Sub running2()

'ym

Cells(3, 11) = Cells(3, 10) * 0.85
Cells(4, 11) = Cells(3, 10) * 0.9146
Cells(5, 11) = Cells(3, 10) * 1.5888
Cells(6, 11) = Cells(3, 10) * 1.66687
Cells(7, 11) = Cells(3, 10) * 2.6987
Cells(8, 11) = Cells(3, 10) * 0.544
Cells(9, 11) = Cells(3, 10) * 0.9822
Cells(10, 11) = Cells(3, 10) * 3.55
Cells(11, 11) = Cells(3, 10) * 1.5667
Cells(12, 11) = Cells(3, 10) * 0.8556
Cells(13, 11) = Cells(3, 10) * 1.2322
Cells(14, 11) = Cells(3, 10) * 0.3266
Cells(15, 11) = Cells(3, 10) * 1.2366
Cells(16, 11) = Cells(3, 10) * 1.9877

Cells(3, 8) = Cells(3, 6) * 1.23456
Cells(4, 8) = Cells(4, 6) * 1.23456
Cells(5, 8) = Cells(5, 6) * 1.23456
Cells(6, 8) = Cells(6, 6) * 1.23456
Cells(7, 8) = Cells(7, 6) * 1.23456
Cells(8, 8) = Cells(8, 6) * 1.23456
Cells(9, 8) = Cells(9, 6) * 1.23456

end sub

Answer 1

不明白。指出亮点问题，
一、最好能够在单元格对象后面加上.VALUE
二、Cells(3, 10)这个固定值最好写入一个变量，防止重复调用。如
dim a
a= Cells(3, 6) .value

追问

你好啊，因为我是VB的新手，所以能否修改一段作例子如何改成VB语句，谢谢你