Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Litesav
0 / 0 / 0
Регистрация: 27.07.2016
Сообщений: 26
#1

Макрос для разделения xls на конкретные строки - VBA

20.04.2017, 14:43. Просмотров 153. Ответов 1
Метки нет (Все метки)

Добрый день. Необходимо написать или найти следующий VBA-макрос. Есть большой Excel файл в 35000 строк. Есть интервалы строк, по которым нужно разбить этот файл. Например: 3457-3468; 4050-4150 и т.д. Длина у каждого интервала разного. В результате должны получить множество файлов xls с названием из первого столбца. Достаточно, чтобы макрос принимал два значения от и до. В коде буду эти значения менять. Главное, чтобы содержимое заданного диапазона появлялось в новом созданном файле. И, если, возможно, чтобы название этого файла было как у первого столбца первой строки по отношению к заданному диапазону. Пример таблицы прикрепляю.
0
Вложения
Тип файла: xlsx Пример.xlsx (14.1 Кб, 5 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2017, 14:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Макрос для разделения xls на конкретные строки (VBA):

Макрос для разделения таблицы на несколько - VBA
Добрый день! Имеется макрос (см.приложение) который разделяет одну большую таблицу по ключевому столбцу на несколько и сохраняет их. ...

Макрос для XLS по созданию объектов в Visio - VBA
Добрый день! Помогите пожалуйста с шаблоном макроса для XLS, который бы создавал новый файл Visio, добавлял в него два объекта и связывал...

Макрос для печати файлов xls из конкретной папки - VBA
Добрый День, Уважаемые Дамы и Господа! Необходимо сделать макрос который будет печатать документы из конкретной папки, и конкретные листы...

Макрос для сдвига xls таблицы на несколько ячеек ниже - VBA
Добрый день, уважаемые форумчане. Выгружаю из SQL Server при помощи DTS Package xls-таблицу. Далее мне необходимо добавить при помощи...

Создать макрос для генерирования csv файла из накладной xls - VBA
Всем привет! Помогите пожалуйста создать макрос для генерирования csv файла из накладной xls.

Перенос данных из xls в xls для отчета - VBA
Perenosit ne vse dannyje iz faila s dannymi v otczet, nowiczek w etoj teme ne mogu razobrat' Private Function PrepareFinalDataSheet() ...

1
toiai
3055 / 851 / 178
Регистрация: 29.05.2010
Сообщений: 1,817
22.04.2017, 18:51 #2
Возможно так:
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Sheet2Files()
    Dim shSrc As Worksheet, rCol1 As Range, c As Range
    Dim cl As New Collection, pth$
    Set shSrc = ActiveSheet
    pth = ActiveWorkbook.Path & "" 'путь сохранения файлов
    Set rCol1 = shSrc.UsedRange.Columns(1)
    Set rCol1 = rCol1.Cells(2).Resize(rCol1.Cells.Count - 1) 'первый столбец без заголовка
    On Error Resume Next
    For Each c In rCol1.Cells
        cl.Add 0, c.Value
        If Err Then
            Err.Clear
        Else
            shSrc.Copy      'в новую книгу
            ActiveSheet.Range(rCol1.Address).ColumnDifferences(c).EntireRow.Delete
            'здесь надо заменить символы, которые нельзя использовать в имени файла
            'c=
            ActiveWorkbook.Close True, pth & c 'закрыть с сохранением
        End If
    Next
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2017, 18:51
Привет! Вот еще темы с ответами:

Нужен макрос для удаления строки - VBA
Срочно нужна помощь! Задание : Удалить запись о поездах, которые следуют до заданной станции. Таблица выглядит так: Номер...

Макрос для Word 2007: удаление строки с символом - VBA
Помогите мне написать макрос для редактирования текста Задача: найти строку с определенным словом и удалить ее

Макрос для Excel. Формат строки по образцу при условии - VBA
Добрый день! Помогите пожалуйста написать макрос. Нужно. Если в ячейке столбца "C" содержится слово "Итог", то данная строка...

Макрос для добавления строки после выбора пункта со спадающего меню - VBA
Здравствуйте. Прошу помощи в написании макроса. Задание заключается в: 1) При выборе в строке значения из спадающего меню должна...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru