[已解决]将代码扩展运用到多个工作表，为何出错

lijian8003

欲将下述代码扩展运用到工作表1-210，红色部分是添加的，出错。如何修改？恳望得到帮助。
Sub 提取()
Dim ar, x, k, br(1 To 30000, 1 To 1)
For y = 1 To 210
Sheets(y).Select  
Range("d:d").ClearContents
  ar = Range("c1:c" & [c65500].End(3).Row)
   For x = 1 To UBound(ar)
    If Application.CountIf(Range("a:b"), ar(x, 1)) = 0 Then
      k = k + 1
      br(k, 1) = ar(x, 1)
    End If
   Next
   [d1].Resize(k) = br
Next
End Sub

最佳答案

月排行榜 / 总排行榜

gdpgdp317

2015-3-4 20:03

Sub 提取()
Dim ar, x, k, br(1 To 30000, 1 To 1)
For y = 1 To 210
Sheets(y).Select  
Range("d:d").ClearContents
k=0
  ar = Range("c1:c" & [c65500].End(3).Row)
   For x = 1 To UBound(ar)
    If Application.CountIf(Range("a:b"), ar(x, 1)) = 0 Then
      k = k + 1
      br(k, 1) = ar(x, 1)
    End If
   Next
   [d1].Resize(k) = br
erase br
Next
End Sub
看看可不可以？

跳转到最佳答案楼层

gdpgdp317

有啥提示没？我拿到新工作簿中没有错误

lijian8003

gdpgdp317 发表于 2015-3-4 19:34
有啥提示没？我拿到新工作簿中没有错误

错在：工作表1的数据累加到工作表2，工作表1、2的数据累加到工作表3....

gdpgdp317

Sub 提取()
Dim ar, x, k, br(1 To 30000, 1 To 1)
For y = 1 To 210
Sheets(y).Select  
Range("d:d").ClearContents
k=0
  ar = Range("c1:c" & [c65500].End(3).Row)
   For x = 1 To UBound(ar)
    If Application.CountIf(Range("a:b"), ar(x, 1)) = 0 Then
      k = k + 1
      br(k, 1) = ar(x, 1)
    End If
   Next
   [d1].Resize(k) = br
erase br
Next
End Sub
看看可不可以？

lijian8003

gdpgdp317 发表于 2015-3-4 20:03
Sub 提取()
Dim ar, x, k, br(1 To 30000, 1 To 1)
For y = 1 To 210

谢谢，解决问题了。