Sep 15 2021 04:14 AM
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'm looking for. I'm using Window 10 and Excel 365.
Thanks in advance, Trevor
Sep 15 2021 04:37 AM
SolutionIn 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.
Sep 16 2021 03:43 AM
@NikolinoDEThanks for your reply, your formula has saved my a lot of work. Thanks once again.
Sep 15 2021 04:37 AM
SolutionIn 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.