Option Explicit
'将人民币价格转换为美元价格
Sub TESTPRICE()
Dim PRICE, V 'V循环变量
PRICE = Cells(5, 2) '汇率
'循环的开始
For V = 8 To 16 Step 1 '让V这个变量从第六行到第八行,每步增加1
'循环体
Cells(V, 3
FOR....NEXT 次数循环
最新推荐文章于 2023-11-15 16:05:26 发布