[已解决]请大侠们帮改下代码

假绅士

1. Sub 查找2()
   
2.     Dim arr, brr(), brr2(), i&, m&, s$
   
3.     s = [c1]
   
4.     arr = Range("A2:B" & [a65536].End(xlUp).Row)
   
5.     ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     ReDim brr2(1 To UBound(arr), 1 To 2)
   
7.     For i = 1 To UBound(arr)
   
8.         If InStr(arr(i, 1), s) Then
   
9.             m = m + 1
   
10.             brr(m, 1) = arr(i, 1)
    
11.             brr2(m, 1) = arr(i, 2)
    
12.         End If
    
13.     Next
    
14.     Range("c2:d65536").ClearContents
    
15.     If m > 0 Then
    
16.     [c2].Resize(m) = brr
    
17.     [d2].Resize(m) = brr2
    
18.     Else
    
19.     MsgBox "查询结果为空"
    
20.     Range("c2:d65536").ClearContents
    
21.     End If
    
22. End Sub

复制代码

这段代码是类似模糊搜索的，但是它只能在同一工作表中查找，希望大侠们帮忙改一下，可以把搜索区域改成另一个工作表中，我试了很长时间，一直没改成功，请大侠们帮帮忙吧！

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2015-11-26 11:22

比如arr = Range("A2:B" & [a65536].End(xlUp).Row)

改成arr = sheets("工作表名").Range("A2:B" & sheets("工作表名").[a65536].End(xlUp).Row)

跳转到最佳答案楼层

这儿有肥猫

比如arr = Range("A2:B" & [a65536].End(xlUp).Row)

改成arr = sheets("工作表名").Range("A2:B" & sheets("工作表名").[a65536].End(xlUp).Row)

假绅士

这儿有肥猫 发表于 2015-11-26 11:22
比如arr = Range("A2:B" & [a65536].End(xlUp).Row)

改成arr = sheets("工作表名").Range("A2:B" & shee ...

正解，谢谢你。