powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel - из 2 в 1
6 сообщений из 6, страница 1 из 1
excel - из 2 в 1
    #37813364
Форум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как в экселе из 2 столбцов сделать одну?
Есть 2 столбца на листе, нужно создать 3-ю из первых двух.

А1: А2:
1 3
2 4
3 5
4 6
5 7

Результат в столбце
А3:
1
2
3
4
5
6
7

Т.е. в конечном столбце должны отобразится значения обоих столбцов
за исключением повторяющихся. Фильтры и условное форматирование не
пойдут, объем данных большой.
...
Рейтинг: 0 / 0
excel - из 2 в 1
    #37813387
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вырезать второй столбец, вставить под первым. Дальше - расширенный фильтр, только уникальные (Excel 2003 и более ранние) или Удалить дубликаты (2007/2010).
...
Рейтинг: 0 / 0
excel - из 2 в 1
    #37813399
Форум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Казанский, объем большой, количество строк в столбцах от 20000, а то и все 100000, пользователь парится )
...
Рейтинг: 0 / 0
excel - из 2 в 1
    #37813405
DV68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Форум,
Допустим данные в A1:B5.
Тогда в С2 пишем формулу:
=НАИМЕНЬШИЙ(A$1:B$5;СЧЁТЕСЛИ(A$1:B$5;"<="&C1)+1)
и растягиваем вниз
Получаем список уникальных по возрастанию.
...
Рейтинг: 0 / 0
excel - из 2 в 1
    #37813576
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ФорумКазанский, объем большой, количество строк в столбцах от 20000, а то и все 100000, пользователь парится )Тогда макрос
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Форум()
Dim x, n&
On Error Resume Next
With CreateObject("scripting.dictionary")
    For Each x In ActiveSheet.UsedRange.Columns(1).Resize(, 2).Value
        .Add x, ""
    Next
    ReDim v(1 To .Count, 1 To 1)
    For Each x In .keys
        n = n + 1
        v(n, 1) = x
    Next
End With
[C1].Resize(n) = v
End Sub
...
Рейтинг: 0 / 0
excel - из 2 в 1
    #37813588
кладовщик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ФорумКазанский, объем большой, количество строк в столбцах от 20000, а то и все 100000, пользователь парится )
В макросе использовать доступ к данным как к таблице БД. Статья MS "Использование ADO с данными Excel из Visual Basic или VBA" http://support.microsoft.com/kb/257819
Должно работать шустро и на сотнях тысяч записей для приведенного примера:
Код: plsql
1.
2.
3.
4.
5.
SELECT Лист1.F1 As F FROM Лист1
UNION 
SELECT Лист1.F2
FROM Лист1
ORDER BY F;


-----
Не люблю Progress OpenEdge.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel - из 2 в 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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