一段“老”程序

Sub Select_All_Found()
 Dim strFind As String
 Dim rng As Range
 Dim rngFound As Range
 
 strFind = InputBox("请输入要查找的字符串:")
 If strFind = "" Then Exit Sub
 For Each rng In ActiveSheet.UsedRange
   If rng.Value Like "*" & strFind & "*" Then
     If rngFound Is Nothing Then Set rngFound = rng
     Set rngFound = Union(rngFound, rng)
   End If
 Next rng
 If rngFound Is Nothing Then Exit Sub
 rngFound.Select
 MsgBox "找到 " & rngFound.Count & " 个与 " & strFind & " 匹配的单元格."
End Sub

Sub Select_All_Red_Cells()
 Dim rng As Range
 Dim rngRed As Range
 Dim i As Integer
 
 For Each rng In ActiveSheet.UsedRange
   If rng.Interior.Color = vbRed Then
     If rngRed Is Nothing Then Set rngRed = rng
     Set rngRed = Union(rngRed, rng)
     i = i + 1
   End If
 Next rng
 
 If i > 0 Then
   rngRed.Select
   Set rngRed = Nothing
 Else
   MsgBox "没有满足条件的单元格.", vbOKOnly, "都不匹配"
 End If
End Sub