Найдите первую ячейку с определенным значением в столбце, затем вставьте 3 строки выше

Каждое утро я работаю над электронной таблицей и мне необходимо автоматизировать следующее в макросе VBA:

В столбце AE найдите первое значение, большее нуля, затем вставьте 3 строки над строкой, содержащей эту конкретную ячейку.

Что-то вроде этого должно работать на вас:

Sub tgr() Dim ws As Worksheet Dim lRow As Long Set ws = ActiveSheet 'Adjust to be the correct worksheet if necessary With Intersect(ws.UsedRange, ws.Columns("AE")) On Error Resume Next lRow = Evaluate("=MATCH(1,INDEX((ISNUMBER(" & .Address(External:=True) & "))*(" & .Address(External:=True) & ">0),),0)") On Error GoTo 0 End With If lRow > 0 Then ws.Rows(lRow).Resize(3).Insert Else MsgBox "No values in column AE found to be greater than 0." End If End Sub 
  • C # OLEDB защищает апострофию в запросе
  • Попытка вставить данные в файл Excel с помощью OLEDB
  • Вставить ячейку выше в зависимости от значения ячейки
  • Найти максимальное значение из нескольких ячеек и вставить новую строку с ячейкой, которая имеет максимальное значение +1
  • Добавление данных в конец или начало Excel Cell Cell
  • Excel: вставка строк и фиксированных ссылок
  • Вставьте новую строку, используя `With` вместо` .Select`
  • Excel VBA вставляет выбор на основе динамической ссылки
  • VB.NET Access DB INSERT Не вставлять данные?
  • Как я могу вставить строку в файл Excel с помощью PHP?
  • vba Вставить jpg в определенные ячейки, сопоставив значение ячейки с именем изображения
  • Interesting Posts

    Распаковать содержимое из файла Excel .XLL, построенного с помощью Excel-DNA

    Создание макроса excel для получения информации из формы и добавления ее в нижнюю часть списка

    Конвертировать извлеченную дату из Excel в SQL-дату

    Как установить некоторые значения списка как необязательные в Spring mapping?

    Как найти наименьший из массива в VBA, а не в диапазоне excel

    График Excel VBA, показать метку данных только в последней точке

    Таблица MS Word с автоматическим вычислением

    Класс CI_Excel не найден

    Как получить адреса электронной почты Microsoft Exchange, отличные от основного SMTP-адреса, используя VBA

    Скопируйте строки в таблицу Excel без перезаписи существующего содержимого ниже

    Сортировка рабочих листов в Excel с помощью VBA с использованием имен в качестве дат

    Считыватель электронных таблиц не может определить цвет заливки, если файл не открыт + не сохранен в LibreOffice

    Извлечение данных из Excel с помощью VBScript

    Как запросить поля базы данных Microsoft Access из VBA в Excel

    Скопируйте текущие записи недели в новый рабочий стол excel с макросом VBA

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