Как изменить формулу или продолжить ее...!!!

[wirta]

Доброе утро. Помогите пожалуйста в формуле (см. ниже)

=СУММЕСЛИ(Киев!B6:B76;A44;Киев! F6:F76)+СУММЕСЛИ(Львов!B6:B76;A44 ;Львов!F6:F76)+СУММЕСЛИ(Донецк!B4:B 74;A44;Донецк!F6:F76)+СУММЕСЛИ(Харь ков !B4:B74;A44;Харьков!F6:F76)+СУММЕСЛ И (Москва!B4:B74;A44;Москва!I4:I76)+С УММЕСЛИ(Тбилиси!B4:B73;A44;Тбилиси! I4:I75)+СУММ ЕСЛИ(Винница!B4:B73;A44;Винница!I4: I75)+СУММЕСЛИ(Суммы!B4:B74;A44;Сумм ы!I4 :I76)+СУММЕСЛИ(Спб!B4:B74;A44; Спб!I4:I76)+СУММЕСЛИ(Воронеж!B 4:B74;A44;Воронеж!I4:I74)+СУММЕСЛИ( Ужгород!B4:B74;A44;Ужгород!I4:I76)+ СУ ММЕСЛИ(Одесса!B4:B74;A44;Одесса!I 4:I76)....

И так нужно продолжить еще определенное кол-во городов, но эксель выдает как сильно сложная формула...Возможно ее как-то заменить???

[IgorGO]

Если Вы все данные с листов с именами городов перенесете на 1 лист, добавите колонку "Город" и заполните ее, то длина формулы станет 30 символов.
фильтр позволит вам элементарно отбирать данные по любому городу

[staniiislav]

Сообщение от wirta

Доброе утро. Помогите пожалуйста в формуле (см. ниже)

=СУММЕСЛИ(Киев!B6:B76;A44;Киев! F6:F76)+СУММЕСЛИ(Львов!B6:B76;A44 ;Львов!F6:F76)+СУММЕСЛИ(Донецк!B4:B 74;A44;Донецк!F6:F76)+СУММЕСЛИ(Харь ков !B4:B74;A44;Харьков!F6:F76)+СУММЕСЛ И (Москва!B4:B74;A44;Москва!I4:I76)+С УММЕСЛИ(Тбилиси!B4:B73;A44;Тбилиси! I4:I75)+СУММ ЕСЛИ(Винница!B4:B73;A44;Винница!I4: I75)+СУММЕСЛИ(Суммы!B4:B74;A44;Сумм ы!I4 :I76)+СУММЕСЛИ(Спб!B4:B74;A44; Спб!I4:I76)+СУММЕСЛИ(Воронеж!B 4:B74;A44;Воронеж!I4:I74)+СУММЕСЛИ( Ужгород!B4:B74;A44;Ужгород!I4:I76)+ СУ ММЕСЛИ(Одесса!B4:B74;A44;Одесса!I 4:I76)....

И так нужно продолжить еще определенное кол-во городов, но эксель выдает как сильно сложная формула...Возможно ее как-то заменить???

можете попробовать вот это (в модуль положить):

Сообщение от wirta

Sub New_Multi_Table_Pivot()
Dim i As Long
Dim arSQL() As String
Dim objPivotCache As PivotCache
Dim objRS As Object
Dim ResultSheetName As String
Dim SheetsNames As Variant

'имя листа, куда будет выводиться результирующая сводная
ResultSheetName = "Сводная"
'массив имен листов с исходными таблицами
SheetsNames = Array("Альфа", "Бета", "Гамма", "Дельта")

'формируем кэш по таблицам с листов из SheetsNames
With ActiveWorkbook
ReDim arSQL(1 To (UBound(SheetsNames) + 1))
For i = LBound(SheetsNames) To UBound(SheetsNames)
arSQL(i + 1) = "SELECT * FROM [" & SheetsNames(i) & "$]"
Next i
Set objRS = CreateObject("ADODB.Recordset")
objRS.Open Join$(arSQL, " UNION ALL "), _
Join$(Array("Provider=Microsoft.Jet .OLEDB.4.0; Data Source=", _
.FullName, ";Extended Properties=""Excel 8.0;"""), vbNullString)
End With

'создаем заново лист для вывода результирующей сводной таблицы
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(ResultSheetName).Delete
Set wsPivot = Worksheets.Add
wsPivot.Name = ResultSheetName

'выводим на этот лист сводную по сформированному кэшу
Set objPivotCache = ActiveWorkbook.PivotCaches.Add(xlEx ternal)
Set objPivotCache.Recordset = objRS
Set objRS = Nothing
With wsPivot
objPivotCache.CreatePivotTable TableDestination:=wsPivot.Range("A3 ")
Set objPivotCache = Nothing
Range("A3").Select
End With

End Sub

не помню кто писал этот код, но по моему нашел на этом форуме