ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транспонирование полей с одинаковым соседним полем
3 сообщений из 3, страница 1 из 1
Транспонирование полей с одинаковым соседним полем
    #38871556
ЛесноеОзеро
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЛесноеОзеро
Гость
Есть список:
A B
Иванов 100
Петров 333
Петров 766
Иванов 551
Сидоров 868

как получить из него:
A B C
Иванов 100 551
Петров 333 766
Сидоров 868

Получается только многоэтапными формулами, а надо бы просто и быстро.
...
Рейтинг: 0 / 0
04.02.2015, 16:06
| Ответить | Цитировать | Написать  
Транспонирование полей с одинаковым соседним полем
    #38874059
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Макрос. Предполагается, что список начинается с ячейки А1, не содержит заголовка и разрывов. Повторов может быть сколько угодно (на 1 меньше, чем столбцов на листе).
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub ForrestLake()
Dim i&
i = 2
Range("A1").Sort Range("A1"), xlAscending, Header:=xlNo
Do While Cells(i, 1) <> ""
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Cells(i, 2).Copy Cells(i - 1, Columns.Count).End(xlToLeft).Offset(, 1)
        Rows(i).Delete
    Else: i = i + 1
    End If
Loop
End Sub
...
Рейтинг: 0 / 0
07.02.2015, 23:06
| Ответить | Цитировать | Написать  
Транспонирование полей с одинаковым соседним полем
    #38877861
ЛесноеОзеро
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЛесноеОзеро
Гость
Казанский,
спасибо - это красиво.
...
Рейтинг: 0 / 0
12.02.2015, 12:17
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транспонирование полей с одинаковым соседним полем
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]