в определенную базу приходиться вставлять достаточно большое количество наименований оборудования - каждое уникальное. Необходимо после каждого уникального значения вставлять пустую строку, повторять нужное уникальное значение в новой строке, а так же с соседнем столбце добавлять для одного уникального значения одну букву, для копию этого значения другую копию.. My WebPage Здесь нашел макрос по вставке пустых строк.. проверил в своем примере - он рабочий. Как сделать остальное не знаю...
в определенную базу приходиться вставлять достаточно большое количество наименований оборудования - каждое уникальное. Необходимо после каждого уникального значения вставлять пустую строку, повторять нужное уникальное значение в новой строке, а так же с соседнем столбце добавлять для одного уникального значения одну букву, для копию этого значения другую копию.. My WebPage Здесь нашел макрос по вставке пустых строк.. проверил в своем примере - он рабочий. Как сделать остальное не знаю...ovechkin1973
Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
в поисках решения появились еще проблемы: 1. макрос делает пустые строки на всем листе, даже если перед этим выделить диапазон... Конечно потом после окончания работ можно с помощью PLEXа удалить пустые строки, но способ не красивый 2. Здесь нашел способ, как скопировать в пустую ячейку ниже значение из ячейки выше My WebPage и понял, что не совсем корректно задачу описал - у меня не только в первом столбце данные.. 3. Как вставлять значения нужные пока ищу
в поисках решения появились еще проблемы: 1. макрос делает пустые строки на всем листе, даже если перед этим выделить диапазон... Конечно потом после окончания работ можно с помощью PLEXа удалить пустые строки, но способ не красивый 2. Здесь нашел способ, как скопировать в пустую ячейку ниже значение из ячейки выше My WebPage и понял, что не совсем корректно задачу описал - у меня не только в первом столбце данные.. 3. Как вставлять значения нужные пока ищуovechkin1973
Так эта тема для раздела "Вопросы по VBA". Так надо? [vba]
Код
Sub Vadim() Dim i As Long Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 Cells(i + 1, 1) = Cells(i, 1) Cells(i + 1, 2) = Cells(i, 2) Rows(i).Insert Next Cells(i + 1, 1) = Cells(i, 1) Cells(i + 1, 2) = Cells(i, 2) Application.ScreenUpdating = True End Sub
[/vba]
Так эта тема для раздела "Вопросы по VBA". Так надо? [vba]
Код
Sub Vadim() Dim i As Long Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 Cells(i + 1, 1) = Cells(i, 1) Cells(i + 1, 2) = Cells(i, 2) Rows(i).Insert Next Cells(i + 1, 1) = Cells(i, 1) Cells(i + 1, 2) = Cells(i, 2) Application.ScreenUpdating = True End Sub
Пардон, сразу не увидел, что в нужной ветке тема уже.. мерси Да- макрос почти то, что надо.. но он не решает все проблемы. 1. К сожалению, он вставляет новые строки и копирует в них данные из первых двух столбцов в весь лист. Как можно сделать, чтобы эти строки вставлялись в каком то выделенном диапазоне строк? В реальном файле мне данные добавлять в новые пустые строки надо из 5-ти столбцов - как для этого изменить макрос я "допёр" методом проб и ошибок. Понял, что макрос работает снизу вверх. 2. И как сделать, чтобы после процедуры вставки строк с данными в ячейках справа вставлялись разные буквы напротив одинаковых строк? Как показано у меня на втором листе? 3. И вопрос не по теме.. макрос по вставке пустых строк удобная вещь и может для работы пригодиться, но как сделать, чтобы при запуске макроса каждый раз по одной пустой строке добавлялось?
Пардон, сразу не увидел, что в нужной ветке тема уже.. мерси Да- макрос почти то, что надо.. но он не решает все проблемы. 1. К сожалению, он вставляет новые строки и копирует в них данные из первых двух столбцов в весь лист. Как можно сделать, чтобы эти строки вставлялись в каком то выделенном диапазоне строк? В реальном файле мне данные добавлять в новые пустые строки надо из 5-ти столбцов - как для этого изменить макрос я "допёр" методом проб и ошибок. Понял, что макрос работает снизу вверх. 2. И как сделать, чтобы после процедуры вставки строк с данными в ячейках справа вставлялись разные буквы напротив одинаковых строк? Как показано у меня на втором листе? 3. И вопрос не по теме.. макрос по вставке пустых строк удобная вещь и может для работы пригодиться, но как сделать, чтобы при запуске макроса каждый раз по одной пустой строке добавлялось?ovechkin1973
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
