Vba Excel, чтобы скопировать и вставить из ячейки прямо выше и вставить обратно в пустые ячейки, у которых включен фильтр? строка, которая также пуста - PullRequest
Новая
       37

Vba Excel, чтобы скопировать и вставить из ячейки прямо выше и вставить обратно в пустые ячейки, у которых включен фильтр? строка, которая также пуста

0 голосов
/ 29 июня 2019

Мне нужна помощь в создании кода для информации, которая выглядит следующим образом: 

REFILL TOO SOON | DATE|VALUE
[blank]
[blank]
[Blank]

Моя цель - начать с первой пустой ячейки, которая в моем случае всегда пуста где-то в столбце А, переместиться на одну ячейку вверх, скопировать «Refill Too Soon» и вставить ее обратно в пустые ячейки той же самой ячейки. столбец, в котором также включен фильтр. Кроме того, как мне установить код так, чтобы он прекратил вставку в столбце A, используя последнюю ячейку с данными в столбце V? Данные столбца V являются динамическими, поэтому я не могу установить константу, но провел некоторое исследование lastactivecell, но я, очевидно, борюсь с этим кодом и заставляю его работать должным образом. Я не хочу, чтобы данные вставлялись в столбец A бесконечно, но я уверен, как заставить их остановиться.

Это то, что я имею до сих пор 

Sub DailyReview

Columns("V:V").AutoFilter Field:=22, Criteria1:= Array( _
        "DUPLICATE PAID/CAPTURED CLAIM:MORE CURRENT REFILL EXISTS", _
        "REFILL TOO SOON:CLAIM ALREADY PROCESSED FOR STORE, RX, DOS", _
        "REFILL TOO SOON:DISPENSED TOO SOON"), Operator:=xlFilterValues
Columns(“A:A”).Select
Selection.End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1).Select
ActiveSheet.Paste

End Sub
...