动态范围 VBA

如何解决动态范围 VBA

我有两个工作簿“源”和“目标”。我想浏览每张 Target 工作簿并找到所有命名范围。如果范围名称与工作表名称相同（来自其他工作簿：Source），那么我会将数据从 Source 复制到 Target。

• 假设在源中有一个工作表（“Test1”），在目标中有一个命名范围（“ Test1") 在随机表中。我想匹配这些并将数据从工作表“Test1”复制到范围“Test1”。

但我不知道如何引用动态范围/数组。我想使用数组，因为它更快。请问有什么想法吗？谢谢是提前。这是我迄今为止尝试过的：

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

解决方法

在您的代码中，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 以避免该错误。