excel 宏补全第一列值

最新推荐文章于 2024-12-27 13:29:05 发布

原创最新推荐文章于 2024-12-27 13:29:05 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #c

宏专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用宏代码补全特定列中编号的示例，详细解释了如何通过编程逻辑确保数据完整性。

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

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