U najelementarnijem obliku, mogli bismo do rešenja praktično iz dva koraka: prvo dve katete trougla ispunimo jedinicama a u drugom, prostor između, jedinstvenom formulom za sabiranje dva suseda -- već prema pravilu za pružanje.
Code:
Sub Paskalov_Trougao_iz_A1()
' Dimenzija trougla u A1: radi za dimenzije >= 2
If [a1].Value >= 2 Then
Names.Add Name:="\dim", RefersTo:=[a1].Value
ActiveCell.CurrentRegion.ClearContents
Range([a1].Resize([\dim]), [a1].Resize(, [\dim])) _
.Value = 1
[b2].Resize([\dim] - 1, [\dim] - 1) _
.FormulaR1C1 = "=IF(COLUMN()-ROW()-2<" _
& [\dim] & "-2*ROW(),rc[-1]+r[-1]c,"""")"
Names("\dim").Delete
End If
End Sub
Sad, s obzirom da je navedeno da "sledeći nivo" čine A2, B1 to znači da se katete pružaju u pravcima A1:A2 i A1:B1.