我有兩列，范圍為 O6:P，它們評估 J 中的資料行并顯示通過或失敗。O 和 P 中的結果并不總是相同的。一個可以顯示通過，另一個將失敗。我在這里的代碼大部分都有效。除了它在 J 列中選擇 O 或 P 等于 PASS 的范圍。我需要它只選擇兩列都通過的范圍。有沒有辦法將其拆分，以便它只選擇 J 中的范圍，其中 O 和 P 的行中的兩個值都通過？
Dim lastrow As Long
Dim xRg As Range, yRg As Range, nRg As Range, mRg As Range
'Selecting range = to PASS
With ShNC1
lastrow = .Cells(.Rows.Count, "J").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("O6:P" & lastrow)
If UCase(xRg.Text) = "PASS" Then
If yRg Is Nothing Then
Set yRg = .Range("J" & xRg.Row)
Else
Set yRg = Union(yRg, .Range("J" & xRg.Row))
End If
End If
Next xRg
End With
If Not yRg Is Nothing Then yRg.Select
uj5u.com熱心網友回復：
您可以只遍歷 O 并用于Offset檢查 P：
Dim lastrow As Long
Dim xRg As Range, yRg As Range, nRg As Range, mRg As Range
'Selecting range = to PASS
With ShNC1
lastrow = .Cells(.Rows.Count, "J").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("O6:O" & lastrow)
If UCase(xRg.Text) = "PASS" And UCase(xRg.Offset(, 1).Text) = "PASS" Then
If yRg Is Nothing Then
Set yRg = .Range("J" & xRg.Row)
Else
Set yRg = Union(yRg, .Range("J" & xRg.Row))
End If
End If
Next xRg
End With
If Not yRg Is Nothing Then yRg.Select
uj5u.com熱心網友回復：
#女士-Excel#
將此公式輸入或復制到要輸出結果的空白單元格中：
=INDEX(A2:A15,MODE(MATCH(A2:A15,A2:A15,0)))
提示： 在這個公式中： A2:A15: 是您要查找文本出現次數最多的資料串列。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/491496.html