VBA初学者程序示例：匹配多个条件并执行相应操作

Sub Set_Patterns()
 Dim i As Long
 Dim d As Range
 Dim Source As Worksheet
 Dim fruit As Variant
 Dim rSS As Range
 Dim rPP As Range
 
 Set Source = ActiveWorkbook.Worksheets("Test_Data")
 
 fruit = Array("Apple", "Banana", "Cherry")
 
 For i = LBound(fruit) To UBound(fruit)
   Set rSS = Nothing
   Set rPP = Nothing
 
   For Each d In Source.Range("A2:A10").Cells
     If d = fruit(i) Then
       Select Case d.Offset(0, 1)
       Case "SS"
         Set rSS = d
       Case "PP"
         Set rPP = d
       End Select
     End If
   Next d
 
   If Not (rPP Is Nothing Or rSS Is Nothing) Then
     rPP.Resize(1, 2).Interior.Color = vbRed
     rSS.Resize(1, 2).Interior.Color = vbRed
   End If
 Next i
End Sub