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

Question

我有一个包含超链接和文本的Excel工作表

例如： HYPERLINK（想要保留！） 零售价：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