我经常帮人处理Excel里这种批量数据点上色的需求，刚好你的场景（t值无规律、数据量大）我有两个实用的自动化方案，给你详细讲讲：

这个方法不需要写代码，靠Excel自带的Power Query工具就能把数据按t值分组，插入图表后自动上色，而且后续新增数据还能一键刷新：

• 第一步：选中你的x、y、t数据区域（要包含表头），点击顶部「数据」选项卡→「从表格/区域」，勾选「我的表格有标题」后进入Power Query编辑器。
• 第二步：选中t列，点击「转换」选项卡→「分组依据」，设置分组依据为t，新列名设为「数据组」，操作选「所有行」，点击确定。这一步会把相同t值的x、y数据打包成组。
• 第三步：点击「数据组」列每个单元格右侧的展开箭头，只勾选x和y列后确定。此时你会得到一个按t值分组的新表格，每个数据点都保留了对应的t标识。
• 第四步：点击「关闭并上载」，把整理好的数据加载回Excel工作表。选中新表格的所有数据，插入散点图——Excel会自动给不同t值的点分配不同颜色，后续新增数据只要右键表格选择「刷新」，图表颜色就会自动更新。

如果t值变化特别复杂，或者你想自定义颜色规则，用VBA宏是最省心的方式，一次设置终身可用：

• 第一步：按下Alt + F11打开VBA编辑器，右键左侧的工作簿名称→「插入」→「模块」，粘贴下面的代码：

Sub ColorScatterPointsByT()
    Dim cht As Chart
    Dim srs As Series
    Dim pt As Point
    Dim ws As Worksheet
    Dim tRange As Range
    Dim i As Integer
    
    ' 替换成你的实际工作表、图表和t数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set cht = ws.ChartObjects("Chart 1").Chart
    Set tRange = ws.Range("C2", ws.Cells(ws.Rows.Count, "C").End(xlUp)) ' 动态识别t数据范围
    
    For Each srs In cht.SeriesCollection
        If srs.Name = "y" Then ' 匹配你的散点图系列名称
            For i = 1 To srs.Points.Count
                Dim tValue As Variant
                tValue = tRange.Cells(i, 1).Value
                ' 自定义颜色映射，可根据需求添加更多t值的颜色
                Select Case tValue
                    Case 1: srs.Points(i).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
                    Case 2: srs.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
                    Case 3: srs.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
                    Case 4: srs.Points(i).Format.Fill.ForeColor.RGB = RGB(255, 255, 0) ' 黄色
                    Case Else: srs.Points(i).Format.Fill.ForeColor.RGB = RGB(128, 128, 128) ' 默认灰色
                End Select
            Next i
        End If
    Next srs
End Sub

• 第二步：修改代码里的工作表名称、图表名称（如果你的图表不是默认的「Chart 1」），然后按下F5运行宏，散点图就会自动按t值上色了。
• 进阶优化：如果t值会不断新增，推荐用下面的动态配色版本，它会自动给新出现的t值分配新颜色，不用手动修改代码：

Sub ColorScatterPointsDynamic()
    Dim cht As Chart
    Dim srs As Series
    Dim pt As Point
    Dim ws As Worksheet
    Dim tRange As Range
    Dim i As Integer
    Dim colorDict As Object
    Dim currentColor As Integer
    Dim colorList As Variant
    
    ' 自定义颜色库，可添加更多RGB颜色
    colorList = Array(RGB(255, 0, 0), RGB(0, 255, 0), RGB(0, 0, 255), RGB(255, 255, 0), RGB(255, 165, 0), RGB(128, 0, 128))
    
    Set colorDict = CreateObject("Scripting.Dictionary")
    currentColor = 0
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set cht = ws.ChartObjects("Chart 1").Chart
    Set tRange = ws.Range("C2", ws.Cells(ws.Rows.Count, "C").End(xlUp))
    
    For Each srs In cht.SeriesCollection
        If srs.Name = "y" Then
            For i = 1 To srs.Points.Count
                tValue = tRange.Cells(i, 1).Value
                If Not colorDict.Exists(tValue) Then
                    ' 循环使用颜色库中的颜色
                    colorDict(tValue) = colorList(currentColor Mod UBound(colorList) + 1)
                    currentColor = currentColor + 1
                End If
                srs.Points(i).Format.Fill.ForeColor.RGB = colorDict(tValue)
            Next i
        End If
    Next srs
End Sub

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