Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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,487
По умолчанию

перед циклом:
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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 19.03.2013, 16:19   #3
strannick
Форумчанин
 
Регистрация: 21.10.2011
Сообщений: 433
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма буквенно-цифровых выражений 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 16:15
Помогите TreeView и цифровые значения KWN, lnc Общие вопросы Delphi 15 02.06.2009 17:22