求EXCEL数字中添加数字函数或公式

Sub modi()

'设A列为姓名，B列原号码，C列新号码

Dim r As Object '定义变量，相当于一个指针

Set r = Range("b2") '指向B列第2行

While r <>"" '循环，直到内容为空

Select Case Left(r, 4) '检查号码前4位

Case "0731"

'替换0731开头的号码

r.Offset(0, 1) = "'07318" &Right(r, 7)

Case "0733"

'替换0733开头的号码

r.Offset(0, 1) = "'07312" &Right(r, 7)

Case Else

'照抄

r.Offset(0, 1) = r

End Select

Set r = r.Offset(1, 0) '指针移到下一行

Wend '循环结束

End Sub

例如想在a1前加数字0，在b1里输入：="0"&a1

如果想在当列里得到这种效果，可以自定义格式为："0"@

自定义格式命令在格式菜单，单元格命令，数字选项卡里的最后一项