如何使用 VBA 删除 excel 文档中除超链接以外的所有内容（所有文本、字母和数字）？

Question

我有一个 excel sheet 带有超链接和文本

例如：超链接（想要保留！）零售价：46.99 美元（要删除）我们的价格：39.99 美元（要删除）

我想要一些 vba 保留所有超链接并删除所有文本和数字的代码。

我找遍了，只找到 vba 删除超链接并保留文本的代码:(

Answer 1

试试这个极小的宏：

Sub hyperfinder()
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.Hyperlinks.Count = 0 Then
            r.Clear
        End If
    Next r
End Sub

如何使用 VBA 删除 excel 文档中除超链接以外的所有内容（所有文本、字母和数字）？

How to delete everything (all text, letters, & numbers) except hyperlinks in an excel document using VBA?

excel

vba

text

hyperlink