从多个工作簿创建摘要工作表

Question

我手头有一项任务。我希望通过从文件夹中的多个工作簿中提取数据来创建摘要工作表。这些文件的格式相同。我需要做的是从第5张工作表中提取每个工作簿的数据。细胞是G4、H4、G8、H8、G10、H10、G17、H17。我在microsoft.com上找到了一个代码。

当我只提供一个单元格（如G4或G4和H4）时，代码运行良好。当我提供源范围作为时

.Range ("G4", "H4", "G8", "H8", "G10", "H10", "G17", "H17")

代码行为不端。我为一个条目获得了多行等。我不知道如何提供这个源范围，所以我在源范围变量中的一行中获得了G4、H4、G8、H8、G10、H10、G17、H17。有什么建议吗？

Answer 1

试试这个：

Sub myLoop()
    Dim r As Range, cel As Range
    Set r = Sheet1.Range("G4,H4,G8,H8,G10,H10,G17,H17")
    For Each cel In r
        Debug.Print cel.Value
    Next cel
End Sub