т.е массивная формула вам подходит с учетом цитируемого? сколько же у Вас данных? строк столбцов?

perminovandr, ну там одну кнопку нажать)
или в PQ обновить нажать...кажется это не сложно...

Olenenochek, или макросом в модуль листа

Скрытый текст
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("D2:D4")) Is Nothing Then x = ActiveCell.Row 'строка y = ActiveCell.Column 'столбец If Cells(x, y) = "нет" Then y = y + 1 Cells(x, y) = 0 End If End If End Sub

perminovandr, какой размер ???
попробуйте в приемах найти расширенный фильтр
или в PQ - установив фильтр см. файл.

еще вариант макросом  см. 2 файл, в конце названия (1)

Скрытый текст

Sub bez_dop() ' для ускорения проводим временное отключение некоторых функций экселя Application.ScreenUpdating = False 'Отключить перерисовку объектов на экране, чтобы ничего не мигало. Application.Calculation = xlCalculationManual 'Выключить расчет. Внимание, если макрос прервался посреди работы, то расчет так и останется в ручном режиме! Application.EnableEvents = False 'Не обрабатывать события. ActiveSheet.DisplayPageBreaks = False 'Отображение границ страниц, тоже почему-то помогает. Application.DisplayStatusBar = False 'В статусной строке выводятся различные данные, что замедляет работу, отключаем. Application.DisplayAlerts = False 'Это если нужно. Выключает сообщения Экселя. Например, мы делаем Workbook.Close, Эксель хочет спросить сохранить ли изменения. При выключении этого параметра все ответы будут даны автоматически (изменения не сохранятся). ' очищаем ранее внесенные значения lLastRow = Sheets("Лист2").Cells(Rows.Count, 3).End(xlUp).Row Sheets("Лист2").Range(Cells(1, 1), Cells(lLastRow, 3)).ClearContents 'Копириуем шапку таблицы  lLastRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row      Sheets("Лист2").Cells(1, 1) = Sheets("Лист1").Cells(2, 1)    Sheets("Лист2").Cells(1, 2) = Sheets("Лист1").Cells(2, 2)    Sheets("Лист2").Cells(1, 3) = Sheets("Лист1").Cells(2, 3) ' проходим циклом по каждому значение листа 1 и проверяем на наличие слова "ДОП" и в случае отсутсвия копируем значения For i = 3 To lLastRow    If Sheets("Лист1").Cells(i, 2) <> "доп" Then    lLastRow2 = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row    lLastRow2 = lLastRow2 + 1    Sheets("Лист2").Cells(lLastRow2, 1) = Sheets("Лист1").Cells(i, 1)    Sheets("Лист2").Cells(lLastRow2, 2) = Sheets("Лист1").Cells(i, 2)    Sheets("Лист2").Cells(lLastRow2, 3) = Sheets("Лист1").Cells(i, 3)    End If    Next ' Включаем функции экселя отключенные раннее    Application.ScreenUpdating = True 'Включаем перерисовку объектов на экране, чтобы ничего не мигало.    Application.Calculation = xlCalculationAutomatic 'Включаем расчет. Внимание, если макрос прервался посреди работы, то расчет так и останется в ручном режиме!    Application.EnableEvents = True 'Не обрабатывать события.    ActiveSheet.DisplayPageBreaks = True 'Отображение границ страниц, тоже почему-то помогает.    Application.DisplayStatusBar = True 'В статусной строке выводятся различные данные, что замедляет работу, отключаем.    Application.DisplayAlerts = True 'Это если нужно. Выключает сообщения Экселя. Например, мы делаем Workbook.Close, Эксель хочет спросить сохранить ли изменения. При выключении этого параметра все ответы будут даны автоматически (изменения не сохранятся). End Sub

Aliska, а в примере что я вам посчитал?
процент посещений в каждом дне по отношению к ВСЕГО посещений в месяце!
а общий процент посетитлей в месяце будет равен 100%

Геннадий, интересно просто, чем?!)

Aliska, что за месяц? у вас процент за день считается к отношению суммы всех посещений в месяце, что вы хотите не понятно
за месяц это будет 100%

Aliska, сделал как понял

Aliska, покажите в файле где считать, в каком виде и что должно получится( вбейте ручками)

Valdis,

dail33, у меня есть вот такой можете его переделать под себя...

