Sub formatcells()
Dim rng As Range
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
'formula that round last digit to 9
'???
End If
Next
End Sub
Sub FormatCells()
Dim rng As Range
Dim NewValue As String
For Each rng In Range("A8:O130")
If IsNumeric(rng) And rng <> "" Then
If Right(rng.Text, 1) > 4 Then
NewValue = Left(rng.Text, Len(rng.Text) - 1) & 9
rng.Value = NewValue
End If
End If
Next
End Sub
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
Create Excel formula on dynamic data | 5 | 44 | |
Office 2016 or Office 2010 for new Dell Precision 5810 workstation? | 6 | 39 | |
Need to put a web footnote into a text book | 7 | 22 | |
MIN per Month | 8 | 24 |
Join the community of 500,000 technology professionals and ask your questions.