当然可行！用VBA宏循环来自动生成这15条曲线绝对能帮你省下大量手动操作的时间，我给你准备了现成的宏代码，同时也分享一个不用写代码的傻瓜式方案，看你更偏好哪种~

方案一：VBA宏自动生成多曲线图表 #

这个思路是先把分开的date和time列合并成连续的DateTime数据，然后自动遍历每个唯一的Item，把对应的数据系列添加到图表中。

完整宏代码 #

Sub GenerateMultiSeriesChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim lastRow As Long
    Dim uniqueItems As Collection
    Dim item As Variant
    Dim i As Long
    Dim xRange As Range, yRange As Range
    
    ' 替换成你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 第一步：合并Date和Time列生成DateTime（这里用E列存储，可按需修改）
    ws.Range("E1").Value = "DateTime"
    For i = 2 To lastRow
        ' 日期+时间转成完整的DateTime值
        ws.Cells(i, "E").Value = ws.Cells(i, "B").Value + ws.Cells(i, "C").Value
        ' 设置时间格式，方便图表识别
        ws.Cells(i, "E").NumberFormat = "yyyy-mm-dd hh:mm:ss"
    Next i
    
    ' 获取所有唯一的Item名称（避免重复处理）
    Set uniqueItems = New Collection
    On Error Resume Next ' 忽略重复添加的错误
    For i = 2 To lastRow
        uniqueItems.Add ws.Cells(i, "A").Value, Key:=CStr(ws.Cells(i, "A").Value)
    Next i
    On Error GoTo 0 ' 恢复错误处理
    
    ' 在工作表上创建新图表（位置和尺寸可调整）
    Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=800, Top:=100, Height:=500)
    With chartObj.Chart
        .ChartType = xlXYScatterLines ' 散点折线图更适合连续时间序列，避免时间间隔异常
        .HasTitle = True
        .ChartTitle.Text = "Date&Time vs Value (All Items)"
        ' 设置坐标轴标题
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Text = "Date & Time"
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Text = "Value"
    End With
    
    ' 循环每个Item，添加对应的数据系列
    For Each item In uniqueItems
        ' 筛选当前Item的数据行
        ws.Range("A1:E" & lastRow).AutoFilter Field:=1, Criteria1:=item
        ' 获取筛选后的DateTime和Value数据范围（跳过表头）
        Set xRange = ws.Range("E2:E" & lastRow).SpecialCells(xlCellTypeVisible)
        Set yRange = ws.Range("D2:D" & lastRow).SpecialCells(xlCellTypeVisible)
        
        ' 将数据添加到图表作为新系列
        With chartObj.Chart.SeriesCollection.NewSeries
            .Name = item
            .XValues = xRange
            .Values = yRange
        End With
    Next item
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
    
    ' 优化图表显示（可选）
    chartObj.Chart.Axes(xlCategory).TickLabels.NumberFormat = "mm-dd hh:mm" ' 简化时间标签
    chartObj.Chart.Legend.Position = xlLegendPositionRight ' 图例放右侧
End Sub

使用说明 #

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器
2. 插入一个新模块，把上面的代码粘贴进去
3. 修改代码中的工作表名称（Sheet1）为你实际的表名
4. 确认你的列顺序是：A列=item，B列=date，C列=time，D列=value（如果不是，调整代码中对应的列号）
5. 运行宏，等待自动生成图表即可

方案二：无代码快速方案（Power Query + Excel图表） #

如果你不想写代码，用Excel自带的Power Query可以轻松处理数据并生成图表：

1. 将数据转成超级表：选中所有数据区域，点击插入>表格，勾选“我的表格有标题”，点击确定
2. 用Power Query合并日期时间：
   • 点击数据>从表格/范围，打开Power Query编辑器
   • 点击添加列>自定义列，输入公式：

     #datetime(Date.Year([date]), Date.Month([date]), Date.Day([date]), Time.Hour([time]), Time.Minute([time]), Time.Second([time]))
     

   • 重命名这个新列为DateTime，然后删除原来的date和time列
   • 点击关闭并上载，将处理好的数据放回工作表
3. 一键生成多曲线图表：选中处理后的超级表，点击插入>散点图>带数据标记的折线图，Excel会自动识别每个item作为独立系列，生成你需要的图表！

小贴士 #

• 优先用散点折线图而不是普通折线图：因为普通折线图会把x轴当成分类数据，如果你有缺失的时间点，会自动补位导致曲线变形；散点折线图会把x轴当成连续数值，更符合时间序列的特性
• 如果图表显示卡顿，可以考虑对数据做降采样（比如每小时取一个平均值），但如果必须保留10分钟粒度，这个可以忽略
• 用宏的话，记得把文件保存为.xlsm格式（启用宏的工作簿）

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