我想我找到了一个方法来实现你想要的目标。我创建了两个数据透视表。一个包含平均值（“Sheet 1”上的“PivotTable 1”），另一个包含标准差（“Sheet 2”上的“PivotTable 2”）。要同时在两个表上应用过滤器，需要使用切片器连接两个数据透视表（“数据透视表分析”->“添加切片器”，然后选择切片器并转到“切片器”->“报表连接”）。在这些准备工作之后，下面的代码在Windows上适用于Office365：

Sub StdDevErrorBarsToPT()
    Dim cht As chart
    Dim ser As series
    Dim ptAve As PivotTable
    Dim ptDev As PivotTable
    Dim dataRange As Range
    Set ptAve = Worksheets("Sheet1").PivotTables("PivotTable1")
    Set ptDev = Worksheets("Sheet2").PivotTables("PivotTable2")
    
    Set cht = Worksheets("Sheet1").Shapes.AddChart2( _
        251, xlColumnClustered).chart
        
    ' Set the data source for the chart
    cht.SetSourceData Source:=ptAve.TableRange1
    
    For i = 1 To cht.SeriesCollection.Count
    ' Set series object
        Set ser = cht.SeriesCollection(i)
        Set dataRange = ptDev.DataBodyRange.Columns(i)
        cht.SeriesCollection(i).HasErrorBars = True
        ser.ErrorBar _
        Direction:=xlY, _
        Include:=xlErrorBarIncludeBoth, _
        Type:=xlErrorBarTypeCustom, _
        Amount:=dataRange, _
        MinusValues:=dataRange
    Next i

End Sub