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

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

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

范围（“G4”、“H4”、“G8”、“H8”、“G10”、“H10”、“G17”、“H17”）

代码行为不正常。我为一个条目获取多行，等等。我无法理解如何提供此sourcerange，以便在sourcerange变量的一行中获取G4、H4、G8、H8、G10、H10、G17、H17。有什么建议吗？

试试这个：

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

---

我试过了。这行不通。如果我将输入作为范围（“G4”、“H4”），那么我可以提取G4和H4值。但是如果我以.Range（“G4”、“H4”、“G8”、“H8”）的形式给出输入，那么我不会得到任何值。似乎如果输入包含一行中的值（在本例中为第四行），那么代码就可以工作。如果我提供了一些非连续的范围，那么代码就会失败。我不明白。你是如何提取G4和H4值的？我已经扩展了我的原始答案，现在看看。它确实有效。