下面是程式碼分享

Dim sr As Range, sr2 As Range 申明資料型別變數

If Range("f1") = "" Then End 條件判斷，條件成立就退出所有程式碼

For Each sr In Range("a1:d29") 單元格區域迴圈

If sr = Range("f1") Then 條件判斷

If sr2 Is Nothing Then 條件判斷巢狀條件判斷語句

Set sr2 = sr 把單元格物件賦給變數

Else 條件不成立

Set sr2 = Union(sr2, sr) 把迴圈出來的單元格收集起來一下賦給變數

End If 結束條件判斷語句

End If

Next 結束迴圈語句

sr2.Select 選擇裝滿變數的所有單元格

End Sub