为什么 Worksheet.Hyperlink.Range 在迭代工作表时有时会返回一系列范围，而不是仅返回一个范围？

Question

我有一个宏，它遍历工作簿中所有工作表上的所有超链接，如果超链接的范围等于先前指定的范围，则将超链接复制到新工作簿中目标工作表上的相同范围，然后然后移动到下一个工作表。这在大约 5 个工作表的过程中完美运行，然后突然抛出不匹配错误，整个过程失败。

在调试时，我已经确定每次在同一个工作表上的同一个超链接上，Worksheet.Hyperlink.Range（我的代码中的hyperlink.range）都会返回一系列范围，而不仅仅是一个（据我所知） ，并且由于循环将其与单个范围进行比较，因此这是发生不匹配的地方。问题是我无法确定为什么会这样。与其他会导致它表示为一系列范围的超链接相比，我找不到此超链接的属性有任何差异。

    Public Sub CopyLink(fromRange As range, toRange As range)

        Dim hyperlink As Hyperlink
        Dim fromSheet As Worksheet
        Set fromSheet = fromRange.Worksheet

        For Each hyperlink In fromSheet.Hyperlinks
            If hyperlink.range = fromRange Then 'mismatch happens here after several successful iterations
                hyperlink.range.Copy
                toRange.PasteSpecial
                Exit For
            End If
        Next

    End Sub

我想知道怎么做

A.以避免此问题的方式更改两个范围的比较

或

B.了解问题的原因，以便我有希望纠正它。

Answer 1

如果您选择多个单元格然后添加一个超链接，您只会显示一个链接，但所有选定的单元格都会响应，就好像它们是超链接一样。

这里的hyperlink.Range.Address 属性是$B$2:$B$15

Answer 2

fromRange 始终是单个单元格范围，hyperlink.Range 可能引用多个单元格。这里的不匹配与您的比较：

if hyperlink.range = fromRange

当Range 代表单个单元格时，它会默认评估其Value 属性（实际实现稍微复杂一些），这将返回基础数据（字符串、数字、日期等.)。当Range 表示多个单元格时，其Value 是各个单元格值的数组。

因此，您可以预期结果不匹配，因为左侧有一个数组，右侧有其他内容。 = 比较运算符无法处理任一侧的数组。试试看：

If Range("A1:B1") = Range("C1:D1") Then 

即使= 的两边都是大小相同的数组，上面也会引发不匹配错误！

您可能要考虑比较 Address 属性？

hyperlink.range.Address = fromRange.Address

或者

' tests the top/left cell
hyperlink.range(1,1).Address = fromRange.Address