How can I add a "close quote" mark AFTER each entry to a LONG column of numbers?

Logit · #3 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Split apart "page break" and "paragraph mark"	EwenMc	Word	4	10-03-2021 02:12 AM
One page in a document has a "full" or "long" Footnote Separator. It's only this one page, I'm lost.	taddpoal	Word	5	05-10-2020 04:07 PM
"Magic" indentation for "too-long" text-lines that are longer than one line	pGrnd	Word	2	04-20-2020 03:23 PM
Formula to format "I" column based on if "F" column row is not blank	ravl13	Excel	3	08-22-2017 12:26 PM
Need help with conditional formatting & returning "Pass" / "Fail Results" in a Column N	mikey386	Excel	2	12-11-2014 01:14 PM