您可以使用Excel VBA编写一个宏，以保留超链接，如果单元格文本为vbred。以下是一个示例代码：

Sub PreserveHyperlinks()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要检查的范围
    Set rng = Range("A1:A10") '将范围更改为您需要检查的单元格范围
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格文本是否为vbred
        If cell.Text = "vbred" Then
            ' 检查单元格是否有超链接
            If cell.Hyperlinks.Count > 0 Then
                ' 如果有超链接，则保留超链接
                cell.Hyperlinks(1).Range.Copy
                cell.PasteSpecial xlPasteAll
                Application.CutCopyMode = False
            End If
        End If
    Next cell
End Sub

请注意，此代码假定您要检查的单元格范围为A1:A10，并且您希望保留第一个超链接。您可以根据需要更改这些值。

要使用此代码，请按照以下步骤进行操作：

1. 打开Excel，并按下ALT + F11，以打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块。
3. 将以上代码复制并粘贴到新模块中。
4. 关闭VBA编辑器。
5. 在Excel中，按下ALT + F8，以打开宏对话框。
6. 选择“PreserveHyperlinks”宏，并点击“运行”。

此宏将遍历指定的单元格范围，并保留具有"vbred"文本的单元格中的超链接。