数值格式数字转文本格式数字

1565785678

老师们。怎么让A列中数值格式数字转换成B列文本格式数字，结果还在A列，A列单元格左上角也得加上绿三角。

limonet

关键字：columns.delete

ykcbf1100

附件供参考。。。

limonet

Sub limonet()
    Dim i%, Arr As Variant
    Arr = Range("A1").CurrentRegion
    For i = 1 To UBound(Arr)
        Arr(i, 1) = CStr(Format(Arr(i, 1), "0,000.00"))
    Next i
    Columns("A:A").Delete
    Range("A1").Resize(i - 1) = Arr
End Sub

ykcbf1100

参与一下。。。

1. Sub 数值转文本() '//2024.4.28
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 2)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 2) = Format(CStr(arr(i, 1)), "0.00")
   
6.     Next
   
7.     Columns(2).NumberFormatLocal = "@"
   
8.     [a1].Resize(r, 2) = arr
   
9. End Sub
   

复制代码

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    With Range("A1", Cells(Rows.Count, "A").End(xlUp))
        ar = .Value
        For i = 1 To UBound(ar)
            ar(i, 1) = "'" & .Cells(i, 1).Text
        Next i
        .Value = ar
    End With

    Beep
End Sub

gwjkkkkk

参与一下。。。