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
承擔因您的行為而導致的法律責任,
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。