если ячейка содержит определенный текст, скопируйте целую строку + следующую строку

Я действительно новичок в VBS и нуждаюсь в помощи.

У меня есть sheet1 и sheet2. Все мои исходные данные находятся в столбце 1 столбца A, а sheet2 – сводный отчет. Я хочу, чтобы мой скрипт искал каждую ячейку в столбце A и искал «Grade A». Если find, скопируйте строку, содержащую слово класса A, а также скопируйте следующую строку и вставьте ее в sheet2. Вот пример.

Лист1:

ABC GradeA sdfasdf sadfsadf Address sadfas sdfsadfs Grade B sadfsd dgfdsgdf Address sdfasf ertertewt Grade C fhgfdgh ukjtyuyt GradeA hhh lll Address ppp hhh 

Sheet2 shoud выглядит так после запуска скрипта.

 ABC GradeA sdfasdf sadfsadf Address sadfas sdfsadfs GradeA hhh lll Address ppp hhh 

Заранее спасибо.

Попробуйте следующий код

 Sub Test() For Each Cell In Sheets(1).Range("A:A") If Cell.Value = "GradeA" Then matchRow = Cell.Row Rows(matchRow & ":" & matchRow + 1).Select Selection.Copy Sheets("Sheet2").Select lastRow = ActiveSheet.UsedRange.Rows.Count If lastRow > 1 Then lastRow = lastRow + 1 ActiveSheet.Range("A" & lastRow).Select ActiveSheet.Paste Sheets("Sheet1").Select End If Next End Sub 
  • скрипт php exec vbs работает только первый раз в цикле
  • VBScript - запретить пользователям скрывать скрытый рабочий лист
  • VBScipt to Excel - Синтаксис функции диапазона
  • Selection.End (xlToRight) не работает
  • Я не могу закрыть приложение Excel
  • Копировать VBScript Колонка в последнюю строку
  • Математическая транспозиция в excel
  • Количество строк и столбцов QTP всегда равно 1
  • Как отображать окно сообщения только после нажатия Ctrl + S (сохранение) в определенной ячейке с помощью vba
  • Поле создания QLikView VBScript в сводной таблице
  • Поменяйте два столбца excel в скрипте VB
  • Interesting Posts

    Loop, хотя файлы в папке в Mac OS X – VBA Excel 2011

    Извлечь критерии1 значения отфильтрованных данных на основе даты

    Как быстро анализировать большие данные Excel?

    Как добавить дополнительные строки из нескольких столбцов в R?

    vba excel sheets.range.value Ошибка

    Копировать ячейки только для значений в несколько столбцов таблицы и вставлять их в один столбец

    В чем разница между CSV и XLSX

    Измените цвет ячейки на красный, если значение в базе данных пустое

    Ошибка проверки скрепки на рельсах

    Вычисление таблицы единиц с стоимостью, определенной через vlookup

    Цветные кодирующие ячейки на основе значения через столбец с определенным заголовком

    Вызов пользовательской формы в Excel VBA и продолжение в зависимости от того, какая кнопка была нажата

    Как заморозить функцию = сегодня () после ввода данных

    Как отсортировать легенду диаграммы в VBA

    VBA Для цикла, чтобы скопировать ячейки из excel в word

    Давайте будем гением компьютера.