Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel - из 2 в 1 / 6 сообщений из 6, страница 1 из 1
27.05.2012, 14:46
    #37813364
Форум
Форум
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
Как в экселе из 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
| Ответить | Цитировать | Написать  
27.05.2012, 15:14
    #37813387
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
Вырезать второй столбец, вставить под первым. Дальше - расширенный фильтр, только уникальные (Excel 2003 и более ранние) или Удалить дубликаты (2007/2010).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2012, 15:25
    #37813399
Форум
Форум
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
Казанский, объем большой, количество строк в столбцах от 20000, а то и все 100000, пользователь парится )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2012, 15:30
    #37813405
DV68
DV68
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
Форум,
Допустим данные в A1:B5.
Тогда в С2 пишем формулу:
=НАИМЕНЬШИЙ(A$1:B$5;СЧЁТЕСЛИ(A$1:B$5;"<="&C1)+1)
и растягиваем вниз
Получаем список уникальных по возрастанию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2012, 20:30
    #37813576
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
ФорумКазанский, объем большой, количество строк в столбцах от 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
| Ответить | Цитировать | Написать  
27.05.2012, 20:54
    #37813588
кладовщик
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
excel - из 2 в 1
ФорумКазанский, объем большой, количество строк в столбцах от 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / excel - из 2 в 1 / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 365ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175683]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 209ms
total:  365ms
x
x
Закрыть


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