个位数前面如何加0。

binghuang

比如，单元格A1是：1.2.3.4.5.10.11.12.13.14.15.16.7.22.23.24.25.26.27.28.8.36.37.38.39.46.47

B1想要的是这样的：01.02.03.04.05.10.11.12.13.14.15.16.7.22.23.24.25.26.27.28.08.36.37.38.39.46.47



希望大神帮忙下，感谢。

良良

=TEXTJOIN(".",1,TEXT(TRIM(MID(SUBSTITUTE(A2,".",REPT(" ",99)),99*ROW(1:99)-98,99)),"00"))

高个子

这个问题要么升级版本，要么VBA解决，要么下载这位老师的自定义函数
https://club.excelhome.net/thread-1650045-1-1.html

小晓阳杨

用VBA处理：在 Excel 中按下 Alt + F11 打开 VBA 编辑器，创建一个新的模块，并将以下代码复制粘贴到模块中。然后按下 Alt + F8，选择要运行的宏 AddLeadingZero，点击运行。或者参考附件excel点选“按钮”完成需求的数据处理。（目前代码仅处理A1后写入B1，若单元格地址变化，参考附件excel说明调整即可）


Sub Add_Zero()
    Dim cellValue As String
    Dim numbers() As String
    Dim result As String
    Dim i As Integer
   
    ' 读取单元格 A2 的值
    cellValue = Range("A2").Value
   
    ' 通过点号分割数字字符串为数组
    numbers = Split(cellValue, ".")
   
    ' 遍历数组中的每个元素
    For i = 0 To UBound(numbers)
        ' 将个位数前添加一个 "0"，并重新构建结果字符串
        If Len(numbers(i)) = 1 Then
            result = result & "0" & numbers(i) & "."
        Else
            result = result & numbers(i) & "."
        End If
    Next i
   
    ' 去除结果字符串末尾的点号
    result = Left(result, Len(result) - 1)
   
    ' 写入结果到单元格 B2
    Range("B2").Value = result
   
    ' 弹出对话框显示结果
'    MsgBox "已成功处理"
End Sub

binghuang

感谢各位大神，太牛了，谢谢