Forum Discussion

TrevorHardisty's avatar
TrevorHardisty
Copper Contributor
Sep 15, 2021
Solved

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'm looking for. I'm using Window 10 and Excel 365.

 

Thanks in advance, Trevor

excel
  • NikolinoDE's avatar
    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.

     

3 Replies

  • NikolinoDE's avatar
    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.