Azure Data Studio 生成的 Excel 电子表格将单元格值显示为文本不是公式执行的结果

问题描述

原始问题：

在 Azure Data Studio 中，我已将 sql 查询的结果保存到 Excel 电子表格中。当我打开电子表格时，包含公式（URL 超链接）的单元格显示为文本以显示，而不是执行公式的结果（命名的可见可点击超链接）。

这是电子表格中的前三行原始数据：

sourceTableNameA	sourceTableComposedKeyA	sourceTableComposedKeyA2	sourceTableNameB	sourceTableComposedKeyB
FCC_ASR_LI_20210202	=Hyperlink("https://maps.google.com/maps?q=28.537266254426,-97.794735431672","C.2655506")	https://maps.google.com/maps?q=28.537266254426,-97.794735431672	F3GIS_20210209	=Hyperlink("https://maps.google.com/maps?q=28.537266254426,"{F4C8C17C-0702-4B08-ABC5-7ABF0BD76BAA}")
FCC_ASR_LI_20210202	=Hyperlink("https://maps.google.com/maps?q=29.709928035737,-96.912009716035","C.616145")	https://maps.google.com/maps?q=29.709928035737,-96.912009716035	F3GIS_20210209	=Hyperlink("https://maps.google.com/maps?q=29.709928035737,"{7F77EAB2-3588-4023-921F-4C009FC91Bdt>}")

解决方案 A：

点击单元格（例如：上面的 B2）然后按回车键，单元格就会变成公式的结果。

新问题：

我有 +20K 的单元格需要执行“解决方案 A”。并且手动执行“解决方案 A”+20K 次不是一种选择。

解决方案 B（勉强够用）：

在投入大量时间试图解决此问题后，我发现了一个边缘解决方案。它是选择包含公式作为文本的列的内容，然后搜索/替换“=”字符。虽然这实际上将文本转换为每个单元格的实际公式，但它使每个单元格看起来像常规文本，而不是使其具有可点击链接的默认外观。这导致我必须手动为所有这些单元格添加下划线并选择不同的颜色。

解决方案 C（可能？）：

我的第一个想法是这是 VBA 中 Excel 宏的工作。这是我所能得到的最接近的：

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection,ActiveSheet.UsedRange)
    If Cell <> "" Then
      If Left(Cell,1) = "=" Then
        Evaluate (Cell)
      Else
        ActiveSheet.Hyperlinks.Add Cell,Cell.Value
      End If
    End If
  Next
End Sub

对于包含原始 URL（即单元格不以“=”字符开头的单元格）的单元格（例如：上面的 C2），此函数完全符合我的需要，它为每个单元格调用 ActiveSheet.Hyperlinks.Add Cell,Cell.Value，给出所需的结果。但是，检测单元格（例如：上面的 B2）是否以调用 Evaluate (Cell) 的“=”开头的代码不适用于所选单元格。

我可以使用哪些 VBA 代码来替换 Evaluate (Cell)（如果有），这会产生与解决方案 A 相同的效果？

解决方法

在我参与的项目中，我发现以下内容通常就足够了：

Cell.Value = Cell.Value

美妙之处在于您可以在一行中应用范围。

使用循环应用于您的代码：

Public Sub Convert_To_Hyperlinks()
  Dim Cell As Range
  For Each Cell In Intersect(Selection,ActiveSheet.UsedRange)
    If Cell <> vbNullString Then
      If Left$(Cell,1) = "=" Then
          Cell.Value = Cell.Value
      Else
          ActiveSheet.Hyperlinks.Add Cell,Cell.Value
      End If
    End If
  Next
End Sub