Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Преобразование Объединенных ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование Объединенных ячеек (Макросы/Sub)
Преобразование Объединенных ячеек
regask Дата: Среда, 12.04.2017, 15:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Помогите, пожалуйста, с макросом, или другим способом преобразовать таблицу со множеством объединенных столбцов, которую выгружают программы подобные 1С в Excel в удобную для работы в новый файл (вариант с формулами и без формул).
Подобную тему поднимали здесь: http://www.excelworld.ru/forum/10-19832-1 но предложенное там решение не помогло.
Благодарю за помощь.
К сообщению приложен файл: 9785081.xls (91.5 Kb)
 
Ответить
СообщениеПомогите, пожалуйста, с макросом, или другим способом преобразовать таблицу со множеством объединенных столбцов, которую выгружают программы подобные 1С в Excel в удобную для работы в новый файл (вариант с формулами и без формул).
Подобную тему поднимали здесь: http://www.excelworld.ru/forum/10-19832-1 но предложенное там решение не помогло.
Благодарю за помощь.
Автор - regask
Дата добавления - 12.04.2017 в 15:27
Perfect2You Дата: Среда, 12.04.2017, 15:39 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
А в каком виде Вам хотелось бы получить? Просьба включить в пример хотя бы приблизительный лист с формой, которая бы Вас устроила...
 
