特定の行の特定の列の値に一致するすべての行を選択するには

Question

次のようなコードを記述しています： アクティブなセルを選択した状態で、列Dのアクティブ行の値と一致します。たとえば、アクティブ行の列Dの値が "Sea"の場合、すべての行をループし、列Dに "sea"を持つ列を選択します。私は今、あなたが求めてきました何をすべきかのコードを改訂しました

SELECT * From Table1 
Where columnD=(Select ColumnD From Table1 Where ColumnA=ActiveCell) 

Answer 1

：

私が探しています何のSQL同等物は、これです。アニメーションGIFは、3つのケースについてテストしたことを示しています。

Option Explicit 
Sub test3() 
Dim tableR As Range, cell As Range, r As Range 
Dim s As String 
Set tableR = Range("A1:C10") 
Set r = Selection 
For Each cell In tableR 
    If cell = r Then 
    s = s & cell.Row & ":" & cell.Row & ", " 
    End If 
Next cell 
s = Left(s, Len(s) - 2) 
Range(s).Select 
End Sub