Используя все цифры без повторений, составьте. а) два квадрата чисел; б) три квадрата чисел.

вот макрос:
Sub ppp()
kk = 1
For ii0 = 1 To 9
For ii1 = 0 To 9
For ii2 = 0 To 9
For ii3 = 0 To 9
For ii4 = 0 To 9
For ii5 = 0 To 9
For ii6 = 0 To 9
For ii7 = 0 To 9
For ii8 = 0 To 9
For ii9 = 0 To 9
If ii9 <> ii8 And ii9 <> ii7 And ii9 <> ii6 And ii9 <> ii5 And ii9 <> ii4 And ii9 <> ii3 And ii9 <> ii2 And ii9 <> ii1 And ii9 <> ii0 Then
If ii8 <> ii7 And ii8 <> ii6 And ii8 <> ii5 And ii8 <> ii4 And ii8 <> ii3 And ii8 <> ii2 And ii8 <> ii1 And ii8 <> ii0 Then
If ii7 <> ii6 And ii7 <> ii5 And ii7 <> ii4 And ii7 <> ii3 And ii7 <> ii2 And ii7 <> ii1 And ii7 <> ii0 Then
If ii6 <> ii5 And ii6 <> ii4 And ii6 <> ii3 And ii6 <> ii2 And ii6 <> ii1 And ii6 <> ii0 Then
If ii5 <> ii4 And ii5 <> ii3 And ii5 <> ii2 And ii5 <> ii1 And ii5 <> ii0 Then
If ii4 <> ii3 And ii4 <> ii2 And ii4 <> ii1 And ii4 <> ii0 Then
If ii3 <> ii2 And ii3 <> ii1 And ii3 <> ii0 Then
If ii2 <> ii1 And ii2 <> ii0 Then
If ii1 <> ii0 Then
Cells(kk, 1) = ii0: Cells(kk, 2) = ii1: Cells(kk, 3) = ii2: Cells(kk, 4) = ii3: Cells(kk, 5) = ii4
Cells(kk, 6) = ii5: Cells(kk, 7) = ii6: Cells(kk, = ii7: Cells(kk, 9) = ii8: Cells(kk, 10) = ii9
For jj = 1 To 9
pp = Cells(kk, 1)
For ll = 2 To jj
pp = pp * 10 + Cells(kk, ll)
Next ll
pp1 = Int(Sqr(pp))
If pp1 * pp1 = pp Then
qq = 0
For mm = jj + 1 To 10
qq = qq * 10 + Cells(kk, mm)
Next mm
qq1 = Int(Sqr(qq))
If qq1 * qq1 = qq Then
For ll = 2 To jj
Cells(kk, ll).Font.Bold = True
Next ll
kk = kk + 1
End If
End If
Next jj
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next ii9
Next ii8
Next ii7
Next ii6
Next ii5
Next ii4
Next ii3
Next ii2
Next ii1
Next ii0
End Sub
а вот результат на сколько у меня хватило терпения)) )

левый квадрат жирным шрифтом, правый квадрат простым