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

이는 다음을 생성합니다.

소수를 표시하려면 이 코드를 수정하세요.