[已解决]请教各位，用VBA实现，谢谢

chensir

如果A列格式为4位，则取前面数值；如果为1为或2为，则变成4位

最佳答案

月排行榜 / 总排行榜

爱疯

2013-12-2 16:10

Sub test()
    Dim r, i
   
    r = Range("a65536").End(xlUp).Row
    Range("b:b").ClearContents
   
    For i = 2 To r
        Cells(i, 2) = IIf(Cells(i, 1) < 2000, Cells(i, 1) + 2000, Cells(i, 1))
    Next
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim r, i
   
    r = Range("a65536").End(xlUp).Row
    Range("b:b").ClearContents
   
    For i = 2 To r
        Cells(i, 2) = IIf(Cells(i, 1) < 2000, Cells(i, 1) + 2000, Cells(i, 1))
    Next
End Sub

yuan1987

=IF(LEN(A2)=1,CONCATENATE("200",A2),IF(LEN(A8)=2,CONCATENATE("20",A2),A2))
为啥么一定要用vba呢，公式不可以么

chensir

yuan1987 发表于 2013-12-2 16:16
=IF(LEN(A2)=1,CONCATENATE("200",A2),IF(LEN(A8)=2,CONCATENATE("20",A2),A2))
为啥么一定要用vba呢，公式 ...

谢谢，我是放在宏里运行的，这是其中一小内容