首页 > 解决方案 > 列中的单元格只需包含 3 个数字或字符

问题描述

如果没有错误消息,我想检查只有 3 个数字或 3 个字符的列中的单元格,以获取任何格式。当列单元格值采用“自定义/特殊”格式时,我的代码在下面,它对我不起作用。例如,如果单元格有 001 或 000,则不算作 3 位数。请帮忙

Sub three_digits()
Dim c As Range
Dim alastrow As Long
alastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("B2:C2" & alastrow)
If Len(c.Value) <> 3 And c.Value <> "" Then
MsgBox "Error" & c.Address


   
  End If
Next c
End Sub

标签: excelvba

解决方案


推荐阅读