[/vba] Есть массив заполненных ячеек в столбце 13 (М) с 1-ой по неизвестную, без пустот. В прилагаемом файле таких не пустых ячеек 5. Нужно вставить эти 5 не пустых ячеек в столбец 9 (I)ниже ячейки, содержащей текст "Составил:" - столбец А. В прилагаемом файле это ячейки I8, I9, I10, I11, I12. Но вставить не как столбец, а предварительно подсчитав количество строк, т.е. 5 и вставить 5 пустых строк, затем в эти строки в столбец А вставляем "Материально-ответственное лицо", а в столбец I вставляем массив из М1:М5. Расписываю подробно и немного повторяюсь. Если по простому, то нужно в столбец А между ячеек с текстом "Составил:" и "Проверил:" вставить "Материально-ответственное лицо" и в столбец I вставить массив не пустых ячеек из столбца М.
Добрый день, дамы и господа Была у меня недавно схожая беда, однако вариации с готовым кодом не помогли. [vba]
[/vba] Есть массив заполненных ячеек в столбце 13 (М) с 1-ой по неизвестную, без пустот. В прилагаемом файле таких не пустых ячеек 5. Нужно вставить эти 5 не пустых ячеек в столбец 9 (I)ниже ячейки, содержащей текст "Составил:" - столбец А. В прилагаемом файле это ячейки I8, I9, I10, I11, I12. Но вставить не как столбец, а предварительно подсчитав количество строк, т.е. 5 и вставить 5 пустых строк, затем в эти строки в столбец А вставляем "Материально-ответственное лицо", а в столбец I вставляем массив из М1:М5. Расписываю подробно и немного повторяюсь. Если по простому, то нужно в столбец А между ячеек с текстом "Составил:" и "Проверил:" вставить "Материально-ответственное лицо" и в столбец I вставить массив не пустых ячеек из столбца М.timo64uk
Sub iPoiskAndInsert() Dim FoundCell As Range Dim Kol_vo As Integer Kol_vo = Cells(Rows.Count, "M").End(xlUp).Row Set FoundCell = Columns("A").Find("Составил:", , xlValues, xlWhole) If Not FoundCell Is Nothing Then Rows(FoundCell.Row + 1).Resize(Kol_vo).Insert Cells(FoundCell.Row + 1, "A").Resize(Kol_vo) = "Материально-ответственное лицо" Range("M1:M" & Kol_vo).Copy Cells(FoundCell.Row + 1, "I") End If End Sub
[/vba]
Цитата
Нужно вставить
[vba]
Код
Sub iPoiskAndInsert() Dim FoundCell As Range Dim Kol_vo As Integer Kol_vo = Cells(Rows.Count, "M").End(xlUp).Row Set FoundCell = Columns("A").Find("Составил:", , xlValues, xlWhole) If Not FoundCell Is Nothing Then Rows(FoundCell.Row + 1).Resize(Kol_vo).Insert Cells(FoundCell.Row + 1, "A").Resize(Kol_vo) = "Материально-ответственное лицо" Range("M1:M" & Kol_vo).Copy Cells(FoundCell.Row + 1, "I") End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
