Макрос на транспонирование с сохранением гиперссылок

Пользователь

Сообщений: 8 Регистрация: 04.02.2014

04.02.2014 22:26:35

Добрый вечер. Помогите с написанием макроса на транспонирование. Нужно, чтобы строки, начинающиеся в А1, B1, С1 и так далее, последовательно транспонировались в столбец А1, таким образом, чтобы гиперссылки сохранялись, длина строк, участвующих в транспонировании, не была фиксированной. Если возможно, то макрос должен работать на том же листе, где указаны строки. В прикрепленном файле я постарался изобразить понятный пример. Спасибо.

Прикрепленные файлы

Пример1.xlsx (10.39 КБ)

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

04.02.2014 22:45:20

Например так

Код

Sub bb()
Dim c As Range, d As Range, e As Range
Set c = Cells.SpecialCells(xlCellTypeConstants)
Set d = Cells(Rows.Count, 1).End(xlUp).Offset(1)

For Each e In c
    e.Copy d
    Set d = d.Offset(1)
Next
c.EntireRow.Delete
End Sub

Изменено: Казанский - 04.02.2014 22:48:30

drekryl Пользователь Сообщений: 8 Регистрация: 04.02.2014	#3 04.02.2014 22:49:28 То, что надо. Спасибо

Jack_Famous

Пользователь

Сообщений: 12049 Регистрация: 07.11.2014

OS: Win 10 Корп. x64 | Excel 2016 x64: | Browser: Chrome

21.03.2015 13:17:39

Ребят, помогите допереть - почти полное незнание команд на VBA (((
Записал рекордером макрос на команду "текст по столбцам" с универсальными настройками и разделителем (OtherChar) "|" и привязал к текущей выделенной ячейке, вместо конкретной...вот он

Sub TEXTonCOL()
'
' TEXTonCOL Ìàêðîñ
'

'
ActiveCell.Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
End Sub

Вопрос1: Как добавить в макрос запрос (Box?) с выбором разделителя. Запустил макрос, ввёл разделитель и готово.

Вопрос2: Как добавить макрос на транспонирование ПОЛУЧИВШЕГОСЯ (в результате разбивки текста по столбцам) диапазона колонн в диапазон строк с УДАЛЕНИЕМ источника?
То есть у меня куча данных (список/реестр), соединённый в 1 ячейку через, скажем "; ". Вот я хочу встать на эту ячейку, нажать 1 кнопку, ввести разделитель и получить (начиная с этой ячейки) столбец с данными в каждой строке, без необходимости вручную удалять исходную ячейку/строку и т.д.

Основные проблемы транспонирования на форуме я бы решил макросом "РЕДИЗАЙНЕР" (http://www.planetaexcel.ru/techniques/3/55/) от Павлова.

В моём случае он не работает (во всяком случае я не "допёр")

Мне его очень не хватает в PLEXе (((((

Заранее спасибо.

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Юрий М Модератор Сообщений: 61036 Регистрация: 14.09.2012 Контакты см. в профиле	#5 21.03.2015 13:44:39 Jack_Famous, а какое отношение Текст по столбцам имеет к ЭТОЙ теме? Создайте свою. И код следует оформлять соответствующим тегом - смотрите, как это выглядит у Казанского. Читается лучше?