EXCELVBA根据多条件求和

更新时间：2021-07-29 07:46:27 182次访问

Sub 多条件数据整理()
  

Dim rng As Range
  

Dim i As Long
  

For Each rng In Range(Range("C2"), Range("C2").End(xlDown))
      

i = rng.Offset(0, 10).Value + rng.Offset(1, 10).Value
      

If rng = rng.Offset(1, 0) And _
         

rng.Offset(0, 5) = rng.Offset(1, 5) And _
         

rng.Offset(0, 12) <> 1 And _
         

rng.Offset(1, 12) <> 1 And _
         

i <= 100000 Then
         

rng.Offset(0, 14) = i
         

rng.Offset(0, 14).Interior.Color = RGB(255, 180, 178)
         

rng.Offset(1, 14) = i
         

rng.Offset(1, 14).Interior.Color = RGB(255, 180, 178)
      

End If
  

Next 

End Sub