从Excel

Question

我在文件夹AA中有多个excel文件，这些常见规格如下： - 在表1中，单元格N10具有特定日期 - 在表2中，范围D10：F49有数据，但此范围内的最后一个底部单元格可能为空

在现有工作表中，我需要在第一列中复制特定日期，在接下来的三列中复制包含数据的范围中的单元格。日期必须在相对于数据范围的每一行中。

例如，

我有这个：

我需要这个：

在图像中，您可以看到一个包含1个文件数据的示例，但我需要几个... 当我在AA文件夹中保存新文件时，我需要更新此工作表。可以这样做吗？

Answer 1

只需设置范围和工作簿即可。

Dim wkbk1 As Workbook
Dim wkbk2 As Workbook

' be sure to add the path if the workbook isn't in your working directory
Set wkbk1 = workbooks("Workbook1.xlsx")
Set wkbk2 = workbooks("Workbook2.xlsx")  

Dim range1 As Range
Dim Range2 As Range

Set Range1 = wkbk1.Range("A1:B234") 'or whatever
Set Range2 = wkbk2.Range("A1:B234")  ' you should get the picture by now...

需要数据阵列吗？试试这个..非常容易。

Dim data As variant
data = Range1

现在确定您已声明您的数据，请参考此帖子，以便在一个充满电子表格的目录中循环... Loop through files in a folder using VBA?

你现在应该有工具继续前进。如果您想要更多帮助，请添加评论。