Remove minus infront and behind of numbers in rang of cells

HI I need a macro, which can remove minus infront and also behind numbers. All in a range in column K.There will be numbers, which is positive and it shall not touch them. Only the ones with minus.

Please have a look. Have tried to find this, but they change from plus to minus. And i dont need that.

Hope some can help. And i this case it need to be a macro

Thanks in advance
Sincerely

Abjac

HI Oeldera did not work. I have uploaded the test sheet with the numbers. Part of a bigger project. But i can see that they are created by a formula.
But it is runned by a macro. So please have a look at the test sheet. I tried the replace function also in the numbers without formula, also here did not work.
Please have a look thanks.

Abjac

http://www.excelforum.com/excel-prog...2-columns.html

Sub test()
    With Cells(1).CurrentRegion.Columns("k")
        .Offset(1).Resize(.Rows.Count - 1).Formula = _
        "=if(rc[-1]<>rc[-2],abs(rc[-1]-rc[-2]),"""")"
    End With
End Sub

HI Jindon. Sorry i have been going a little around in these codes. You code is really great. I just have 2 wishes. If i want it to display if the difference is minus or plus, what do i change in the code? So it dont remove the minus, but display it instead
And also can you build these function into your code. I have this code below i use.

SIncerely

Abjac

Sub jindon()
    With Cells(1).CurrentRegion.Columns("k")
        .Offset(1).Resize(.Rows.Count - 1).Formula = _
        "=if(rc[-1]<>rc[-2],abs(rc[-1]-rc[-2]),"""")"
    End With
    Call ColorNonDuplicates10
End Sub

Sub ColorNonDuplicates10()
Sheets("Final Match").Activate
Dim i As Long
Dim strCol1 As String
Dim strCol2 As String
strCol1 = "I"
strCol2 = "J"
For i = 2 To Range(strCol1 & "65536").End(xlUp).Row
If Range(strCol1 & i).Value <> Range(strCol2 & i).Value Then
Range("Z" & i).Formula = "X"
    With Range(strCol1 & i).Font
        .ColorIndex = 3
        .Bold = True
    End With
    With Range(strCol2 & i).Font
        .ColorIndex = 3
        .Bold = True
    End With
End If
Next i

Cells.Select
Selection.Sort Key1:=Range("Z2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("Z:Z").Delete

End Sub

Not really sure how you want it.

Sub jindon()
    Dim r As Range
    With Cells(1).CurrentRegion
        With .Columns("i:k").Font
            .ColorIndex = xlAutomatic
            .Bold = False
        End With
        With .Columns("k")
            .Offset(1).Resize(.Rows.Count - 1).Formula = _
            "=if(rc[-1]<>rc[-2],abs(rc[-1]-rc[-2]),"""")"
            On Error Resume Next
            For Each r In .SpecialCells(-4123, 1).Areas
                With r.Offset(, -2).Resize(, 2).Font
                    .Color = vbRed
                    .Bold = True
                End With
            Next
            On Error GoTo 0
        End With
    End With
    Call ColorNonDuplicates10
End Sub

HI Jindon sorry for not explaining it good. Your code is a step on the way. It find the difference and color the cells with red. Thats is fine.
how can i change your code so it display minus and plus numbers, instaed of now where it remove the minus? Just want to know if i will change it.

And also your last code. How can macro Call ColorNonDuplicates10 be put into your code?

Hope its more clear, but your code is really fine, and its nearly there.
Sinncerely
Abjac

Replace the formula back to the original

            .Offset(1).Resize(.Rows.Count - 1).Formula = _
            "=if(rc[-1]<>rc[-2],rc[-1]-rc[-2],"""")"

OK great jindon Thanks allot. I will mark this as solved. Sorry for be a little confused about this thread. But i am really greatefull for the help.

Thanks

Sincerely

Abjac