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

gqg1989

我用的是EXCEL2010，我把VBA80集第24集中示例文件中“数组方法”的代码复制到我自己的excel中并执行代码，发现有些小问题。我要达到的效果就是D列数据大于15000时，该行数据填充红色。由于我把D列数据弄得很大，从第一个数据大于15000以后，后面所有数据都大于15000，结果每填充25行后，就有一行没有填充。有谁可以解释一下为什么？
Sub 清除颜色()
% i0 j2 J$ F6 w+ C4 @: B/ t. @Range("a:d").Interior.ColorIndex = xlNone
0 ?) ~" R$ V- u# b: o! R+ PEnd Sub

Sub 数组方法0()
+ X5 y' w6 m, T% M# j7 y Dim arr, t
Dim x As Integer
Dim sr As String, sr1 As String
清除颜色
t = Timer
$ u- x3 ]8 Z: k+ \- c& y6 C) D arr = Range("d2:d" & Range("a65536").End(xlUp).Row)
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
      sr1 = sr
' O" H& v) q8 x$ Y/ a+ u      sr = sr & "A" & x + 1 & ":D" & x + 1 & ","
      If Len(sr) > 255 Then
4 c9 [. t6 x5 j+ j        sr = sr1
        Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
        sr = ""
      End If
   End If
, D* I& t% m' B1 h3 j9 @1 g Next x
MsgBox Timer - t
+ c. a; W0 J# u/ x1 @End Sub

( @6 Y, A$ b7 o) m