Sub test()
Dim n, A, i, j, x
n = Application.InputBox("请输入一个数字:", , 8, , , , , 1)
ReDim A(1 To n, 1 To n)
For i = 1 To n
For j = 1 To i
If j = 1 Or j = i Then
A(i, j) = 1
Else
A(i, j) = A(i - 1, j - 1) + A(i - 1, j)
End If
Next j
Next i
[A1].CurrentRegion = ""
[A1].Resize(n, n) = A
End Sub