Excel饼图如何独立设置数值与百分比标签格式？

当Excel饼图同时启用数值和百分比标签时，确实无法分别为两者设置独立的自定义格式，只能应用统一格式，导致你的单位转换格式失效。这里给你两种实用的解决思路：

方法一：辅助列生成组合标签（推荐，无需代码） #

1. 假设原始数据在A列（如A2:A10），添加三个辅助列：
   • B列（格式化后的绝对值）：输入公式=TEXT(A2,"[<1000000]0,00. KB;[<1000000000]0,00.. MB;0,00... GB")，下拉填充至所有行，公式会根据数值大小自动转换为KB/MB/GB格式。
   • C列（百分比）：输入公式=TEXT(A2/SUM($A$2:$A$10),"0.00%")，下拉填充（将$A$2:$A$10替换为实际数值范围，确保计算整体占比）。
   • D列（组合标签）：输入公式=B2&" ("&C2&")"，下拉填充，将带单位的数值与百分比合并为一个文本。
2. 选中原始数据和D列的组合标签，插入饼图。
3. 右键点击饼图标签，选择「设置数据标签格式」，在「标签选项」里勾选「单元格中的值」，选择D列范围，取消其他默认标签选项（如数值、百分比），饼图即可显示自定义的带单位+百分比标签。

方法二：VBA批量设置标签格式（适合熟悉宏的用户） #

若不想用辅助列，可通过VBA代码直接修改每个数据标签的文本，分别设置数值和百分比格式：

Sub SetPieLabels()
    Dim cht As Chart
    Dim ser As Series
    Dim i As Integer
    Set cht = ActiveSheet.ChartObjects("饼图1").Chart '替换为你的饼图名称
    Set ser = cht.SeriesCollection(1)
    
    For i = 1 To ser.Points.Count
        '格式化绝对值为KB/MB/GB
        Dim val As Double
        val = ser.Values(i)
        Dim valText As String
        If val < 1000000 Then
            valText = Format(val, "0,00.") & " KB"
        ElseIf val < 1000000000 Then
            valText = Format(val / 1000000, "0,00..") & " MB"
        Else
            valText = Format(val / 1000000000, "0,00...") & " GB"
        End If
        '获取并格式化百分比
        Dim pctText As String
        pctText = Format(ser.Points(i).DataLabel.Percent, "0.00%")
        '设置最终标签文本
        ser.Points(i).DataLabel.Text = valText & " (" & pctText & ")"
    Next i
End Sub

使用时，按Alt+F11打开VBA编辑器，插入模块粘贴代码，修改饼图名称后运行即可。

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