复制到 Excel 工作表的文本显示为图像 [关闭]答案

【问题标题】：text copied to excel sheet appear as image [closed]复制到 Excel 工作表的文本显示为图像 [关闭]
【发布时间】：2014-12-02 20:46:47
【问题描述】：

我有一个 excel 表包含几个应该是文本的单元格（从网站复制），但实际上单元格内容的行为类似于某种允许选择其中包含的文本的图像。我想将 Excel 工作表导出为 CSV 文件，但无法导出这些单元格的内容。由于有数百个单元格存在此问题，我想知道是否有一种快速的方法可以将所有这些图像-文本混合体转换为纯文本，以便它们可以正确导出为 txt/CSV。

提前致谢。

编辑：“奇数”单元格内容类型原来是 Excel 形状。下面的accepted answer 成功了。

【问题讨论】：

您需要再解释一下，或者包括重现问题的确切步骤。

标签： excel image csv text

【解决方案1】：

在这里有点勉强，假设可能有帮助，也可能没有帮助。

在确认 Tim 的评论后，我假设文本“容器”是 Excel 形状并位于活动工作表中。

此代码将从每个形状中提取文本并将其放置在形状左上角单元格附近的空白单元格中，然后再删除形状。它不区分形状，也不识别形状是否包含在组中，也不将提取的文本放入列表中。但是，如果它有帮助，您可以相应地改进代码。

Sub textFromShapes()
Dim shp As Shape
Dim shpLoc As String

    For Each shp In ActiveSheet.Shapes
        With shp
            shpLoc = .TopLeftCell.Address
                Do Until Range(shpLoc) = ""
                    shpLoc = Range(shpLoc).Offset(1, 0).Address
                Loop
                Range(shpLoc) = .TextFrame.Characters.Text
                .Delete
        End With
    Next

End Sub

【讨论】：

这正是我所需要的！谢谢@barryleajo
@Philip - 太好了！在这种情况下，请您通过单击“打勾”复选标记来接受答案。