Разъеденить и поместить в одной ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Разъеденить и поместить в одной ячейки (Редактирование в Excele)

Dimman31

Дата: Среда, 15.02.2012, 10:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 20% ±

Добрый день!

После выгрузки с 1С в excel таблица распологается на 67 столбцах. Вопрос, как её разместить на 7-ми столбцах, вручную очень долго т.к. этих выгрузок больше сотни. См. вложение

К сообщению приложен файл: 6726610.xls (29.5 Kb)

Ответить

Jhonson

Дата: Среда, 15.02.2012, 10:30 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Я обычно делаю в таких случаях (только для таблиц!) через вставку в MS WORD, т.е. копирую таблицу в WORD, а потом обратно в EXCEL.
Возможно кто-нибудь предложит что получше )))

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Jhonson

Дата: Среда, 15.02.2012, 11:35 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Можно немного упростить процесс, запустив сначала макрос:

[vba]

Code

Sub Объеденить_Заголовки()
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Borders(xlEdgeLeft).LineStyle = xlNone Then Range("B" & i & ":BO" & i).MergeCells = True
Next
End Sub

[/vba]

Он объеденит заголовки всех таблиц. Ну и далее можно будет осуществить вставку в MS WORD и обратно одновременно всех таблиц вместе с заголовками!

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Среда, 15.02.2012, 11:46

Ответить

_Boroda_

Дата: Среда, 15.02.2012, 12:12 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант
Без Ворда, просто запустить макрос на каждом листе
[vba]

Code

Sub tt()
Application.ScreenUpdating = 0
       r_ = Cells.Find(What:="№").Row
       Rows(r_).UnMerge
       Rows(r_).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
       c_ = Cells(r_, Columns.Count).End(xlToLeft).Column
       Columns(1).Resize(, c_).EntireColumn.AutoFit
Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 6726610_1.xls (46.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

nerv

Дата: Среда, 15.02.2012, 12:37 | Сообщение № 5

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

_Boroda_, зачет wink

Люблю простые и эффектные решения. [простые + эффектные = гениальные]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Среда, 15.02.2012, 12:40