检查单元格是否包含Excel中的链接

我试图检查列（比如a）中的值是否包含链接，如果为true，则在列B中键入文本，例如：link。 我有很多记录（10000张），所以手工操作会花费很多时间。Thx.

此处：

Sub Links()
    Dim lnk As Hyperlink, lnks As Hyperlinks
    Set lnks = Range("A:A").Hyperlinks
    For i = 1 To lnks.Count
        Set lnk = lnks(i)
        lnk.Range.Value = "Link"
    Next
End Sub

如果要使用上述过程，需要阅读更多有关VBA的内容。请始终先分享您的研究成果，并至少分享一个代码存根。这很简单，因此例外。

这里：

Sub Links()
    Dim lnk As Hyperlink, lnks As Hyperlinks
    Set lnks = Range("A:A").Hyperlinks
    For i = 1 To lnks.Count
        Set lnk = lnks(i)
        lnk.Range.Value = "Link"
    Next
End Sub

---

如果要使用上述过程，需要阅读更多有关VBA的内容。请始终先分享您的研究成果，并至少分享一个代码存根。这很简单，因此出现了例外。

我设法找到了一个公式，而不是在VBA上

我使用了

=IF（超链接（A1>0），“WEB”和“”）

---

谢谢大家抽出时间。：）

我设法找到了一个公式，而不是在VBA上

我使用了

=IF（超链接（A1>0），“WEB”和“”）

---

谢谢大家抽出时间。：）

有一个公式可以使用，但它基于单元格中字符的长度。例如，由于路径名的原因，超链接通常包含更多字符。例如，如果单元格中的字符数始终小于30，则可以编写公式

 =If(Len(Cell("Filename",A1))>30,"True","False")

如果单元格是超链接，则公式将返回“True”。

---

此公式假定Excel文件存储在一个子文件夹中，其中引用了每个文件夹名称，从而增加了超链接的长度。

有一个公式可以工作，但它基于单元格中字符的长度。例如，由于路径名的原因，超链接通常包含更多字符。例如，如果单元格中的字符数始终小于30，则可以编写公式

 =If(Len(Cell("Filename",A1))>30,"True","False")

如果单元格是超链接，则公式将返回“True”。 此公式假定Excel文件存储在一个子文件夹中，其中引用了每个文件夹名称，从而增加了超链接的长度。

• 将文件另存为.xlsm以允许使用宏
• Alt+F11打开Visual Basic
• 插入->模块
• 粘贴此函数，它返回范围内的超链接数：

函数IsHyperlink（r作为范围）作为整数 IsHyperlink=r.Hyperlinks.Count 端函数

• Alt+Q

• 在if条件下使用新函数显示文本：
  =IF(IsHyperlink(A1),"LINK","NO LINK") =如果（IsHyperlink（A1），“链接”，“无链接”）
• 将文件另存为.xlsm以允许使用宏
• Alt+F11打开Visual Basic
• 插入->模块
• 粘贴此函数，它返回范围内的超链接数：
函数IsHyperlink（r作为范围）作为整数 IsHyperlink=r.Hyperlinks.Count 端函数
• Alt+Q

• 在if条件下使用新函数显示文本：
  =IF(IsHyperlink(A1),"LINK","NO LINK") =如果（IsHyperlink（A1），“链接”，“无链接”）

---

您是指指向工作表/工作簿中其他单元格的链接，还是指向其他工作簿或数据连接的链接？您尝试过什么吗？这些链接指向外部数据。您是指指向工作表/工作簿中其他单元格的链接，还是指向其他工作簿或数据连接的链接？您尝试过什么吗？链接指向外部数据。超链接（A1>0）将返回超链接，它只检查A1是否大于零，不检查A1是否为超链接超链接（A1>0）将返回超链接，它只检查A1是否大于零，不检查A1是否为超链接