Sub Combina() Set angolo = Range("CD10") Range("da10:bcd12").ClearContents For r = 10 To 12 c = 104 For i = angolo.Column To angolo.Column + 18 uno = Cells(r, i).Value For j = i + 1 To angolo.Column + 19 due = Cells(r, j).Value For k = j + 1 To angolo.Column + 20 tre = Cells(r, k).Value ris = 0 ris = uno + due + tre c = c + 1 Cells(r, c).Select If ris > 2 Then Cells(r, c) = ris Next k Next j Next i Next r End Sub |
Dim angolo As Range Dim r as long, c as long, i as long, j as long, k as long Dim uno as integer, due as integer, tre as integer, ris as integer |