Страницы: 1
RSS
Сохранение столбцов таблицы как отдельных файлов
 
Ребята тема Закрыта!

Огромное человеческое спасибо Ник Никитич   :idea:

Реализация в сообщении #9

Оставил описание задачи!

Скрытый текст
Изменено: aimv - 20.10.2017 12:17:14
 
Ну и жадный Вы. Даже для себя пример зажали :)
 
Не видя файла, как вариант - растащить группы на отдельные листы, потом воспользоваться советами отсюда.
Еще вариант - реализовать макросом.

З.Ы. Чуть не забыл: Объединенные ячейки - ЗЛО.
Кому решение нужно - тот пример и рисует.
 
Цитата
vikttur написал:
Ну и жадный Вы. Даже для себя пример зажали
С телефона грузил и немного промазал)
Изменено: aimv - 18.10.2017 15:58:07
 
Цитата
Пытливый написал:
Еще вариант - реализовать макросом.
Вот как раз в этом направлении и очень хотелось бы
 
эх, походу дело гиблое(
 
На скорую руку, пробуйте
Код
Sub aimv()
Dim ws As Worksheet
Dim wb As Workbook
Dim r As Range
Dim cc As Long, cr As Long
Dim i, x
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
    cc = Cells(2, Columns.Count).End(xlToLeft).Column
    cr = Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To cc
            If Cells(2, i).MergeCells = True Then
                x = Cells(2, i).MergeArea.Columns.Count
                Set r = Range(Cells(2, i), Cells(cr, x + 2 + i))
                Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
                ws.Name = Sheets("Лист1").Cells(2, i).Value
                r.Copy Worksheets(ws.Name).Range("A1")
                Sheets("Лист1").Select
                i = i + x + 2
            End If
        Next i
For i = 2 To Sheets.Count
        x = Sheets(i).Name
        Sheets(i).Copy
        ActiveWorkbook.SaveAs wb.Path & "\" & x & ".xlsx"
        ActiveWorkbook.Close
Next i
Application.ScreenUpdating = True
End Sub
 
Ник Никитич, О_О вау!!!!
Все просто офигеть!!! Отработал почти так как просил!

Почему почти - столбец "А" не забирает в "порезанные" листы, скинул пример (выделено желтым, Лист - "Месяц 2")
Изменено: aimv - 19.10.2017 23:46:57
 
Поправил, как Вы просили
Страницы: 1
Наверх