使用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

只需填寫欄位即可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

這將產生：

只需修改此程式碼以標記素數即可。