把数字后面的负号变到数字前面成为负数

kykykyky

把数字后面的负号变到数字前面成为负数,这列数字中把数字末尾的负号移到前面去，比如,把4567.11-变成-4567.11,表列中的正数不动.用IF函数能不能实现,或者还有什么其他更好的方法.

kykykyky

把数字后面的负号变到数字前面成为负数,这列数字中把数字末尾的负号移到前面去，比如,把4567.11-变成-4567.11,表列中的正数不动.用IF函数能不能实现,或者还有什么其他更好的方法.

kykykyky

把数字后面的负号变到数字前面成为负数,这列数字中把数字末尾的负号移到前面去，比如,把4567.11-变成-4567.11,表列中的正数不动.用IF函数能不能实现,或者还有什么其他更好的方法.
附件如下

DevilW

if mid([a1],len([a1]))="-" then [a1]="-" & mid([a1],1,len([a1])-1)

凌空一羽

1. =IF(RIGHT(A1)="-",-LEFT(A1,LEN(A1)-1),A1)

复制代码

直接公式下拉

代码的话

1. Sub lkyy()
   
2. For Each r In Range("a1").CurrentRegion
   
3.     If Right(r.Value, 1) = "-" Then r.Value = -Left(r, Len(r) - 1)
   
4. Next
   
5. End Sub

复制代码

看见星光

1. =IFERROR(--A1,-SUBSTITUTE(A1,"-",))

复制代码

袁勇

1. =(-1)^ISNUMBER(FIND("-",A1))*SUBSTITUTE(A1,"-",)

复制代码

nb446835

1. Sub test()
   
2.     Dim i, j
   
3.     For i = 1 To [a65536].End(3).Row
   
4.         If Right(Cells(i, 1), 1) = "-" Then
   
5.             j = Len(Cells(i, 1)) - 1
   
6.             Cells(i, 1) = "-" & Mid(Cells(i, 1), 1, j)
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

丢丢表格

看见星光 发表于 2017-7-17 22:03

也可以写成：
=MAX(A4,-LEFT(A4,LEN(A4)-1))

kykykyky

感谢大家，感谢各位老师，受教了，多谢