发布网友
共1个回答
热心网友
Dim AAA = 所选单元格
IF Len(AAA) < 4 Then
Select Case Left(AAA,1)
Case "1"
AAA = "8" & AAA
Case "2"
AAA = "7" & AAA
......
End Select
End IF