如何浏览特定的单元格并从下面的单元格中的另一个工作簿打印数据？

Question

我正在处理VBA代码，我以以下格式输入日期：YYYY-MM。 然后，我想在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。