Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставить массив ниже ячейки, содержащей определенный текст - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить массив ниже ячейки, содержащей определенный текст (Макросы/Sub)
Вставить массив ниже ячейки, содержащей определенный текст
timo64uk Дата: Четверг, 14.10.2021, 16:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, дамы и господа :D
Была у меня недавно схожая беда, однако вариации с готовым кодом не помогли.
[vba]
Код
'от Gustav
Range("A20:A" & Range("A20:A" & Rows.Count).Find("Составил").Row - 1).FormulaR1C1 = "=MAX(R19C1:R[-1]C)+1"
[/vba]
Есть массив заполненных ячеек в столбце 13 (М) с 1-ой по неизвестную, без пустот. В прилагаемом файле таких не пустых ячеек 5.
Нужно вставить эти 5 не пустых ячеек в столбец 9 (I)ниже ячейки, содержащей текст "Составил:" - столбец А. В прилагаемом файле это ячейки I8, I9, I10, I11, I12. Но вставить не как столбец, а предварительно подсчитав количество строк, т.е. 5 и вставить 5 пустых строк, затем в эти строки в столбец А вставляем "Материально-ответственное лицо", а в столбец I вставляем массив из М1:М5.
Расписываю подробно и немного повторяюсь.
Если по простому, то нужно в столбец А между ячеек с текстом "Составил:" и "Проверил:" вставить "Материально-ответственное лицо" и в столбец I вставить массив не пустых ячеек из столбца М.
К сообщению приложен файл: 11.xlsx(85.5 Kb)


Сообщение отредактировал timo64uk - Пятница, 15.10.2021, 12:33
 
Ответить
СообщениеДобрый день, дамы и господа :D
Была у меня недавно схожая беда, однако вариации с готовым кодом не помогли.
[vba]
Код
'от Gustav
Range("A20:A" & Range("A20:A" & Rows.Count).Find("Составил").Row - 1).FormulaR1C1 = "=MAX(R19C1:R[-1]C)+1"
[/vba]
Есть массив заполненных ячеек в столбце 13 (М) с 1-ой по неизвестную, без пустот. В прилагаемом файле таких не пустых ячеек 5.
Нужно вставить эти 5 не пустых ячеек в столбец 9 (I)ниже ячейки, содержащей текст "Составил:" - столбец А. В прилагаемом файле это ячейки I8, I9, I10, I11, I12. Но вставить не как столбец, а предварительно подсчитав количество строк, т.е. 5 и вставить 5 пустых строк, затем в эти строки в столбец А вставляем "Материально-ответственное лицо", а в столбец I вставляем массив из М1:М5.
Расписываю подробно и немного повторяюсь.
Если по простому, то нужно в столбец А между ячеек с текстом "Составил:" и "Проверил:" вставить "Материально-ответственное лицо" и в столбец I вставить массив не пустых ячеек из столбца М.

Автор - timo64uk
Дата добавления - 14.10.2021 в 16:54
Kuzmich Дата: Четверг, 14.10.2021, 22:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 629
Репутация: 137 ±
Замечаний: 0% ±

Excel 2003
Цитата
Нужно вставить

[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
[/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
[/vba]

Автор - Kuzmich
Дата добавления - 14.10.2021 в 22:43
timo64uk Дата: Пятница, 15.10.2021, 09:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

iPoiskAndInsert
Спасибо огромное
 
Ответить
Сообщение
iPoiskAndInsert
Спасибо огромное

Автор - timo64uk
Дата добавления - 15.10.2021 в 09:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить массив ниже ячейки, содержащей определенный текст (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!