Как найти определенную ячейку и распечатать данные из другой книги в ячейках ниже?

Question

Я работаю над кодом VBA, в котором я ввожу дату в следующем виде: ГГГГ-ММ.Затем я хочу найти ячейку с этим конкретным значением в таблице Excel и скопировать данные из другой книги в том же столбце.

Например, если я введу «2019-04», я хочу найти ячейку с этим значением и заполнить столбец под ней, используя данные из файлов, которые у меня есть для этой даты.

Я пытался сделать это с помощью цикла for, но не смог этого сделать.

Answer 1

Как насчет:

iter = 1
a = ActiveWorkbook.Name
YourValues & iter = Workbooks(b).Cells(xxxx) 'Whatever the second workbook reference is and use a do loop to add more 'iter' values
Workbooks(a).Activate
Cells.Find(What:="2019-04", After:=ActiveCell, LookIn:=xlFormulas,LookAt:=xlPark, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase = False, SearchFormat:=False).Activate
n = 1 'or 2 or however far down below the value you want to place the new data
x = ActiveCell.Column
y = ActiveCell.Row
cells(y + n, x) = YourValues(tier)

Тогда, возможно, n + 1, iter + 1 внутри цикла.