ОЧЕНЬ СРОЧНО! Написал вот такой вот скрипт для Exel, но ему не нравиться строчка. Прошу помощи и внесения корректировки в код, ОЧ СРОЧНО
[vba]
Код
Sub Проба2()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = lastRow To 1 Step -1 If Not IsEmpty(Cells(i, "A")) Then Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)")) End If Next i
End Sub
[/vba]
Нужно что бы после каждой строки, где есть символы макрос вставлял 8 строк в которых будет нумерация от C1 до С8
ОЧЕНЬ СРОЧНО! Написал вот такой вот скрипт для Exel, но ему не нравиться строчка. Прошу помощи и внесения корректировки в код, ОЧ СРОЧНО
[vba]
Код
Sub Проба2()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = lastRow To 1 Step -1 If Not IsEmpty(Cells(i, "A")) Then Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)")) End If Next i
End Sub
[/vba]
Нужно что бы после каждой строки, где есть символы макрос вставлял 8 строк в которых будет нумерация от C1 до С8elvinalex228
Сообщение отредактировал elvinalex228 - Вторник, 16.05.2023, 19:53
Если только правильно понял задуманное, то должно быть как-то так: [vba]
Код
Sub Проба2() Dim lastRow As Long Dim i As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = lastRow To 1 Step -1 If Not IsEmpty(Cells(i, "A")) Then Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert 'Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)")) Range("A" & i + 1 & ":A" & i + 8).Value = Application.Transpose(Split("C" & Join(Application.Transpose(Evaluate("ROW(1:8)")), ",C"), ",")) End If Next i End Sub
[/vba] Ну, и топик надо бы в раздел VBA перенести, а то налицо "несоответствие типа" раздела
Если только правильно понял задуманное, то должно быть как-то так: [vba]
Код
Sub Проба2() Dim lastRow As Long Dim i As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = lastRow To 1 Step -1 If Not IsEmpty(Cells(i, "A")) Then Range("A" & i + 1 & ":A" & i + 8).EntireRow.Insert 'Range("A" & i + 1 & ":A" & i + 8).Value = "C" & Application.Transpose(Evaluate("ROW(1:8)")) Range("A" & i + 1 & ":A" & i + 8).Value = Application.Transpose(Split("C" & Join(Application.Transpose(Evaluate("ROW(1:8)")), ",C"), ",")) End If Next i End Sub
[/vba] Ну, и топик надо бы в раздел VBA перенести, а то налицо "несоответствие типа" раздела Gustav
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
