如何提取Excel自定义单元格格式中的度量单位至单独列

确实，这种靠自定义单元格格式显示的单位没法用普通Excel公式直接搞定——因为单元格里实际存储的只是纯数值，单位只是显示层面的格式设置，根本不存在于单元格的文本内容里。不过用VBA自定义函数完全能实现你的需求，刚好你已经开了个头，我来完善并把细节说清楚：

完整VBA自定义函数 #

Function GetCellUnit(cell As Range) As String
    Application.Volatile True ' 加上这句，格式变化时自动重算
    Dim formatStr As String
    Dim unitStart As Integer, unitEnd As Integer
    
    ' 获取目标单元格的自定义格式字符串
    formatStr = cell.NumberFormat
    
    ' 查找格式中被英文双引号包裹的单位部分（Excel自定义格式常用这种方式固定文本）
    unitStart = InStr(formatStr, """")
    If unitStart = 0 Then
        GetCellUnit = "" ' 没找到双引号，说明无单位，返回空
        Exit Function
    End If
    
    unitEnd = InStr(unitStart + 1, formatStr, """")
    If unitEnd > unitStart Then
        ' 提取双引号之间的内容作为单位
        GetCellUnit = Mid(formatStr, unitStart + 1, unitEnd - unitStart - 1)
    Else
        GetCellUnit = ""
    End If
End Function

使用步骤 #

1. 打开Excel，按下Alt + F11调出VBA编辑器
2. 在左侧工程窗口右键点击你的工作簿，选择「插入」→「模块」
3. 把上面的代码粘贴到新模块的代码窗口里
4. 返回Excel界面，在需要存放单位的单元格中输入公式：=GetCellUnit(A1)（把A1换成你要提取单位的目标单元格），然后下拉填充就能批量提取了

补充说明 #

• 这个函数针对的是#.##0 "L"、0 "KG"这类用英文双引号包裹单位的自定义格式，如果你的格式用了其他符号（比如中文引号），可以修改代码里的引号查找字符
• 加上Application.Volatile True是为了让单元格格式变化时，函数自动更新结果；如果不需要自动更新，删掉这句也可以，之后手动按F9刷新即可
• 如果目标单元格没有设置带单位的自定义格式，函数会返回空字符串，不会报错

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