Vba 如何选择符合特定行中特定列的值的所有行

我正在编写一个代码，它将执行以下操作： 选中活动单元格后，我想在表中选择与列D中活动行的值相匹配的其他行。例如，如果活动行的值在列D中为“Sea”，我想遍历所有行，并选择在列D中为“Sea”的行

我正在寻找的SQL等价物是：

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

---

我已经修改了代码，现在按照您的要求执行。动画gif显示它测试了3个案例

---

您可以使用接近gif的选项，但我想选择整行。假设活动单元格是C1，其值为Lake，我想选择所有具有活动单元格值的行。因此，在本例中，将选择第1、4和8行。非常感谢您，先生，我非常感谢您抽出时间。

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