Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.03.2013, 13:45   #1
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию Буквенно-цифровые варианты

Добрый день, уважаемые форумчане!
Чего-то я затупил на простой задаче. Есть лист, в первом столбце которого все цифры и буквы. Есть макрос, которые во второй столбец генерирует все возможные варианты их сочетаний:

Код:
Sub БукваЦифра()
'обрабатываем строки
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
j = 1
For k = 1 To iLastRow
For i = 1 To iLastRow
For l = 1 To iLastRow
For m = 1 To iLastRow
Cells(j, 2) = Cells(k, 1) & Cells(i, 1) & Cells(l, 1) & Cells(m, 1)
j = j + 1
Next m
Next l
Next i
Next k
End Sub
Но таких вариантов больше предельного количества строк на листе. Не могу въехать, как организовать по достижении, например, миллионной строки продолжить заполнение опять с первой. Ну, и если больше двух миллионов, то опять с первой. На всякий случай файл приложил.
Заранее спасибо!!!
Вложения
Тип файла: rar варианты.rar (11.9 Кб, 4 просмотров)
strannick вне форума   Ответить с цитированием
Старый 19.03.2013, 13:53   #2
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,251
По умолчанию

перед циклом:
j = 1: c = 2

в теле цикла:
Cells(j, c) = Cells(k, 1) & Cells(i, 1) & Cells(l, 1) & Cells(m, 1)
j = j+1: if j > 1000000 then j = 1: c = c+1
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO на форуме   Ответить с цитированием
Старый 19.03.2013, 16:19   #3
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию

Спасибо, Игорь! затупил ))))
strannick вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма буквенно-цифровых выражений Al_Sha Microsoft Office Excel 5 25.10.2012 00:08
Цифровые телефонные сети Ksy Свободное общение 1 26.04.2011 09:01
цифровые часы на языке C# SpooT Общие вопросы C/C++ 2 24.06.2010 13:07
Цифровые часы Dayvil Паскаль, Turbo Pascal, PascalABC.NET 5 06.11.2009 17:15
Помогите TreeView и цифровые значения KWN, lnc Общие вопросы Delphi 15 02.06.2009 17:22