Заранее прошу прощения у администрации и участников форума если нарушил этой темой какое либо правило. Я не специально
Вопрос следующего характера: Для того чтобы обработать большой массив данных нужен макрос, который берет первую строку, смотрит на определенную ячейку, скажем b1. Если в ячейке больше 0, 7, 14, 21 или 28 знаков, то макрос должен создать соответственно 1, 2, 3, 4 или 5 пустых строчек под данной строкой. В пустые строки необходимо скопировать содержимое первой строки. Далее берется вторая строка, с которой проделывается та же операция. И так до конца списка.
В макросах практически ничего не понимаю. Если поможете буду очень благодарен. Заранее спасибо
Заранее прошу прощения у администрации и участников форума если нарушил этой темой какое либо правило. Я не специально
Вопрос следующего характера: Для того чтобы обработать большой массив данных нужен макрос, который берет первую строку, смотрит на определенную ячейку, скажем b1. Если в ячейке больше 0, 7, 14, 21 или 28 знаков, то макрос должен создать соответственно 1, 2, 3, 4 или 5 пустых строчек под данной строкой. В пустые строки необходимо скопировать содержимое первой строки. Далее берется вторая строка, с которой проделывается та же операция. И так до конца списка.
В макросах практически ничего не понимаю. Если поможете буду очень благодарен. Заранее спасибо БодрыйБабуин
Я как участник вас прощаю, но помочь без файла не смогу. Файл-пример - это одно из главных правил. Нет файла - нет помощи. Как сделать пример есть в правилах.
Я как участник вас прощаю, но помочь без файла не смогу. Файл-пример - это одно из главных правил. Нет файла - нет помощи. Как сделать пример есть в правилах.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Я как участник вас прощаю, но помочь без файла не смогу. Файл-пример - это одно из главных правил. Нет файла - нет помощи. Как сделать пример есть в правилах.
Добавил файл-пример.
Цитата (AlexM)
Я как участник вас прощаю, но помочь без файла не смогу. Файл-пример - это одно из главных правил. Нет файла - нет помощи. Как сделать пример есть в правилах.
Sub Macros() Dim i As Long, n As Long Application.ScreenUpdating = False For i = Columns(1).End(xlDown).Row To 2 Step -1 On Error Resume Next ' при n=0 пропустит строку с ошибкой 'n = UBound(Split(Range("B" & i), ";")) 'n можно определять такой строкой n = Len(Range("B" & i)) - Len(Replace(Range("B" & i), ";", "")) Rows(i).Copy Rows(i).Resize(n).Insert Shift:=xlDown Next i Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
[/vba]
Макрос [vba]
Код
Sub Macros() Dim i As Long, n As Long Application.ScreenUpdating = False For i = Columns(1).End(xlDown).Row To 2 Step -1 On Error Resume Next ' при n=0 пропустит строку с ошибкой 'n = UBound(Split(Range("B" & i), ";")) 'n можно определять такой строкой n = Len(Range("B" & i)) - Len(Replace(Range("B" & i), ";", "")) Rows(i).Copy Rows(i).Resize(n).Insert Shift:=xlDown Next i Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
