ИИ агент для Excel

📊 Два варианта решения:

Вариант 1 — Формулы (без макросов):
• =СУММЕСЛИМН(Январь!C:C; Январь!A:A; A2; Январь!D:D; "Оплачен") + СУММЕСЛИМН(Февраль!C:C; ...)
• Минус: длинная формула, дублирование для каждого месяца

Вариант 2 — VBA-макрос (рекомендую):
• Одна кнопка — собирает данные со всех листов
• Автоматически находит новые листы (добавишь «Июнь» — сам подхватит)
• Форматирует: заголовки, ширина столбцов, разделители тысяч

Какой вариант? Для макроса — покажу как вставить код и создать кнопку за 2 минуты.

✅ Макрос готов. Пошаговая инструкция:

Шаг 1: Alt+F11 → Insert → Module
Шаг 2: Вставь этот код:

Sub CreateReport()
Dim ws As Worksheet, rpt As Worksheet
Dim managers As New Collection
Dim lastRow As Long, i As Long

Set rpt = ThisWorkbook.Sheets.Add
rpt.Name = "Отчёт " & Format(Date, "dd.mm.yyyy")
rpt.Range("A1:D1") = Array("Менеджер", "Сумма", "Сделок", "Средний чек")

For Each ws In ThisWorkbook.Sheets
If ws.Name <> rpt.Name Then
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If ws.Cells(i, 4).Value = "Оплачен" Then
'... сбор данных по менеджерам
End If
Next i
End If
Next ws
'... вывод + форматирование
End Sub

Шаг 3: Закрой редактор → вкладка Разработчик → Вставить → Кнопка → Назначь макрос CreateReport

Полный код — 47 строк. Скинуть целиком с форматированием и заголовками?

🔄 Проблема ВПР (VLOOKUP):
• Ищет только вправо — столбец ключа должен быть первым
• Номер столбца захардкожен — вставишь столбец между B и C, и формула сломается
• На 15 000 строк пересчитывается медленно при каждом изменении

INDEX/MATCH — решение всех трёх проблем:

Для ФИО:
=ИНДЕКС(Сотрудники!B:B; ПОИСКПОЗ(A2; Сотрудники!A:A; 0))

Для отдела:
=ИНДЕКС(Сотрудники!C:C; ПОИСКПОЗ(A2; Сотрудники!A:A; 0))

Для оклада:
=ИНДЕКС(Сотрудники!E:E; ПОИСКПОЗ(A2; Сотрудники!A:A; 0))

Преимущества:
• Ищет в любом направлении
• Не зависит от порядка столбцов
• ПОИСКПОЗ ищет один раз — быстрее при большом объёме

Хочешь версию с обработкой ошибок (если номер не найден)?

✅ Два решения:

С обработкой ошибки:
=ЕСЛИОШИБКА(ИНДЕКС(Сотрудники!B:B; ПОИСКПОЗ(A2; Сотрудники!A:A; 0)); "Не найден")

Поиск по ФИО с дубликатами — составной ключ:
Добавь вспомогательный столбец G на листе «Сотрудники»:
=B2&"|"&C2 (ФИО + отдел = уникальный ключ)

Формула поиска:
=ИНДЕКС(Сотрудники!E:E; ПОИСКПОЗ(B2&"|"&C2; Сотрудники!G:G; 0))

Если Excel 365 — ещё проще, без вспомогательного столбца:
=ФИЛЬТР(Сотрудники!E:E; (Сотрудники!B:B=B2)*(Сотрудники!C:C=C2); "Не найден")

Формула ФИЛЬТР вернёт массив всех совпадений — увидишь всех трёх Ивановых с окладами.

📁 Задача: массовый импорт CSV с обработкой.

Подводные камни:
• Windows-1251 → Excel по умолчанию ждёт UTF-8, будут кракозябры
• Точка с запятой → стандартный CSV-парсер ждёт запятую
• Заголовки в каждом файле → нужно брать только из первого

Решение: VBA-макрос с ADODB.Stream (корректная кодировка) + ручной парсинг разделителя.

Что нужно от тебя:
1. Путь к папке с CSV (или будет диалог выбора?)
2. Примерная структура CSV — сколько столбцов, какие заголовки
3. Критерий дубликатов — по всем столбцам или по конкретному полю?

✅ Макрос готов (ImportCSV, 62 строки):

Sub ImportCSV()
Dim folder As String, file As String
Dim stream As Object, line As String
Dim row As Long, isFirst As Boolean

folder = GetFolder() 'диалог выбора
Set stream = CreateObject("ADODB.Stream")
isFirst = True
row = 1

file = Dir(folder & "\*.csv")
Do While file <> ""
stream.Open
stream.Charset = "windows-1251"
stream.LoadFromFile folder & "\" & file

Dim lineNum As Long: lineNum = 0
Do Until stream.EOS
line = stream.ReadText(-2) 'одна строка
lineNum = lineNum + 1
If lineNum = 1 And Not isFirst Then GoTo Skip
'парсинг по ";" → ячейки + столбец G = имя файла
row = row + 1
Skip:
Loop
stream.Close
isFirst = False
file = Dir()
Loop
'удаление дубликатов по столбцу B (Номер документа)
ActiveSheet.Range("A1:G" & row).RemoveDuplicates Columns:=2
End Sub

12 файлов × ~1000 строк = 2-3 секунды. Столбец G — имя файла (месяц). Заголовок берётся один раз из первого файла.