Есть макрос которий делает копии активной строчки(количество копий задается в аналоговом окне) нужно в колонке С сделать автонумерацию етих копируємих строк по таким условиям: 1. если последняя цифра ячейки С в активной строке 0, то начинать нумерацию с 1, например, значение ячейки С 12340, количество копий строки равно 3 должно получится 12340 12341 12342 12343 2. если последняя цифра ячейки С в активной строке не равна 0, то продолжить нумерацию , например, значение ячейки С 34567, количество копий строки равно 3 должно получится 34567 34568 34569 34570 Количество копий может бить и 100 и 200
Sub CopyRowDown() Dim k As String k = 0 With ActiveCell.EntireRow k = InputBox("Количество копий?", "Копирование строк") If k = "" Then Exit Sub For n = 1 To k .Offset(n, 0).Insert .Copy Rows(.Row + n) Next End With End Sub
[moder]Причем здесь Word?!Почему код не оформлен? У Вас 80% замечаний, хотите получить последнее? Тема закрыта.[/moder] [moder]Уже получил. sergey1978, прощайте. Борода.[/moder]
Добрий день!
Есть макрос которий делает копии активной строчки(количество копий задается в аналоговом окне) нужно в колонке С сделать автонумерацию етих копируємих строк по таким условиям: 1. если последняя цифра ячейки С в активной строке 0, то начинать нумерацию с 1, например, значение ячейки С 12340, количество копий строки равно 3 должно получится 12340 12341 12342 12343 2. если последняя цифра ячейки С в активной строке не равна 0, то продолжить нумерацию , например, значение ячейки С 34567, количество копий строки равно 3 должно получится 34567 34568 34569 34570 Количество копий может бить и 100 и 200
Sub CopyRowDown() Dim k As String k = 0 With ActiveCell.EntireRow k = InputBox("Количество копий?", "Копирование строк") If k = "" Then Exit Sub For n = 1 To k .Offset(n, 0).Insert .Copy Rows(.Row + n) Next End With End Sub
[moder]Причем здесь Word?!Почему код не оформлен? У Вас 80% замечаний, хотите получить последнее? Тема закрыта.[/moder] [moder]Уже получил. sergey1978, прощайте. Борода.[/moder]sergey1978
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
