文本复制到Excel表单显示为图像

我有一个excel工作表，里面包含了几个应该是文本的单元格（从网站上复制而来），但是实际上单元格的内容就像某种图像一样，可以select包含在其中的文本。 我想将excel表单导出为CSV文件，但这些单元格的内容不能导出。 由于有数百个单元存在这个问题，我想知道是否有一个快速的方法将所有的图像文本混合变成纯文本，这样它们可以正确地导出到txt / CSV。

提前致谢。

Answer 1

在这里出去走一走，对此，这个假设可能有帮助，也可能没有帮助。

随着对Tim的评论的肯定，我假定文本“容器”是Excel形状并位于活动工作表中。

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

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