Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транспонирование полей с одинаковым соседним полем / 3 сообщений из 3, страница 1 из 1
04.02.2015, 16:06
    #38871556
ЛесноеОзеро
ЛесноеОзеро
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транспонирование полей с одинаковым соседним полем
Есть список:
A B
Иванов 100
Петров 333
Петров 766
Иванов 551
Сидоров 868

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

Получается только многоэтапными формулами, а надо бы просто и быстро.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2015, 23: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
| Ответить | Цитировать | Написать  
12.02.2015, 12:17
    #38877861
ЛесноеОзеро
ЛесноеОзеро
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Транспонирование полей с одинаковым соседним полем
Казанский,
спасибо - это красиво.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Транспонирование полей с одинаковым соседним полем / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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