Скрытый текст

Sub Сохранить_в_ПДФ() Application.ScreenUpdating = False ' Отключаем обновление экрана For n = 1 To ThisWorkbook.Worksheets.Count Dim fileSaveName As String    Dim namef As String    Dim path As String    Dim FullName        FullName = "D:\" ' куда сохраняем     namef = CStr(Sheets(n).Range("A1").Value) 'ячейка в которое берем часть названия файла     path = FullName    fileSaveName = path & namef & ".pdf" ' параметры для сохранения Sheets(n).ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fileSaveName), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next Application.ScreenUpdating = 1 ' включаем обновление экрана End Sub

Valdis, объединенные ячейки это зло от них нужно избавиться... формат таблицы  № 2 можно менять для решения вопроса ?

ЛСИ, все правильно 20 так как сначала суммируем до суммы не меньше 80 а уже больше 80%...
поэтому я вам говорил ранее что нет четкого понимания что должно и что не должно для этого и нужно создать словарь что бы точно понимать что если краска то это ОФ если нет то вспомог.
и удачи в решении вопроса.

ЛСИ, да ладно?  вы просто написали факт или проверили на нескольких данных результат? в вашем примере получилось с этой формулой то что вы хотели

ЛСИ, я не знаю честно говоря что да как..
как вариант попробовать такйо вариант
в G5 и протянуть

ЛСИ, почему первоочередно в вашем примере суммирование вы суммирует  110012,9355 хотя это меньше чем 121949,6893???
вопросы задаю так как не понятно вообще логика почему так

 OFF все хотят быть как Сергей

ЛСИ, но если просуммировать везде где вы проставили 80 получится процент 93 ... нужна логика и ограничения...

BiteR, может ЕОШ, ЕНД

Вариант создать словарь условий  и по нему по совпадению определять

      A               B
1 грунтовка    80
2 Цемент        20
Какая логика проставления процентов?? что значат цифры рядом с ними сверху таблицы!? 20 % напротив допустим Термитная спичка 1 почему? от чего эти 20% берутся?

у вас тут какой-то я так понимаю процесс смешения типа...
может есть логика или что то в этом роде, так как что бы формула делала то что вы просите нужно понимать почему так а не иначе?  

ЛСИ, может файл слишком большой по РАЗМЕРУ? совет замените пред сообщение)) модераторы не любят такое) да и выглядит это некрасиво.

не плодите просто так сообщения - можно редактировать свои

Марто, вариант с дополнительным столбцом...где в F все названия компания (чисто ромашка, фиалка и т.д.)

Reymen107, а помочь решить вопрос без файла-примера в котором отражены исходные данные и желаемый результа
это еще

Crack Crack, сводная наверное поможет вам...так нет примера того что должно получится ...

Vakhtang0770, а как если содержание пробела допустимо только в текстовых ячейках.

Grantorino, скажу вам так - просто покажите исходные данные в файле и рядом ручками приведите пример что должно получится и в каком виде, а то как это решить средствами эксель постараются помочь форумчане

Vakhtang0770, покажите в ФАЙЛЕ каким должен быть результат?!  

vikttur, упс)
ну ничего может кому-то пригодится))0

zpxoPW, макрос вам выше предложил... его можно на изменение данных повесить на листе в указанном диапазоне.
в модуль листа

Скрытый текст

Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range: Set rng = [A1:A1000] 'диапазон Вашей таблицы    If Not Intersect(rng, Target) Is Nothing Then    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To lLastRow    If Cells(i, 1) <> "" Then    Cells(i, 2) = "=SUMIFS(Лист2!C2,Лист2!C1,Лист1!RC1,Лист2!C3,"">=""&Лист1!R1C3,Лист2!C3,""<=""&Лист1!R2C3)"    End If    Next End If End Sub

zpxoPW,  если вы даже будете использовать функцию смещение ВАМ все равно придется протянуть формулу так как она сама из неоткуда не появится...или раз протянуть до конца листа...

Скрытый текст
Sub вставить_формулу() lLastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To lLastRow    If Cells(i, 1) <> "" Then    Cells(i, 2) = "=SUMIFS(Лист2!C2,Лист2!C1,Лист1!RC1,Лист2!C3,"">=""&Лист1!R1C3,Лист2!C3,""<=""&Лист1!R2C3)"    End If    Next End Sub