Как прописать все возможные символы в массив?

[EducatedFool]

а надо
7*7*7*15*20*25 = 2 572 500

не-а, больше, с нуля же отсчет
8*8*8*16*21*26 = 4.472.832

мне нужно в столбик что бы появились цифры

подождите немного (лет 5-7)
в Excel 2020, скорее всего, будет больше миллиона строк на листе, - тогда напишем вам макрос

[abcd_84]

Сообщение от IgorGO

в екселе нет столбика на 38млн.847тыс.500 строк

не обязательно что бы было все в один столбик. от А1, А2 до А(максимум), продолжение на столбик справа и т.д.
как сделать то? Никто не знает?

[kalbasiatka]

Сообщение от abcd_84

как сделать то? Никто не знает?

Что с них взять, только стату постами набивают. (сарказм, если чо)

[Serge_Bliznykov]

abcd_84, Вы продолжаете упорстовавать, не понимая, что это Вам не нужно?!
Ну-ну...

Сообщение от abcd_84

не обязательно что бы было все в один столбик. от А1, А2 до А(максимум), продолжение на столбик справа и т.д.

получите и распишитесь:FillPermutions.rar

за основу взят цикл (с) EducatedFool из пост #5

p.s. у меня заполняется примерно за четыре минуты...

[shanemac51]

создание текстовика 23000строк на 254 сторбца=4473857 ячеек

и всего 15 секунд

Sub FillPermut29()
    Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    'Dim indRow&, indCol&, maxRow&
    
    Dim kx((1 + 7) * (1 + 25) * (1 + 20) + 1) As String, kj1 As Long
    Dim dt1, s1, jrow, jcolumn
    'maxRow& = Range("A65535").End(xlDown).Row
    'indCol& = 1
    Open "c:\rab\fill29.csv" For Output As #1
    'MsgBox ("Жмите OK и ждите несколько минут окончания работы....")
    
    dt1 = Timer
    Application.ScreenUpdating = False
   
    For i4 = 0 To 7
       For i5 = 0 To 25
          For i6 = 0 To 20
          kj1 = kj1 + 1 '''примерно до 32000
                kx(kj1) = i4 & " " & i5 & " " & i6
            Next
        Next
    
    Next
   
    jcolumn = 0
    For i1 = 0 To 7
        For i2 = 0 To 7
        
            For i3 = 0 To 15
         
                For i4 = 1 To kj1
                jcolumn = jcolumn + 1
                If jcolumn > (7 + 1) * (7 + 1) * 3 Then '' до 254
                Print #1, ""
                Print #1, "";
                jcolumn = 0
                End If
                   s1 = i1 & " " & i2 & " " & i3 & " " & kx(i4)
                   
                   Print #1, s1; ";";
                 Next
        
        Next
        Next
        Debug.Print (Timer - dt1) \ 1;
    Next
    Application.ScreenUpdating = False
  Reset
  Debug.Print Now
End Sub

[IgorGO]

23000строк на 254 сторбца=4473857 ячеек и всего 15 секунд

отличный результат!!!

abcd_84 осталось только решить (или обратиться к кому-то с просьбой помочь решить) как этим пользоваться)))

[abcd_84]

вот такой вариант еще мне подсказали
=ЕСЛИ(ИЛИ(И(B2=0;B1=25);ЕПУСТО(B2)) ;ЕСЛИ(A1<25;A1+1;0);A1)

[abcd_84]

shanemac51 - ГЕНИЙ!
А можно что бы в столбик, а не в строчку выводилось?

[abcd_84]

Сообщение от shanemac51

создание текстовика 23000строк на 254 сторбца=4473857 ячеек

и всего 15 секунд

Sub FillPermut29()
    Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    'Dim indRow&, indCol&, maxRow&
    
    Dim kx((1 + 7) * (1 + 25) * (1 + 20) + 1) As String, kj1 As Long
    Dim dt1, s1, jrow, jcolumn
    'maxRow& = Range("A65535").End(xlDown).Row
    'indCol& = 1
    Open "c:\rab\fill29.csv" For Output As #1
    'MsgBox ("Жмите OK и ждите несколько минут окончания работы....")
    
    dt1 = Timer
    Application.ScreenUpdating = False
   
    For i4 = 0 To 7
       For i5 = 0 To 25
          For i6 = 0 To 20
          kj1 = kj1 + 1 '''примерно до 32000
                kx(kj1) = i4 & " " & i5 & " " & i6
            Next
        Next
    
    Next
   
    jcolumn = 0
    For i1 = 0 To 7
        For i2 = 0 To 7
        
            For i3 = 0 To 15
         
                For i4 = 1 To kj1
                jcolumn = jcolumn + 1
                If jcolumn > (7 + 1) * (7 + 1) * 3 Then '' до 254
                Print #1, ""
                Print #1, "";
                jcolumn = 0
                End If
                   s1 = i1 & " " & i2 & " " & i3 & " " & kx(i4)
                   
                   Print #1, s1; ";";
                 Next
        
        Next
        Next
        Debug.Print (Timer - dt1) \ 1;
    Next
    Application.ScreenUpdating = False
  Reset
  Debug.Print Now
End Sub

Как то не правильно работает
НЕ МОГУ НАЙТИ ЗНАЧЕНИЕ 7 7 7 15 20 25

[abcd_84]

все сам починил, спасибо большое