sub resetall()dim sht as worksheet dim rng as range,rnglastcell as range for each sht in activeworkbook.sheets set rnglastcell=sht.usedrange.specialcells... 20210311
1首先我们打开一个工作样表作为例子。2打开vba编辑器,插入一个新的模块,并在模块中输入以下代码:sub 公式转为数值() dim rng as range, c as range set rng = activesheet.range("a1").currentregion for each c in rng.cells if c.has...