我如何选择满足特定行中特定列的值的所有行

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