In all versions of Excel, you can use the following macro to convert
numbers with trailing minus signs.
Sub TrailingMinus()
' = = = = = = = = = = = = = = = =
' Use of CDbl suggested by Peter Surcouf
' Program by Dana DeLouis, dana2@msn.com
' modified by Tom Ogilvy
' = = = = = = = = = = = = = = = =
Dim rng As Range
Dim bigrng As Range
On Error Resume Next
Set bigrng = Cells _
.SpecialCells(xlConstants, xlTextValues).Cells
If bigrng Is Nothing Then Exit Sub
For Each rng In bigrng.Cells
If IsNumeric(rng) Then
rng = CDbl(rng)
End If
Next
End Sub
No comments:
Post a Comment