我如何選擇滿足特定行中特定列的值的所有行

Question

我正在編寫一個代碼，它將執行如下操作： 選中活動單元格後，我想選擇表中的其他行例如，如果活動行在D列中的值爲「Sea」，我想遍歷所有行並選擇那些在D列中具有「海」的行。

的SQL相當於我所尋找的是這樣的：

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

Answer 1

我已經修改了代碼，現在你問過什麼。 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