超链接 - 给出运行时错误 5“无效的过程调用或参数”

Question

如果仅与“sheet2”行“b”上的值匹配，我正在尝试为工作表“表格”中的范围创建超链接，但给我“无效的过程调用或参数”错误。我正在寻找解决方案的在线资源，但找不到任何东西。谁能帮我解决以下代码；

  Sub Macro1()
  For i = 4 To 23
  If Cells(i, "A").Value <> "" Then
  k = Sheets("TABLES").Cells(i, "a").Value
  c = Application.Match(k, Sheets("Sheet2").Range("B11:B500000"), 0)
  If IsError(c) Then
  Else
  Sheets("tables").Hyperlinks.Add Anchor:=Sheets("tables").Cells(i, "A"), _
                          Address:="", _
                          SubAddress:="sheet2!F" & c, _
                          TextToDisplay:=k
  End If
  End If
  Next i
  End Sub

Answer 1

超链接噩梦

Option Explicit

Sub Error5()

    Dim i As Long
    Dim k As Long
    Dim c As Variant

    With Sheets("Tables")
        For i = 4 To 23
            If .Cells(i, "A").Value <> "" Then
                k = .Cells(i, "A").Value
                c = Application.Match(k, Sheets("Sheet2") _
                        .Range("B11:B50000"), 0)
                If IsError(c) Then
                  Else
                    .Hyperlinks.Add _
                            Anchor:=.Cells(i, "A"), _
                            Address:="", _
                            SubAddress:="Sheet2!F" & c, _
                            TextToDisplay:=CStr(k)
                End If
            End If
        Next
    End With

End Sub

Answer 2

更改If Cells(i, "A").Value <> "" Then 到 If Sheets("TABLES").Cells(i, "a").Value <> "" Then~ 希望它可以工作。它无法识别第一行中的对象。