如题所述
【这里假设需修改列为C列】
Alt+F11,第一行右键,添加一个模块(如图),在模块中添加以下代码:
Sub test()
for i=1 to Cells(Rows.Count, 3).End(xlUp).Row
cells(i,3)=int(cells(i,3)*0.7)
next
end sub