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

1

2 3

4 5 6 7 8

9 10 11 12 13 14 15

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

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

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

ура за любую помощь с этим

Kevin

1 ответ1

1

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

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

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

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .