第24集老师写的代码有问题

cdez

其中代码之一
Sub 数组方法()
Dim arr, t
Dim x As Integer
Dim sr As String, sr1 As String
清除颜色
t = Timer
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) > 500 Then
      sr1 = sr
      sr = sr & "A" & x + 1 & ":D" & x + 1 & ","
      If Len(sr) > 20 Then
        sr = sr1
        Range(Left(sr, Len(sr) - 1)).Interior.ColorIndex = 3
        sr = ""
      End If
   End If
Next x
MsgBox Timer - t
End Sub
这里 sr = "" 是有问题的，我认为应该改为 sr = "A" & x + 1 & ":D" & x + 1 & ","

cdez

数组方法2，数组方法3中代码也应该作类似改变。

zxc1152468

做怎么犯上呢

cdez

什么意思嘛？外星语？

兰色幻想

好象是有问题，谢谢您的提醒

zjdh

cdez 发表于 2012-11-20 10:59
数组方法2，数组方法3中代码也应该作类似改变。

仅数组方法1有问题，数组方法2、数组方法3都没问题。

cdez

zjdh 发表于 2012-11-20 14:07
仅数组方法1有问题，数组方法2、数组方法3都没问题。

{:35:},你说得对！我再试试