excel数字添加前置0_ljc_qd

个人资料

微博

正文字体大小：大中小

excel数字添加前置0

(2022-06-10 13:42:22)

标签：

分类： Microsoft技术

我有个表个，U列的数据是类似于 ”3-6“，”11-22“ 这种，现在想把1位的数字变成两位，前面加0，使用宏操作，具体宏脚本如下：其它类似可基于此自行调整

Sub U列数字前面加0()

Dim c As Range

Dim v As Variant

Dim a As Variant

Dim b As Variant

Range("u:u").NumberFormatLocal = "@"

For Each c In Application.Selection

'MsgBox (InStr(c.Value, "-"))

If InStr(c.Value, "-") > 0 Then

v = Split(c.Value, "-")

If Len(v(0)) = 1 Then

a = "0" & v(0)

Else

a = v(0) & ""

End If

If Len(v(1)) = 1 Then

b = "0" & v(1)

Else

b = v(1) & ""

End If

c = a & "-" & b

End If

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report