怎么将A列有正数有负数的文本数字都变成正数

1565785678

大佬们，怎么将A列有正数有负数的文本数字都变成正数，谢谢了

longwin

直接用ABS函数

limonet

vba也有ABS

limonet

Sub limonet()
    Dim Arr As Variant, i%
    Arr = Range("A1").CurrentRegion
    For i = 1 To UBound(Arr)
        Arr(i, 1) = Abs(Arr(i, 1))
    Next i
    Range("A1").Resize(i - 1) = Arr
End Sub

ykcbf1100

直接把负号替换为空就行了。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.4.25
   
2.     Set Rng = Range("a1").CurrentRegion
   
3.     For Each rn In Rng
   
4.         rn.Value = Replace(rn.Value, "-", "")
   
5.     Next
   
6. End Sub
   

复制代码

那时雨

参与一下……

kevinchengcw

columns(1).replace "-",""