数值转文本格式

1565785678

要求
1、将A列的数值格式数字转成B列文本格式并去掉千分位符但保留两位小数；
2、将A列数值格式的数字转成B列文本格式，如果小数位都是0就去掉小数位。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

xlj310

ykcbf1100 发表于 2024-11-5 16:08
参与一下。。。

我很赞同 ~  值得参考~

小凡、、、

round去除无效小数，cstr转文本，单元格格式先改文本再输入数组

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A1:A" & r).Value
    ReDim br(1 To UBound(ar), 1 To 2) As String
   
    For j = 1 To UBound(br, 2): br(1, j) = "结果列" & j: Next
    For i = 2 To UBound(br)
        If Len(ar(i, 1)) Then
        br(i, 1) = Format(ar(i, 1), "0.00")
        br(i, 2) = ar(i, 1)
        End If
    Next i
   
    [C1].Resize(UBound(br), 2) = br
    Beep
End Sub

gwjkkkkk

可定义一个文本数组，这样就不需要设置单元格格式，直接写数据。