Excel VBA需求：判断C列数值是否为6位，不足则在B列补0填充

原有代码问题 #

• 未定位C列实际有数据的行范围，直接操作整列会产生大量无效计算，也无法逐行匹配对应单元格的内容长度
• 存在语法错误：IsNumeric 函数缺少右括号，逻辑判断的括号配对错误
• 没有实现「补前导0凑满6位」的核心逻辑，仅实现了给B列赋值0的操作

完整可运行代码 #

Sub 补前导0到6位()
    Dim lastRow As Long
    Dim i As Long
    ' 自动获取C列最后一行有数据的行号，无需手动指定行数
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    
    ' 遍历行，默认从第2行开始（跳过表头），无表头可修改为i = 1
    For i = 2 To lastRow
        ' 仅对C列数值类型的内容做处理，不需要判断可删除该If条件
        If IsNumeric(Cells(i, "C").Value) Then
            ' Format函数自动补前导0至6位，赋值给B列对应行
            Cells(i, "B").Value = Format(Cells(i, "C").Value, "000000")
        End If
    Next i
End Sub

注意事项 #

• 若需要B列始终显示带前导0的6位内容，建议提前将B列单元格格式设置为文本类型，避免Excel自动省略前导0
• 若需要处理C列的非数值字符串内容，删除IsNumeric判断条件即可，直接用Right(String(6, "0") & CStr(Cells(i, "C").Value), 6)实现字符串补前导0的效果

内容的提问来源于stack exchange，提问作者Larow