Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сравнить столбцы в экселе? / 25 сообщений из 26, страница 1 из 2
  1  все
22.03.2010, 13:41
    #36534446
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Нужно сравнить в 1 столбце ячейки, а точнее допустим в первой ячейки 1 столбца значение 1568 надо что бы выбрать по этой цифре из этого же столбца все ячейки с таким же числом, дальше ячейка 2, 1 столбца в ней значение 523 надо теперь выбрать все ячейки первого столбца где есть такое значение. Ну и так по порядку все ячейки первого столбца до последней. Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 13:43
    #36534451
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Выбрать куда? Выбрать как?
С Вашим примером будет понятнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 14:37
    #36534642
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 14:37
    #36534645
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
да можно прям во второй столбец что бы выбрато было те столбцы которые оказались одинаковыми
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 14:39
    #36534652
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
а уж как это сделать я сам незнаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 14:56
    #36534721
-nail-
-nail-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
сводную таблицу что ли сделать нельзя???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 15:12
    #36534773
D
D
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
А может =счётесли(A:A;A1) поможет)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 16:16
    #36535003
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
-nail-сводную таблицу что ли сделать нельзя???

как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 16:34
    #36535060
domovoi
domovoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
НУЖНО сравнение содержимого ячеек одного столбца, и те ячейки содержимое которых одинаково должны быть вынесены во второй столбец. так вроде объяснил))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 17:10
    #36535171
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
не подойдет что-то типа
=ЕСЛИ(СЧЁТЕСЛИ($A:$A;A1)>1;A1;"")
? тлько дубликаты будут оставаться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 17:28
    #36535220
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Такое подойдёт?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub uniq()

Dim Arr(), x, cnt

Arr() = Columns( 1 ).Value
On Error GoTo wr_
With CreateObject("Scripting.Dictionary")
For Each x In Arr()
cnt = cnt +  1 
If Len(x) >  0  Then .Add x,  0 
Next
End With
wr_:
Cells(cnt,  2 ).Value = Cells(cnt,  1 ).Value
Debug.Print x
Resume Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 17:30
    #36535225
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Аааа - Debug.Print x лишнее, уберите.... чтоб не мусорило.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 17:32
    #36535232
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Ну а если дубликаты не нужны, то в конце так:

Код: plaintext
1.
2.
3.
4.
5.
wr_:
Cells(cnt,  2 ).Value = Cells(cnt,  1 ).Value
Cells(cnt,  1 ).Value = ""
Resume Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 17:50
    #36535271
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
domovoi, Вы можете показать на примере (в файле Excel) таблички - "вот так есть", "вот так хочу"?
Или нарисовать их вместо Вас? Или так и гадать, чего же Вам хочется?
Вопрос простой, а за 4 часа Вы так и не получили требуемого.

-"Вы и кушать за меня будете?"
-"Ага!"
(Из мультика про Вовочку-лентяя).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 18:00
    #36535307
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
И всё же, продолжу, раз начал :)
вариант получше - пробегает только по заполненному диапазону:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Sub copy_nonuniq2()

Dim cnt As Long
Dim source_ As Object
Dim sLastRow&
Dim cc As Range

Set source_ = Sheets( 1 )
sLastRow = source_.Cells(Rows.Count,  1 ).End(xlUp).Row 'привязка к 1 колонке
Dim ra As Range: Set ra = source_.Range(source_.[a1], source_.Cells(sLastRow,  1 )) 'привязка к 1 колонке

On Error GoTo wr_
With CreateObject("Scripting.Dictionary")
For Each cc In ra.Cells
cnt = cnt +  1 
If Len(cc.Value) >  0  Then .Add cc.Value,  0 
Next
End With
Exit Sub
wr_:
Cells(cnt,  2 ).Value = Cells(cnt,  1 ).Value
Cells(cnt,  1 ).Value = ""
'Debug.Print x
Resume Next

End Sub

Даже если и не то, что надо автору, оно своё дело делает :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 18:12
    #36535343
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Снова поторопился, остатки первого кода остались, намного лучше теперь так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub copy_nonuniq3()

Dim source_ As Object
Dim sLastRow&
Dim cc As Range

Set source_ = Sheets( 1 )
sLastRow = source_.Cells(Rows.Count,  1 ).End(xlUp).Row 'привязка к 1 колонке
Dim ra As Range: Set ra = source_.Range(source_.[a1], source_.Cells(sLastRow,  1 )) 'привязка к 1 колонке

On Error GoTo wr_
With CreateObject("Scripting.Dictionary")
For Each cc In ra.Cells
If Len(cc.Value) >  0  Then .Add cc.Value,  0 
Next
End With
Exit Sub
wr_:
Cells(cc.Row,  2 ).Value = Cells(cc.Row,  1 ).Value
Cells(cc.Row,  1 ).Value = ""
Resume Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 20:23
    #36535557
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
domovoi,

посмотри пример. Думаю, это то, что тебе нужно. Подработаешь под свою задачу в части задания диапазона, листа и т.п. Как ты смог объяснить свою проблему, такой ответ и получаешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 20:26
    #36535560
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
А пример-то и забыл!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 22:11
    #36535691
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
zchvvdomovoi,

посмотри пример. Думаю, это то, что тебе нужно. Подработаешь под свою задачу в части задания диапазона, листа и т.п. Как ты смог объяснить свою проблему, такой ответ и получаешь.не, ну это уже слишком. зачем такое городить, если можно формулу написать. и быстрее в разы и для не подготовленного пользователя очевиднее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2010, 23:24
    #36535766
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
PlanB, мой код на 65535 ячеек перенёс 40 неуникальных за 5,875 сек. Но машинка не быстрая, Celeron 2.02. Сколько времени будут считаться формулы? Их ещё надо занести, затем преобразовать в значения, если дальше надо с этими данными работать. А если надо найденное убрать из первого столбца?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 17:29
    #36537787
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
PlanB,

я не городил специально для топик-стартера. Просто в своих решениях своих же задач подобрал нечто близкое к теме и минимально переработал под нее. Формулами не пользуюсь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 17:39
    #36537811
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
Между прочим, всего около 4 сек на столбце в 65535 ячеек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 17:53
    #36537846
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
zchvv Формулами не пользуюсь.
Зря.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 18:22
    #36537948
-nail-
-nail-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
zchvvdomovoi,

...Как ты смог объяснить свою проблему, такой ответ и получаешь.
в точку...

primer1 что ль сортировку делает?)))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.03.2010, 18:27
    #36537961
-nail-
-nail-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сравнить столбцы в экселе?
... хм... отсортировал, нажал в примере1 правой-левой-левой... вроде ничего не поменялось...так задумано?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сравнить столбцы в экселе? / 25 сообщений из 26, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 548ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178324]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 77ms
get tp. blocked users:
 2ms
others: 226ms
total:  548ms
x
x
Закрыть


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