спасибо огромное! все логично, не знал, что диапазон можно с самим собой сравнивать

прикладываю
3й это не количество, это одно из значений (нужное, например, текст3) из колонки 2

да, сорри, туплю после праздников

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

Добрый день!

Не могу сообразить формулу - помогите плз
Есть таблица с 2мя колонками - категория, статус (уникальное значение в рамках одной категории).
Цель: при наличии значения Х в колонке 2 проставить в новой колонке 3 это значение для всей категории (колонка 1)

Пример:

Категория	статус	формула для 3
а	1	3
а	2	3
а	3	3
б	1
б	2
в	1	3
в	2	3
в	3	3
в	4	3
г	1	3
г	2	3
г	3	3
д	1
е	1	3
е	2	3
е	3	3
е	4	3
е	5	3

Дмитрий, спасибо! все работает, вопрос закрыт!

прощу прощения, а как сохранить в другой формат?

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

потестировал, похоже проблема возникает далее, при обновлении таблицы.

Суть следующая:
1. я выгружаю файл типа test3.xls из системы
2. далее в обработчике Excel жму кнопку, открывается диалог выбора файла, выбираю файл test3.
3. путь к выбранному файлу сохраняется в таблице путей к файлам

Атрибут	Значение
jira_recruitment	C:\test\test3.xls

4. у меня есть прописанные Queries (нужная в этом случае называется jira_recruitment)
Ее начало в Advanced editor такое:

let
   Source = Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){[Name="path"]}[Content]{[Атрибут="jira_recruitment"]}[Значение]), null, true),
   #"general_report_Sheet" = Source{[Item="general_report",Kind="Sheet"]}[Data],

5. после сохранения пути к файлу test3 я обновляю целевую таблицу и на этом этапе происходит ошибка

Возможно здесь надо что-то поменять из-за некорректного формата файла:
Source = Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){[Name="path"]}[Content]{[Атрибут="jira_recruitment"]}[Значение]), null, true),
   #"general_report_Sheet" = Source{[Item="general_report",Kind="Sheet"]}[Data],

МатросНаЗебре, та же ошибка...

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

к сожалению без изменений
прикладываю файл
Это таблица сохраненная в формате html, но с расширением XLS  

Дмитрий, на Ваше предложение - тоже ошибка про формат таблицы, как я описал выше

теперь выдает такую ошибку после попытки восстановления файла:

про тему - сорри, мое непонимание места ошибки, я так понял, сейчас тему уже не изменить

Всем привет!

Открываю файл Excel методом Application.GetOpenFilename.
Получаю ошибку 1004. Код останавливается.
Ошибка из-за того, что открываемый файл имеет расширение XLS, но выгружен в другом формате (web). Изменить формат выгрузки нельзя.
При ручном открытии такого файла возникает диалог типа:

Если выбираешь Да, то все нормально открывается в Эксель.

Как мне изменить код, чтобы можно было автоматом ответить Да?

Application.DisplayAlerts = False и On Error Resume Next - не помогают, файл не грузится.

Мой код (начало):
  Dim avFiles

   avFiles = Application.GetOpenFilename _
               ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файл", , False)
   If VarType(avFiles) = vbBoolean Then
       MsgBox "Файл не выбран", 0, "Выбор файла"
       Exit Sub
   End If
   
 
Dim WB As Workbook
Set WB = Workbooks.Open(avFiles, ReadOnly:=True)