­ã´£³¡ªL

Sub TEST_A1()
Dim R&, Rng(1 To 4) As Range, i%
R = ActiveSheet.UsedRange.Rows.Count - 1
Application.ScreenUpdating = False
For i = 1 To 4
    Set Rng(1) = [e2].Cells(1, i * 4 - 3).Resize(R)
    Set Rng(2) = [s2].Cells(1, i).Resize(R)
    Set Rng(3) = [x2].Cells(1, i).Resize(R)
    Set Rng(4) = [am2].Cells(1, i * 4 - 3).Resize(R)
    With Union(Rng(1), Rng(2), Rng(3), Rng(4))
         .Item(1).Select
         .FormatConditions.Delete
         .FormatConditions.Add Type:=xlExpression, Formula1:="=1/" & Array("$X2", "$Y2", "$Z2", "$AA2")(i - 1)
         .FormatConditions(1).Interior.ColorIndex = 3
    End With
Next i
[e1].Select
End Sub