求助一个vba 替换代码

我想写一个替换程序
替换A:A列中所有的数，按照 RoundUp((a - Int(a)) / 0.6, 2) + Int(a) 规则来替换
这个vba怎么写？
附图

第一张是替换前，第二张是替换后
zu

2024-12-04 13:03广告

你自己不是都写出来了吗？

sub aa()
For Each i In [a1:a10]
MsgBox i
Cells(j + 1, 1) = Application.RoundUp((i - Int(i)) / 0.6, 2) + Int(i)
j = j + 1
Next
end

下载贴吧APP
看高清直播、视频！

分享到:

求助 一个vba 替换代码