Series Fill

Hi, I'm new to Excel, what I'm trying to do is create a worksheet with letters AAA thorough to ZZZ, I would like to use series fill to save time in typing each cell. My sample file shows the format I...

sample.xlsx10 KB

excel

NikolinoDE
Sep 15, 2021
TrevorHardisty
In formula:
=CHAR(TRUNC((ROW(A1)-1)/26/26,0)+65)&CHAR(MOD(TRUNC((ROW(A1)-1)/26,0),26)+65)&CHAR(MOD(ROW(A1)-1,26)+65)

with VBA:
insert into a module
Sub AA_AAZ() Dim wks As Worksheet Set wks = Worksheets("Tabelle1") zeile = 2 For z = 65 To 90 For s = 65 To 90 wks.Cells(zeile, 1) = Chr(z) & Chr(s) zeile = zeile + 1 Next s Next z End Sub
File with examples inserted.

I would be happy to know if I could help.

NikolinoDE
I know I don't know anything (Socrates)
* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.
AAA_AAZ.xlsm18 KB

NikolinoDE

Platinum Contributor

Sep 15, 2021

TrevorHardisty

In formula:

=CHAR(TRUNC((ROW(A1)-1)/26/26,0)+65)&CHAR(MOD(TRUNC((ROW(A1)-1)/26,0),26)+65)&CHAR(MOD(ROW(A1)-1,26)+65)

with VBA:

insert into a module

Sub AA_AAZ()
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
zeile = 2
For z = 65 To 90
    For s = 65 To 90
       wks.Cells(zeile, 1) = Chr(z) & Chr(s)
       zeile = zeile + 1
    Next s
Next z
End Sub

File with examples inserted.

I would be happy to know if I could help.

NikolinoDE

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

AAA_AAZ.xlsm18 KB