11

Макрос для Excel

Пикабушники, доброй ночи.
Помогите, пожалуйста, с макросом, гугл молчит((
Есть общий файл с организациями и их сотрудниками, то есть несколько подряд одинаковых ИНН, но разные сотрудники, нужно
-копировать все строки одной организации в новую книгу (файл), включая шапку;
-сохранить и закрыть файл.
Название новой книги должно быть вида «ИНН Название компании». Файлы https://yadi.sk/d/ZWZ5I4TP87rLkA Заранее спасибо.

MS, Libreoffice & Google docs

778 постов15K подписчик

Правила сообщества

1. Не нарушать правила Пикабу

2. Публиковать посты соответствующие тематике сообщества

3. Проявлять уважение к пользователям

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

По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях


Важно - сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.

Утверждения вроде "пост - отстой", это оскорбление автора и будет наказываться баном.

Вы смотрите срез комментариев. Показать все
8
Автор поста оценил этот комментарий
Sub ZonaDostavki()
Application.ScreenUpdating = False

Set shMain = Sheets("32")
lr = shMain.Cells(Rows.Count, "C").End(xlUp).Row
For i = 2 To lr
If shMain.Range("C" & i) <> shMain.Range("C" & i - 1) Then
k = 1
Set wb = Workbooks.Add(1): Set sh = wb.Sheets(1)
shMain.Rows(1).Copy
sh.Range("A1").PasteSpecial xlPasteAll
wb.SaveAs ThisWorkbook.Path & "\" & shMain.Range("C" & i) & " .xlsx", FileFormat:=xlOpenXMLWorkbook
k = k + 1
sh.Rows(k) = shMain.Rows(i).Value
If shMain.Range("C" & i) <> shMain.Range("C" & i + 1) Then wb.Close True
Else
k = k + 1
sh.Rows(k) = shMain.Rows(i).Value
If shMain.Range("C" & i) <> shMain.Range("C" & i + 1) Then wb.Close True
End If

Next
End Sub
раскрыть ветку (6)
3
Автор поста оценил этот комментарий
Лист должен называться 32
Колонка рразбиения С
Отсортируйте файл по колонке С и выполните макрос, он разобьет на файлы с заголовками уникальные значения в колонке С
раскрыть ветку (5)
2
Автор поста оценил этот комментарий
Тоесть колонка с должна содержать организации, то что повторяется, обязательно колонку отсортируйте.
Файл нне видел, с телефона сижу)
раскрыть ветку (4)
1
Автор поста оценил этот комментарий
Такой файл))
Иллюстрация к комментарию
раскрыть ветку (3)
2
Автор поста оценил этот комментарий
Вооот, компанию (сигма и тп) в третюю колонку, отсортируйте, лист назовите 32 и запустите макрос, он вам в папку где файл наштампует мелких файлов с именем организаций
раскрыть ветку (2)
1
Автор поста оценил этот комментарий
Спасибо большое!!
раскрыть ветку (1)
2
Автор поста оценил этот комментарий
👌
Вы смотрите срез комментариев. Чтобы написать комментарий, перейдите к общему списку

Темы

Политика

Теги

Популярные авторы

Сообщества

18+

Теги

Популярные авторы

Сообщества

Игры

Теги

Популярные авторы

Сообщества

Юмор

Теги

Популярные авторы

Сообщества

Отношения

Теги

Популярные авторы

Сообщества

Здоровье

Теги

Популярные авторы

Сообщества

Путешествия

Теги

Популярные авторы

Сообщества

Спорт

Теги

Популярные авторы

Сообщества

Хобби

Теги

Популярные авторы

Сообщества

Сервис

Теги

Популярные авторы

Сообщества

Природа

Теги

Популярные авторы

Сообщества

Бизнес

Теги

Популярные авторы

Сообщества

Транспорт

Теги

Популярные авторы

Сообщества

Общение

Теги

Популярные авторы

Сообщества

Юриспруденция

Теги

Популярные авторы

Сообщества

Наука

Теги

Популярные авторы

Сообщества

IT

Теги

Популярные авторы

Сообщества

Животные

Теги

Популярные авторы

Сообщества

Кино и сериалы

Теги

Популярные авторы

Сообщества

Экономика

Теги

Популярные авторы

Сообщества

Кулинария

Теги

Популярные авторы

Сообщества

История

Теги

Популярные авторы

Сообщества

Недвижимость и ремонт

Теги

Популярные авторы

Сообщества