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

从多个工作簿创建摘要表

1 个答案: