excel - 将超链接添加到工作表的最快方法是什么？

Question

正如标题所说。
首先将值添加到数组然后添加到工作表的速度非常快(8000 个单元格需要 15 毫秒，而循环到工作表时需要 350 毫秒)。但是有没有类似的方法可以非常快速地添加超链接？在工作表上直接循环每个单元格都很难使用它的工具。
我想为所有带有自定义超链接的单元格保持相同的可见值。

编辑:

                        With Me.RangeTarget(2, mvaln).Resize(rowi + 1)
                        Select Case qcolumn.Preprocess
                        Case 1
                            For i = 0 To UBound(rsrows, 2)
                                localcol(i, 0) = Application.WorksheetFunction.Trim(rsrows(j, i))
                            Next
                            .Value2 = localcol
                        Case 2
                            For i = 0 To UBound(rsrows, 2)
                                localcol(i, 0) = Application.WorksheetFunction.Degrees(rsrows(j, i))
                            Next
                            .Value2 = localcol
                        Case 3
                             For i = 0 To UBound(rsrows, 2)
                                localcol(i, 0) = Application.WorksheetFunction.Radians(rsrows(j, i))
                            Next
                            .Value2 = localcol
                        Case 4
                            For i = 0 To UBound(rsrows, 2)
                                If LenB(rsrows(j, i)) > 0 Then
                                    Me.RangeTarget(2 + i, mvaln).Hyperlinks.Add Anchor:=Me.RangeTarget(2 + i, mvaln), Address:=rsrows(j, i), TextToDisplay:="Link"
                                Else
                                    Me.RangeTarget(2 + i, mvaln).ClearContents
                                End If
                            Next
                        Case 5
               ... ... ...

这是我当前的代码......在'case 4'我想避免循环。 rsrows(j, i)是需要放入表中的值。在案例 1 到案例 3 中，您可以看到我将所有内容都放在临时数组中，然后放在工作表中……但不能对超链接做同样的事情来加快速度。

Answer 1

我不确定是什么值rsrows(j, i)包含。无论是 URL/文件路径还是内部单元格引用。无论哪种方式，只需使用 =HYPERLINK()带有 .Value2 = 的公式或 .Formula =

For i = 0 To UBound(rsrows, 2)
    If LenB(rsrows(j, i)) > 0 Then
        localcol(i, 0) = "=HYPERLINK(" & rsrows(j, i) & "," & "Link" & ")"
    Else
        localcol(i, 0) = vbNullString
    End If
Next
.Formula = localcol
'.Value2 = localcol

附言如果您需要一些帮助链接到文件中的单元格，请查看这篇文章:
Excel hyperlink to a specific cell