如何替换复合饼图数据标签首行（Other改abc）并保留其余行？

可以基于Tim的代码思路修改，实现仅替换数据标签首行内容的需求，同时保留后续的数值和百分比行。下面是适配后的VBA代码：

Sub tester()
    ' 调用示例：替换当前激活图表中数据标签首行的"Other"为"abc"
    ReplaceDataLabelFirstLine ActiveChart, "Other", "abc"
    ' 也可以指定工作表中的图表对象，比如：
    ' ReplaceDataLabelFirstLine ActiveSheet.ChartObjects(1).Chart, "Other", "abc"
End Sub

Private Sub ReplaceDataLabelFirstLine(cht As Chart, ReplaceWhat As String, ReplaceWith As String)
    Dim srs As Series
    Dim pnt As Point
    Dim lblText As String
    Dim lineArr As Variant
    
    ' 遍历图表中的每个系列
    For Each srs In cht.SeriesCollection
        ' 遍历系列中的每个数据点
        For Each pnt In srs.Points
            With pnt.DataLabel
                If .Caption <> "" Then
                    lblText = .Caption
                    ' 检查首行是否是要替换的内容
                    If Left(lblText, Len(ReplaceWhat)) = ReplaceWhat Then
                        ' 按换行符拆分文本为行数组
                        lineArr = Split(lblText, vbLf)
                        ' 替换第一行内容
                        lineArr(0) = ReplaceWith
                        ' 重新拼接所有行并赋值回数据标签
                        .Caption = Join(lineArr, vbLf)
                    End If
                End If
            End With
        Next pnt
    Next srs
End Sub

代码说明 #

• 核心逻辑是把数据标签的文本按换行符vbLf拆分成数组，只修改数组的第一个元素（对应首行），再重新拼接成完整文本赋值回数据标签，这样就不会丢失后续的数值和百分比行。
• 主过程tester提供了调用示例，你可以根据实际情况指定要操作的图表。
• 私有过程ReplaceDataLabelFirstLine负责遍历所有数据标签，匹配首行内容并完成替换。

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