excel 宏补全第一列值

第一列某些单元格值未补全使用简写方式省略了一些编号如下

S14S9109300313005140021S16M121170031S14S80950034100331

通过宏把第A2中的编号补全为如下：

S14S910930031S14S910930051S14S910940021S16M121170031S14S809500341S14S809500331

宏代码：

Sub Macro1()Dim i As IntegerDim s As StringDim l As IntegerFor i = 1 To 780    Range("A" & i).Select        l = Len(ActiveCell.FormulaR1C1)        If l > 4 Then                s = Left(ActiveCell.FormulaR1C1, l - 4)                'MsgBox "内容" & s                    ElseIf l = 4 Then                ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & temp                'MsgBox "新内容" & s & temp            End IfNext iEnd Sub