Повторяйте формулу каждый раз, когда критерий встречается в Excel - PullRequest
0 голосов
/ 15 марта 2019

Я пытаюсь создать макрос VBA, который запускается при каждом нахождении слова в определенных ячейках и выполняет следующие действия:

  • Извлечение значений из 1 строки ниже в двух ячейках.
  • Удалите формулы и оставьте информацию в качестве значений.

Начиная со строки 37, есть сегменты, в которых запрашиваются конкретные KPI для их отслеживания.Прямо сейчас, строка "Target" сформулирована, но я хочу заменить текущее следующее на другое, чтобы получить информацию из строки ниже (из строки, называемой "Real") в P01 и P02 (столбцы Hи я).Остальные (столбцы от J до AA), я просто хочу оставить все, что там есть, в качестве значений.

Итак, идея в том, что в каждой строке, где есть слово «target» в столбце F, запуститьмакрос в правильном диапазоне (от строки 37 до 576).

Мне удалось сделать это, но выбор диапазона вручную.

Range("H570").Select
ActiveCell.FormulaR1C1 = "=IFERROR(R[1]C,""-"")"
Range("H570").Select
Selection.Copy
Range("I570").Select
ActiveSheet.Paste
Range("I573").Select
Application.CutCopyMode = False
Range("J570:AA570").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False

Возможно ли это?Я оставляю скриншот и файл для вас, чтобы помочь.

Заранее большое спасибо!

Screenshot

Доступв файл

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...