如何把超过15位数值转成文本并显示所有数字

给心灵涂上色彩

超过15位的数值，用VBA执行填充后，把公式转化成数值，并显示所有数字。

于箱长

前面加一个半角的单引号

ykcbf1100

2楼是正解。

附件供参考。。。

yaolin5454849

选中C列，选择数据→分列→下一步→下一步→选择文本。就是这么简单！！

于箱长

把这一行注释掉也行

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.19
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 3)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 3) = CStr(arr(i, 1))
   
6.     Next
   
7.     Range("C:C").NumberFormatLocal = "@"
   
8.     [c1].Resize(r, 1) = Application.Index(arr, 0, 3)
   
9. End Sub
   

复制代码

给心灵涂上色彩

ykcbf1100 发表于 2024-4-19 13:17
2楼是正解。

附件供参考。。。

Sub 宏1()
   
    Application.ScreenUpdating = False '防止屏幕抖动
    r = Cells(Rows.Count, 1).End(xlUp).Row
    Range("C1") = "单号转成文本"
    Range("C2").FormulaR1C1 = _
        "=IF(OR(RC[-1]=""男童"",RC[-1]=""女童"",RC[-1]=""中性"",RC[-1]=""女装"",RC[-1]=""男装"",RC[-1]=""鞋品""),RC[-2],0)"
    Range("C2").AutoFill Destination:=Range("C2:C" & r), Type:=xlFillDefault
    Columns(3).NumberFormatLocal = "@"  '//加一句
    Range("C2:C" & r) = Range("C2:C" & r).Value
    Range("D2").Select
    ActiveWorkbook.Save
    Application.ScreenUpdating = True '防止抖动
End Sub

草爷，您重新写的是可行的，但里面是加了公式的，要先执行公式完后再数据文本；看你在我原来的基础上加了这个  Columns(3).NumberFormatLocal = "@"  '//加一句    这名执行好像是不行哦。

给心灵涂上色彩

yaolin5454849 发表于 2024-4-19 13:19
选中C列，选择数据→分列→下一步→下一步→选择文本。就是这么简单！！

因为单号数据比较多，所以我的方式是用VBA执行自动填充至有数据的行再数值化，想得到的结果就像D2单元格一样。