Ответить
СообщениеА в каком виде Вам хотелось бы получить? Просьба включить в пример хотя бы приблизительный лист с формой, которая бы Вас устроила...
Автор - Perfect2You
Дата добавления - 12.04.2017 в 15:39
sboy Дата: Среда, 12.04.2017, 15:54 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день
Макрорекодер дал следующее
[vba]
Код
Sub Макрос2()
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False       
Range("B:T,V:AB,AD:AI,AK:AP,AR:AW,AY:BE,BG:BM,BO:BU,BW:CB,CD:CI,CK:CP,CR:CX,CZ:DF,DH:DN,DP:DU,DW:EB,ED:EI,EK:EQ").Delete Shift:=xlToLeft  
End Sub
[/vba]
Не совсем понятно, что Вам надо? в каком виде?
К сообщению приложен файл: 0143043.xls (96.0 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день
Макрорекодер дал следующее
[vba]
Код
Sub Макрос2()
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False       
Range("B:T,V:AB,AD:AI,AK:AP,AR:AW,AY:BE,BG:BM,BO:BU,BW:CB,CD:CI,CK:CP,CR:CX,CZ:DF,DH:DN,DP:DU,DW:EB,ED:EI,EK:EQ").Delete Shift:=xlToLeft  
End Sub
[/vba]
Не совсем понятно, что Вам надо? в каком виде?
Автор - sboy
Дата добавления - 12.04.2017 в 15:54
regask Дата: Среда, 12.04.2017, 16:09 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Задача в том, чтобы каждое значение было в отельной ячейке (А1,А2,А3 … ) а не в объединенной.
В идеале хотелось бы, что бы полностью сохранялась структура шапки таблицы и названия над таблицей.
Но если это сильно сложно, то хотя бы только значения в столбцах без структуры шапки.
Пример результата в приложении.
К сообщению приложен файл: ___.xls (39.5 Kb)
 
Ответить
СообщениеЗадача в том, чтобы каждое значение было в отельной ячейке (А1,А2,А3 … ) а не в объединенной.
В идеале хотелось бы, что бы полностью сохранялась структура шапки таблицы и названия над таблицей.
Но если это сильно сложно, то хотя бы только значения в столбцах без структуры шапки.
Пример результата в приложении.
Автор - regask
Дата добавления - 12.04.2017 в 16:09
regask Дата: Среда, 12.04.2017, 16:35 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
…столбец 1 таблицы состоит из A,B,C,…R,S,T - (из 20 столбцов ячеек)
…столбец 2 таблицы из U,V,W,X,Y,Z,AA,AB – (из 8 столбцов ячеек)
А хотелось бы по человечески 1 столбец в A, 2 столбец в B и т.д.
 
Ответить
Сообщение…столбец 1 таблицы состоит из A,B,C,…R,S,T - (из 20 столбцов ячеек)
…столбец 2 таблицы из U,V,W,X,Y,Z,AA,AB – (из 8 столбцов ячеек)
А хотелось бы по человечески 1 столбец в A, 2 столбец в B и т.д.
Автор - regask
Дата добавления - 12.04.2017 в 16:35
Perfect2You Дата: Среда, 12.04.2017, 16:48 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
На самом деле программа из ссылки работает. Нужно только помочь ей с необходимым диапазоном. Строка столбцов для данной конкретной таблицы будет выглядеть так: "A U AC AJ AQ AX BF BN BV CC CJ CQ CY DG DO DV EC EJ ER"
С переменными L и L1, задающими строки конец и начало копируемого диапазона тоже можно варьировать. Я не стал трогать L (ищет последнюю непустую нескрытую ячейку столбца A, а L1 поставил 1. Все сработало.

Макрос не дает форматирования, но форматирование руками проставить не проблема?
И если шапки-подвалы не совпадают с перечисленными столбцами, тоже не попадают в результат.
К сообщению приложен файл: _9785081-1.xls (99.5 Kb)


Сообщение отредактировал Perfect2You - Среда, 12.04.2017, 16:49
 
Ответить
СообщениеНа самом деле программа из ссылки работает. Нужно только помочь ей с необходимым диапазоном. Строка столбцов для данной конкретной таблицы будет выглядеть так: "A U AC AJ AQ AX BF BN BV CC CJ CQ CY DG DO DV EC EJ ER"
С переменными L и L1, задающими строки конец и начало копируемого диапазона тоже можно варьировать. Я не стал трогать L (ищет последнюю непустую нескрытую ячейку столбца A, а L1 поставил 1. Все сработало.

Макрос не дает форматирования, но форматирование руками проставить не проблема?
И если шапки-подвалы не совпадают с перечисленными столбцами, тоже не попадают в результат.
Автор - Perfect2You
Дата добавления - 12.04.2017 в 16:48
sboy Дата: Среда, 12.04.2017, 16:57 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
regask, макрос запускали в файле, который приложил в сообщении 3?

Яндекс: 410016850021169
 
Ответить
Сообщениеregask, макрос запускали в файле, который приложил в сообщении 3?
Автор - sboy
Дата добавления - 12.04.2017 в 16:57
regask Дата: Среда, 12.04.2017, 17:36 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Perfect2You,
...столбцы "A U AC AJ AQ AX BF BN BV CC CJ CQ CY DG DO DV EC EJ ER" в макросе я указал
а L1 поставить 1, т.е. строка будет выглядеть так??
Dim L1 As Long: L1 = 1
..но так не получается, после выполнения макроса ничего не происходит
Укажите Пожалуйста как должен Полностью выглядеть Макрос для моего файла с которым у Вас Все сработало.
а Полученный результат должен Выводится в Отдельный файл или в Тот же ???
Благодарю за помощь ;)
 
Ответить
СообщениеPerfect2You,
...столбцы "A U AC AJ AQ AX BF BN BV CC CJ CQ CY DG DO DV EC EJ ER" в макросе я указал
а L1 поставить 1, т.е. строка будет выглядеть так??
Dim L1 As Long: L1 = 1
..но так не получается, после выполнения макроса ничего не происходит
Укажите Пожалуйста как должен Полностью выглядеть Макрос для моего файла с которым у Вас Все сработало.
а Полученный результат должен Выводится в Отдельный файл или в Тот же ???
Благодарю за помощь ;)
Автор - regask
Дата добавления - 12.04.2017 в 17:36
regask Дата: Среда, 12.04.2017, 17:46 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, Да Макрос в сообщении 3 сработал!
А какая очередность действий в нем записана, чтобы записать Свой Макрос для других подобных таблиц?
Благодарю за помощь!
 
Ответить
Сообщениеsboy, Да Макрос в сообщении 3 сработал!
А какая очередность действий в нем записана, чтобы записать Свой Макрос для других подобных таблиц?
Благодарю за помощь!
Автор - regask
Дата добавления - 12.04.2017 в 17:46
sboy Дата: Среда, 12.04.2017, 17:55 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
regask, скопированы все ячейки на новый лист, как значения и удалены пустые столбцы в таблице

Яндекс: 410016850021169
 
Ответить
Сообщениеregask, скопированы все ячейки на новый лист, как значения и удалены пустые столбцы в таблице
Автор - sboy
Дата добавления - 12.04.2017 в 17:55
Perfect2You Дата: Среда, 12.04.2017, 19:01 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 237
Репутация: 59 ±
Замечаний: 0% ±

Excel 2010
regask,
В моем сообщении тоже файл приложен. Там все исправления в макрос внесены.
У Вас, скорее всего, не был вставлен лист, куда должен вставляться результат.


Сообщение отредактировал Perfect2You - Среда, 12.04.2017, 19:02
 
Ответить
Сообщениеregask,
В моем сообщении тоже файл приложен. Там все исправления в макрос внесены.
У Вас, скорее всего, не был вставлен лист, куда должен вставляться результат.
Автор - Perfect2You
Дата добавления - 12.04.2017 в 19:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование Объединенных ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!