Excel中按文本显示长度（Point/Pixel/厘米，非字符数）排序的实现方法

嗨，这个问题我之前也碰到过——非等宽字体（比如宋体、微软雅黑这类 proportional font）下，就算字符数完全相同，不同文本的显示宽度也会差很多，用LEN()函数根本没法满足按显示长度排序的需求。别慌，咱们用VBA自定义函数就能完美解决！

核心思路 #

Excel本身没有内置函数直接获取文本的显示宽度，但我们可以借助VBA的Application.StringWidth方法，它能根据单元格的字体、字号、加粗等格式，精准计算出文本的实际显示宽度（单位为磅（Point）），之后再转换成你需要的像素、厘米单位，最后按这个计算值排序就行。

具体步骤 #

1. 编写VBA自定义函数

• 按Alt+F11打开VBA编辑器；
• 右键点击左侧的当前工作簿名称，选择「插入」→「模块」；
• 把下面的代码粘贴到模块窗口中：

Function GetDisplayWidth(cell As Range, Optional unit As String = "pixel") As Double
    Dim textWidth As Double
    ' 根据单元格的字体格式，计算文本的显示宽度（单位：磅）
    textWidth = Application.StringWidth(cell.Value)
    
    ' 转换为指定单位
    Select Case LCase(unit)
        Case "point"
            GetDisplayWidth = textWidth
        Case "pixel"
            ' 标准96DPI下，1磅 = 96/72 = 1.333像素
            GetDisplayWidth = textWidth * (96 / 72)
        Case "cm"
            ' 1磅 ≈ 0.035277778厘米
            GetDisplayWidth = textWidth * 0.035277778
        Case Else
            ' 默认返回磅值
            GetDisplayWidth = textWidth
    End Select
End Function

• 保存工作簿为「启用宏的工作簿（.xlsm）」格式，不然宏会失效。

2. 在Excel中使用函数并排序

• 返回Excel界面，找一个空白列（比如B列），在第一个单元格输入公式：
  =GetDisplayWidth(A1,"cm")
  （把A1换成你要计算的目标单元格，"cm"可以换成"pixel"或"point"指定单位）
• 下拉填充公式，让所有行都计算出对应文本的显示宽度；
• 选中包含原始数据和显示宽度的整个区域，点击「数据」选项卡→「排序」；
• 在排序对话框中，选择刚才计算宽度的列作为「主要关键字」，设置升序/降序，点击确定就完成啦！

注意事项 #

• 这个函数会自动识别单元格的字体、字号、加粗、倾斜等格式，计算结果和实际显示效果一致；
• 如果你的屏幕DPI不是标准96，像素转换的数值可能会有细微偏差，可以根据自己的DPI调整代码里的96数值；
• 如果文本包含换行符或特殊字符，StringWidth也能正常计算总宽度。

备注：内容来源于stack exchange，提问作者pedro