怎么限定代码筛选的范围，谢谢！

seekonce

1. Sub zz()
   
2.     Dim d, ar
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ar = Range("c2").CurrentRegion
   
5.     For i = 2 To UBound(ar)
   
6.         For j = 1 To UBound(ar, 2)
   
7.             If ar(i, j) <> "" Then d(ar(i, j)) = ""
   
8.         Next
   
9.     Next
   
10.     [s:s].ClearContents
    
11.     [s2] = "科目名称"
    
12.     Columns("s:s").NumberFormatLocal = "@"
    
13.     [s3].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
14. End Sub
    

复制代码

这个代码是一点就筛选全部行列的数据，比如我想只筛选B列至R列的数据，应该怎么修改呢？谢谢！

lsdongjh

范围 由ar = Range("c2").CurrentRegion 这一句决定

改为 ar=range("B:R") 或 ar=range("B1:R200") 之类的就成

网海遨游

r =cells(rows.count,1).End(3).Row
arr=range("b2:r" & r)