PDF转Excel:高效去除AI特征,实现数据自由编辑
439
2022-12-03
Excel Vba正数数字批量换成文字
今天拿到了一个比较棘手的难题,
把数字全部换成正数这两个字。我最早用了定位,但定位只能是数字而不能正数。我又写了定义对象大于0,后来发现居然字母都被换掉了,这显然不是我要的。后来问了一个朋友原来也还要写段代码进行是不是数字的判断。最后的结果是
Sub ee()
Dim rng As Range
For Each rng In Range("a1:d8") ‘foreach的用法
If IsNumeric(rng) And rng.Value > 0 Then ‘判断是不是数字类型,还有是不是>0
rng.Value = "正数" ‘把正数赋给所有的对象
End If
Next
End Sub
我后来又试了其他方法,都没成功。最后决定就用这段代码好了。
Excel Vba正数数字批量换成文字2
版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。