第一列某些单元格值未补全使用简写方式省略了一些编号如下
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