excel 宏补全第一列值

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

S14S91093003	1
3005	1
4002	1
S16M12117003	1
S14S80950034	1
0033	1

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

S14S91093003	1
S14S91093005	1
S14S91094002	1
S16M12117003	1
S14S80950034	1
S14S80950033	1

宏代码：

Sub Macro1()

Dim i As Integer
Dim s As String
Dim l As Integer

For 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 If

Next i

End Sub