如何从Excel自定义格式单元格中提取纯文本部分

遇到这种情况太常见了——自定义格式只是改变了单元格的显示样式，单元格实际存储的还是原始数值，所以常规复制、双击操作只能看到数值，文本完全是“显示层”的内容。针对你要提取'nos'、'PKS'这类文本的需求，给你两个实用的解决方案：

方法一：公式提取（无需VBA，适合少量数据） #

如果你的自定义格式是固定模式（比如「数值+空格+固定文本」，比如格式设置为0 "nos"或# "PKS"），可以用以下思路拆分：

1. 先获取单元格的完整显示文本：用TEXT(A1, CELL("format", A1))能还原出单元格的显示内容（比如"123 nos"）；
2. 再提取其中的文本部分：假设文本在数值之后且用空格分隔，用RIGHT+LEN+FIND组合公式：

   =RIGHT(TEXT(A1, CELL("format", A1)), LEN(TEXT(A1, CELL("format", A1))) - FIND(" ", TEXT(A1, CELL("format", A1))))
   

   如果文本在数值前面，把RIGHT换成LEFT，调整FIND的定位逻辑即可。

要是你的自定义格式文本只有固定几个选项（比如仅'nos'和'PKS'），还能简化成判断格式代码的公式：

=IF(CELL("format", A1)="G/通用格式 ""nos""", "nos", IF(CELL("format", A1)="G/通用格式 ""PKS""", "PKS", ""))

小提示：先在空白单元格输入=CELL("format", A1)，查看对应单元格的格式代码，再替换到公式里更准确。

方法二：VBA批量提取（适合大量数据） #

如果数据量很大，或者格式逻辑复杂，用VBA批量处理效率更高：

1. 按Alt + F11打开VBA编辑器；
2. 右键你的工作簿→插入→模块，粘贴以下代码：

   Sub ExtractCustomText()
       Dim rng As Range
       Dim cell As Range
       Dim displayText As String
       Dim textPart As String
       
       ' 选择要处理的单元格范围（也可以直接写成固定范围如Range("A1:A1000")）
       Set rng = Application.InputBox("请选择要提取文本的单元格范围", Type:=8)
       
       For Each cell In rng
           displayText = cell.Text ' 获取单元格的显示文本
           ' 提取空格后的文本部分，无空格可修改InStr的判断条件
           If InStr(displayText, " ") > 0 Then
               textPart = Mid(displayText, InStr(displayText, " ") + 1)
               cell.Offset(0, 1).Value = textPart ' 文本写入右侧相邻单元格
           End If
       Next cell
   End Sub
   

3. 按F5运行宏，选择目标范围后，文本会自动提取到右侧列。

应急小技巧（临时少量数据） #

如果只是临时需要获取文本，直接选中整列复制，粘贴到记事本里——记事本会完整保留Excel的显示内容（包括自定义格式的文本），再把文本部分复制回Excel即可。

内容的提问来源于stack exchange，提问作者Haji