Microsoft Office Forums - View Single Post - How can I add a "close quote" mark AFTER each entry to a LONG column of numbers?

Logit · 07-08-2022, 08:55 AM

The following will add the inches symbol but if the last digit is ZERO, it is dropped from the number even though the column is formatted to FOUR DIGITS after the decimal.

Code:

Sub InsertQuotes()
    Dim arr() As Variant, i As Long
    arr = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    For i = LBound(arr) To UBound(arr)
        arr(i, 1) = arr(i, 1) & """"
    Next i
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value = arr
End Sub