VBA如何两条IF语句改为一条 已经有VBA代码

scl5801

laoau123 发表于 2016-8-21 22:39
这个自定义函数，为何用一条IF就搞定

用InStr函数行不？
If InStr("|" & brr(i, 1) & "|" & brr(i, 2) & "|", "|" & arr(x, j) & "|") Then n = n + 1

laoau123

scl5801 发表于 2016-8-22 10:08
用InStr函数行不？
If InStr("|" & brr(i, 1) & "|" & brr(i, 2) & "|", "|" & arr(x, j) & "|") Then ...

是否直接改就不行，

instr当然可以用

scl5801

laoau123 发表于 2016-8-22 10:10
是否直接改就不行，

instr当然可以用

Sub lqxs()
Dim arr, i&, brr, j&, m&, n&
Sheet1.Activate
[l10:l5000].ClearContents
arr = [c9].CurrentRegion
brr = [j9].CurrentRegion
For i = 2 To UBound(brr)
m = 0
For x = 2 To UBound(arr)
n = 0
For j = 1 To UBound(arr, 2)
If InStr("|" & brr(i, 1) & "|" & brr(i, 2) & "|", "|" & arr(x, j) & "|") Then n = n + 1 '两条IF语句改为一条,结果不能出
'将两条if改为 if arr(x,j)=brr(i,1) and arr(x,j)=brr(i,2) then n=n+1
Next
If n = 2 Then m = m + 1                      '直接判断如何改，不用先判断n=2,然后m累加1
Next
brr(i, 3) = m
Next
[j9].CurrentRegion = brr
End Sub

laoau123

scl5801 发表于 2016-8-22 10:18
Sub lqxs()
Dim arr, i&, brr, j&, m&, n&
Sheet1.Activate

自定义函数改写SUB   不要改变自定义函数方法

laoau123

fjmxwrs 发表于 2016-8-21 22:25
还可以这样判断????

大哥如何做

http://www.excelpx.com/thread-423815-1-1.html
http://www.excelpx.com/thread-423814-1-1.html