Verwenden von VBA zum Erstellen einer bestimmten Zahlenfolge in Excel

Question

Ich versuche, eine Tabelle mit Quadraten an den Seiten zu erstellen, in die ich die restlichen Zahlen eintrage, wie unten dargestellt:

1

2 3

4 5 6 7 8

9 10 11 12 13 14 15

16 17 18 19 20 21 22 23 24.....usw. bis zu einer großen Zahl

Ich habe hier überhaupt keinen Erfolg und wäre daher für jede Hilfe dankbar ...

als Zugabe möchte ich dann die Zellen formatieren, die Primzahlen enthalten. Ich habe hier einen Code, von dem ich glaube, dass er funktionieren wird, wenn ich das oben genannte zum Laufen bekomme.

Danke für jede Hilfe dabei

Kevin

Answer 1

Füllen Sie einfach die SpalteAmit den Quadraten und fülle dann jede Zeile mit fortlaufenden Werten aus.:

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

Das Ergebnis ist:

Ändern Sie einfach diesen Code, um die Primzahlen zu markieren.