использование vba для создания определенной числовой последовательности в excel

Question

Я пытаюсь создать электронную таблицу с квадратами по бокам и заполнением оставшихся чисел, как показано ниже:

1

2 3

4 5 6 7 8

9 10 11 12 13 14 15

16 17 18 19 20 21 22 23 24.....и т.д. до большего числа

У меня здесь нет никаких успехов, поэтому любая помощь будет оценена по достоинству...

для бис я затем хочу отформатировать ячейки, которые содержат простые числа. У меня есть некоторый код здесь, который, я думаю, будет работать, если я заставлю работать вышесказанное.

буду рад любой помощи с этим

Кевин

Answer 1

Просто заполните столбецАс квадратами, а затем заполните каждую строку последовательными значениями.:

Sub ytrewq()
    For i = 1 To 100
        k = 1
        For j = i ^ 2 To ((i + 1) ^ 2) - 1
            Cells(i, k) = j
            k = k + 1
        Next j
    Next i
End Sub

который произведет:

Просто измените этот код, чтобы обозначить простые числа.