VBA80集第24集中示例文件代码执行有些问题

gqg1989

我用的是EXCEL2010，我把VBA80集第24集中示例文件中“数组方法”的代码复制到我自己的excel中并执行代码，发现有些小问题。我要达到的效果就是D列数据大于15000时，该行数据填充红色。由于我把D列数据弄得很大，从第一个数据大于15000以后，后面所有数据都大于15000，结果每填充25行后，就有一行没有填充。有谁可以解释一下为什么？
Sub 清除颜色()
Range("a:d").Interior.ColorIndex = xlNone
End Sub
( n. |; @, L* a* J3 D! G
  c- |  l* }+ `+ l7 B4 U* n/ D3 XSub 数组方法0()
0 ^  @# Q6 S' l: ~5 M Dim arr, t
/ ?( W' f4 y3 w! Y1 [# H/ ]2 ^# l+ U Dim x As Integer
Dim sr As String, sr1 As String
- R$ H0 B+ d6 M 清除颜色
t = Timer
arr = Range("d2:d" & Range("a65536").End(xlUp).Row)
8 H, l/ w- a- D8 h9 V9 V For x = 1 To UBound(arr)
   If x = UBound(arr) And sr <> "" Then Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
   If arr(x, 1) > 15000 Then
/ p8 H# D& A% y: \2 s% d      sr1 = sr
7 R( R2 [+ n+ ]3 J4 I% w; H6 B# P2 x      sr = sr & "A" & x + 1 & ":D" & x + 1 & ","
0 z' p( V; }  q  k$ _) _' W' a      If Len(sr) > 255 Then
        sr = sr1
        Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
8 t) i3 u! J3 M4 k* [        sr = ""
      End If
/ q, v  H# M  P   End If
" I6 i# ^0 U$ _9 i/ d Next x
MsgBox Timer - t
End Sub

4 i7 g* b" l1 ]) i