[已解决]这一句不用find还可以用什么代替,用instr行不行

laoau138

这一句不用find还可以用什么代替,用instr行不行

Sub 不用find还可以用什么()
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
    k = Range("a1:a" & UBound(arr)).Find(arr(i, 1), , , xlWhole).Row  '这一句不用find还可以用什么代替,用instr行不行
    If i - k = 0 Then
    n = n + 1
    brr(n, 1) = arr(i, 1)
    End If
Next
Range("e1:e" & n) = brr()
End Sub

最佳答案

月排行榜 / 总排行榜

雪舞子

2017-3-24 10:11

1. Sub 不用find还可以用什么()
   
2.     arr = Range("a1").CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 1 To UBound(arr)
   
5.         k = Application.Match(arr(i, 1), arr, 0)
   
6.         If i - k = 0 Then
   
7.             n = n + 1
   
8.             brr(n, 1) = arr(i, 1)
   
9.         End If
   
10.     Next
    
11.     Range("e1:e" & n) = brr()
    
12. End Sub

复制代码

跳转到最佳答案楼层

雪舞子

1. Sub 不用find还可以用什么()
   
2.     arr = Range("a1").CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 1)
   
4.     For i = 1 To UBound(arr)
   
5.         k = Application.Match(arr(i, 1), arr, 0)
   
6.         If i - k = 0 Then
   
7.             n = n + 1
   
8.             brr(n, 1) = arr(i, 1)
   
9.         End If
   
10.     Next
    
11.     Range("e1:e" & n) = brr()
    
12. End Sub

复制代码

雪舞子

由于match在数组中查找，因此比find速度更快。

这一句不用find还可以用什么代替,用instr行不行.rar (21.72 KB, 下载次数: 12)

2017-3-24 10:18 上传

点击文件名下载附件

雪舞子

find、match、instr都是字符串(数值)查找函数，但它们应用的环境不同。

find 在单元格中查找，
match 在数组中查找，
instr 在字符串中查找；

因此 instr不能代替 find。

laoau138

雪舞子 发表于 2017-3-24 10:11

果然是高手

laoau138

雪舞子 发表于 2017-3-24 10:18
由于match在数组中查找，因此比find速度更快。

按你的说法，find懂不懂也没有所谓了

laoau138

雪舞子 发表于 2017-3-24 10:30
find、match、instr都是字符串(数值)查找函数，但它们应用的环境不同。

find 在单元格中查找，

find原来没有用，用了反而会拖后腿，