YoHnA, написано левой ногой.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
Function BuildIt()
Dim WS As Worksheet
Dim target As Range
Dim AvgValue As Variant
Dim DataArray() As Variant
Dim s As Series
Dim c As Chart
For Each WS In ActiveWorkbook.Worksheets
Debug.Print WS.Name
Set target = SearchForRow(WS, "Значение")
If Not target Is Nothing Then
WS.Activate
AvgValue = Application.Average(WS.Range(Cells(target.Row + 1, target.Column), target.End(xlDown)))
If (Not DataArray) = -1 Then
ReDim DataArray(0 To 1, 0 To 0)
Else
ReDim Preserve DataArray(0 To 1, 0 To UBound(DataArray, 2) + 1)
End If
DataArray(0, UBound(DataArray, 2)) = WS.Name
DataArray(1, UBound(DataArray, 2)) = AvgValue
End If
Next
ActiveSheet.Shapes.AddChart.Select
Set c = ActiveChart
Set s = c.SeriesCollection(1)
s.Values = GetArrLine(DataArray, 1)
s.XValues = GetArrLine(DataArray, 0)
End Function
Private Function GetArrLine(arr() As Variant, line As Long) As Variant
Dim i As Long
Dim res As Variant
ReDim res(LBound(arr, 2) To UBound(arr, 2))
For i = LBound(arr, 2) To UBound(arr, 2)
res(i) = arr(line, i)
Next
GetArrLine = res
End Function
Private Function SearchForRow(WS As Worksheet, value As String) As Range
Set SearchForRow = WS.Cells.Find(value)
End Function
Каждый столбец значений (по которому будет вычисляться среднее значение) должен быть озаглавлен соответственно (в примере "Значение")
При переборе листов, если идентификатор столбца с требуемым заголовком не обнаружен - лист будет пропущен
При обнаружении такого столбца - вычисляем его среднее значение.
По окончании перебора строим гистограмму вычисленных средних значений по именам листов (в твоем случае - будут наименования месяцев).
По надобности - причешешь сам - думаю труда не составит.
