要判断身份证号码的位数是否为18位，我自己编了下，运算了下感觉这代码运行速度有点慢

shun0596

请各位前辈，帮我看看这代码能否精简一下，提高运行速度！谢谢！！！


Sub 判断身份证号码位数是否为18位()

'不是18位的标记底色
  h = Range("I65536").End(xlUp).Row
   For i = 3 To h
      If Len(Cells(i, 9)) <> 18 Then Cells(i, 9).Interior.ColorIndex = 6
      If Len(Cells(i, 9)) = 0 Then Cells(i, 9).Interior.ColorIndex = 4
      If Len(Cells(i, 9)) = 18 Then Cells(i, 9).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
   Next i
End Sub

shun0596

朱荣兴 发表于 2018-8-29 22:00
是18位和为空的就不能放到循环中了呀

您好！我的想法是如果不是18位的话，就标记一种颜色，空格标记另外一种颜色     还有修改后在运行一下代码自动把修改后的单元格去掉标记的颜色

719404338

1. Sub t()
   
2.   
   
3.     For i = 3 To Range("I65536").End(xlUp).Row
   
4.      Select Case Len(Cells(i, 9))
   
5.      Case Is = 0
   
6.          Cells(i, 9).Interior.ColorIndex = 4
   
7.      Case Is <> 18
   
8.          Cells(i, 9).Interior.ColorIndex = 6
   
9.      Case Is = 18
   
10.          Cells(i, 9).Select
    
11.       End Select
    
12.          Next i
    
13.   Range("i3:i" & Range("I65536").End(xlUp).Row).Interior.ColorIndex = 0
    
14. End Sub
    

复制代码

abc123281

新同学需要上传附件  并说明详细要求
     如果数据很多   使用数组或union方法  速度会很快

lsc900707

需要附件支持，看看数据量。

zopey

With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With

每次循环都执行以上单元格操作，自然影响代码速度。

shun0596

719404338 发表于 2018-8-29 23:14

好的，谢谢！我试试看

shun0596

zopey 发表于 2018-8-30 08:55
With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0

我也是觉得是这个代码的问题，但是不知道怎么修改能使代码更简单，高效