如何实现多个单元格转换为数值型

dagal · 发表于 2018-9-7 00:45

文件中I列的数据为负数的实际不是数值型，自然与其他正数相加时不会合计扣减，如果筛选后一格格改较麻烦，且数据多，而且在汇总时会因为这些单元格不是数值型而出错，有何办法可以自动转换为数值型，谢谢大神帮忙！

aa.rar (339.96 KB, 下载次数: 22)

liulang0808 · 发表于 2018-9-7 07:47

Sub 按钮1_Click()
Application.ScreenUpdating = False
arr = ActiveSheet.UsedRange
For j = 2 To UBound(arr)
arr(j, 13) = Trim(arr(j, 9)) * 1
Next j
ActiveSheet.UsedRange = arr
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2018-9-7 07:48

附件内容供参考。。。。。。

microyip · 发表于 2018-9-7 08:00

Sub 更换数值()
Dim vData As Variant, nRow As Double
With [I2].CurrentRegion
vData = .Offset(1).Resize(.Rows.Count - 1).Value
End With
For nRow = 1 To UBound(vData)
vData(nRow, 1) = Val(vData(nRow, 1))
Next
[I2].Resize(UBound(vData)) = vData
End Sub

复制代码

dagal · 发表于 2018-9-7 08:59

microyip 发表于 2018-9-7 08:00

老师，你的方法是把整列都变成2018啦。。。

microyip · 发表于 2018-9-7 09:03

dagal 发表于 2018-9-7 08:59
老师，你的方法是把整列都变成2018啦。。。

你的I列何来2018啊？

dagal · 发表于 2018-9-7 09:26

microyip 发表于 2018-9-7 09:03
你的I列何来2018啊？

我意思是用你的方法转换完I列就全变成2018了

lsdongjh · 发表于 2018-9-7 09:50

没那么复杂，导致你问题的原因是前面多了一个制表符，一句话解决：

Sub Test()
Sheet1.UsedRange.Replace Chr(9), "", 2
End Sub

复制代码

microyip · 发表于 2018-9-7 10:05

dagal 发表于 2018-9-7 09:26
我意思是用你的方法转换完I列就全变成2018了

为何在我这里没有呢？

dagal · 发表于 2018-9-7 11:01

microyip 发表于 2018-9-7 10:05
为何在我这里没有呢？

我是office 2016，刚又试了一下还是这样，奇怪了。

		自动登录	找回密码
密码			免费注册

[求助] 如何实现多个单元格转换为数值型

评分

评分