动态范围 VBA

Question

我有两个工作簿“源”和“目标”。我想遍历 Target 工作簿的每个 sheet 并找到所有命名范围。如果范围名称与 sheet 的名称相同（来自另一个工作簿：Source），那么我会将数据从 Source 复制到 Target。

假设在 Source 我有一个 sheet ("Test1") 和 Target 我在随机 sheet 中有一个 命名范围（“Test1”）。我想匹配这些并将数据从 sheet“Test1”复制到范围“Test1”。

但我不知道如何引用动态 range/array..我想使用数组，因为它更快。有什么想法吗？谢谢是提前。这是我到目前为止尝试过的：

Public Sub test()    
Dim wb1 As Workbook, wb2 As Workbook
    
Set wb1 = Workbooks("Source.xlsx")
Set wb2 = Workbooks("Target.xlsx")

For Each ws2 In wb2.Worksheets
    For Each nm In wb2.Names
        For Each ws1 In wb1.Worksheets
          If ws1.Name = nm.Name Then
          'Here is the problem, I don't know how to define this dynamic array properly:
          'It should be arrTrgt3 = ws2.Range("A1:D5") but I want to use named range, and I don't 
          'know this name yet.
            arrTrgt3 = nm.RefersToRange.Address            
               ws2.Range("A1").Resize(UBound(arrTrgt3), UBound(arrTrgt3, 2)) = arrTrgt3
          End If
        Next
     Next
Next
End Sub

Answer 1

在您的代码中 nm 是集合 Workbook.Names 中的一个 name object。

nm.RefersToRange是它连接的Range对象。

nm.RefersToRange.Value 是该范围内所有单元格值的二维数组。

将 arrTrgt3 = nm.RefersToRange.Address 更改为 arrTrgt3 = nm.RefersToRange.Value，现在 arrTrgt3 是一个二维数组，包含指定范围内的单元格值。

注意：如果命名区域是单个单元格，则 Range.Value 的返回值是单个变体而不是数组。这将导致 Ubound() 函数出错。您可能需要添加 if/else 以避免该错误。

动态范围 VBA

Dynamic ranges VBA

arrays

excel

vba

dynamic

named-ranges