Sub 查詢（）
Dim rng As Range, rng1 As Range
For Each rng In [a2:a9]
For Each rng1 In [b1:g1]
If rng1.Value = [b14].Value Then
If rng.Value = [b13].Value Then
[b15] = Intersect（rng1.EntireColumn, rng.EntireRow）.Value
End If
End If
Next
Next
End Sub
 |
七仔夢xxx
展開
|
 |
0小不懂0
展開
|
  學習達人
|
T444308we
展開
|
 |
feitianhuanmao
展開
Sub 交集Intersect（）
Dim xm As Range, yf As Range
For Each xm In [A2:A20]
For Each yf In [b1：j1]
If xm.Value = Range（"b23"）.Value And yf.Value = Range（"b24"）.Value Then
Range（"b25"） = Intersect（xm.EntireRow, yf.EntireColumn）.Value
End If
Next
Next
End Sub
'IF用 and 同時判斷行和列是否為真，代碼更簡潔 |
|
學習達人
|
haha2006hei
展開
不用兩次for each,一次就可以：
Sub 查詢（）
Dim rng As Range, rng1 As Range, rng2 As Range
For Each rng In Range（"a2:a9", "b1:g1"）
If rng = [b13].Value Then
Set rng1 = rng.EntireRow
End If
If rng = [b14].Value Then
Set rng2 = rng.EntireColumn
End If
Next
[b15] = Intersect（rng1, rng2）
End Sub |
 打卡Lv1
|
gyf519
展開
|
承擔因您的行為而導致的法律責任，
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。