Сравнение двух колонок (Excel) / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнение двух колонок (Excel)

10 сообщений из 10, страница 1 из 1

Сравнение двух колонок (Excel)

#34393714

Gadeyka

Гость

Есть задача: нужно сравнить две колонки в экселе и что важное, нужно организовать так, чтобы значения колонки А сравнивались со значениями в колонке В, если значения равны, то они перемещаются в колонку С.

Для примера, в колонке А есть цифра 5 и в колонке В есть цифра 5, т.е. они равны. Нужно чтоб 5-ки переместились в колонку С и так по порядку.
Заранее благодарен.

Код: plaintext

1.
2.
3.
4.
5.
6.

A	B	C
________________
 3 	 2 	
 5 	 3 	
 8 	 5 	
	 1 	
	 6

...

Рейтинг:

0 / 0

15.03.2007, 15:21:19

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34393802

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

в колонке С вставить формулу =IF(A1=B1;B1;"")

...

Рейтинг:

0 / 0

15.03.2007, 15:36:39

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34393806

andMegaM

Участник

Откуда: ***

Сообщения: 478

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
   For r =  1  To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(i,  1 ).Value = Cells(r,  2 ).Value Then Cells(i,  3 ).Value = Cells(i,  1 ).Value
   Next r
Next i

Может так поможет

...

Рейтинг:

0 / 0

15.03.2007, 15:37:28

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34394024

andMegaM

Участник

Откуда: ***

Сообщения: 478

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
v_Counter =  0 
   For j =  1  To ActiveCell.SpecialCells(xlLastCell).Row
       If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then Cells(i,  3 ).Value = Cells(i,  1 ).Value
       If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then v_Counter = v_Counter +  1 
       Cells(i,  4 ).Value = v_Counter
   Next j
Next i

For r =  1  To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(r,  4 ).Value <>  0  Then Cells(r,  4 ).Value = Cells(r,  1 ).Value & " " & "В колонке B встречается" & " " & Cells(r,  4 ).Value & " " & "раз"
If Cells(r,  4 ).Value =  0  Then Cells(r,  4 ).Value = Cells(r,  1 ).Value & " " & "В колонке B не встречается ни разу"
Next r

...

Рейтинг:

0 / 0

15.03.2007, 16:39:16

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34394044

Gadeyka

Гость

Макрос который запостил andMegaM подходит, а можно ли, чтоб макрос не копировал, а перемещал найденные равные значения в колонку С?

...

Рейтинг:

0 / 0

15.03.2007, 16:45:05

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34394398

Gadeyka

Гость

GadeykaПри этом вырезанные значения замещал NULL'ом.

...

Рейтинг:

0 / 0

15.03.2007, 18:21:27

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34395046

andMegaM

Участник

Откуда: ***

Сообщения: 478

Рейтинг: 0 / 0

Попробуй этот код. Конечно он кривоватый, но вроде бы работает

Код: plaintext

1.
2.
3.
4.
5.
6.

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
   For j =  1  To ActiveCell.SpecialCells(xlLastCell).Row
      If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then Cells(i,  3 ).Value = Cells(i,  1 ).Value
      If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then Cells(j,  2 ).Value =  0 
   Next j
     If Cells(i,  1 ).Value = Cells(i,  3 ).Value Then Cells(i,  1 ).Value =  0 
Next i

...

Рейтинг:

0 / 0

16.03.2007, 08:41:02

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34403836

Программист Дёня

Участник

Откуда: Невиннка

Сообщения: 161

Рейтинг: 0 / 0

andMegaMПопробуй этот код. Конечно он кривоватый, но вроде бы работает

Код: plaintext

1.
2.
3.
4.
5.
6.

For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
   For j =  1  To ActiveCell.SpecialCells(xlLastCell).Row
      If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then Cells(i,  3 ).Value = Cells(i,  1 ).Value
      If Cells(i,  1 ).Value = Cells(j,  2 ).Value Then Cells(j,  2 ).Value =  0 
   Next j
     If Cells(i,  1 ).Value = Cells(i,  3 ).Value Then Cells(i,  1 ).Value =  0 
Next i

а не проще ли посредством функции ЕСЛИ это сделать легко и просто, да ещё автозаполнение применить?

...

Рейтинг:

0 / 0

20.03.2007, 18:03:13

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34404007

KL (XL)

Участник

Откуда: Madrid

Сообщения: 2 087

Рейтинг: 0 / 0

Программист Дёняа не проще ли посредством функции ЕСЛИ это сделать легко и просто, да ещё автозаполнение применить?

Смотря что для тебя проще ;-)

Можно попробовать след формулу массива (работает только с числами, не любит пустые ячейки и не требует ввода через CTRL+SHIFT+ENTER):

=НАИБОЛЬШИЙ(ЕСЛИ(ЧАСТОТА($B$1:$B$27;$A$1:$A$27)>0;$A$1:$A$27);СТРОКА(A1))

Но она сложна для понимания, а главное довольно ресурсоемкая в случае с длинными списками.

Естественно, ничего невозможного нет, и можно усложнить формулу для большей универсальности, но... она вполне может задушить работу книги с большим кол-вом данных :-)

KL
[MVP - Microsoft Excel]

...

Рейтинг:

0 / 0

20.03.2007, 19:01:06

| Ответить | Цитировать | Написать

Сравнение двух колонок (Excel)

#34404668

Программист Дёня

Участник

Откуда: Невиннка

Сообщения: 161

Рейтинг: 0 / 0

KL (XL) Программист Дёняа не проще ли посредством функции ЕСЛИ это сделать легко и просто, да ещё автозаполнение применить?

Смотря что для тебя проще ;-)

Можно попробовать след формулу массива (работает только с числами, не любит пустые ячейки и не требует ввода через CTRL+SHIFT+ENTER):

=НАИБОЛЬШИЙ(ЕСЛИ(ЧАСТОТА($B$1:$B$27;$A$1:$A$27)>0;$A$1:$A$27);СТРОКА(A1))

Но она сложна для понимания, а главное довольно ресурсоемкая в случае с длинными списками.

Естественно, ничего невозможного нет, и можно усложнить формулу для большей универсальности, но... она вполне может задушить работу книги с большим кол-вом данных :-)

KL
[MVP - Microsoft Excel]

для этого макросы и существуют ,чтоб автоматизировать работу с большим объёмом данных

...

Рейтинг:

0 / 0

21.03.2007, 09:14:12

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнение двух колонок (Excel)

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=34395046&tid=2183267]:	0ms
get settings:	6ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	48ms
get topic data:	7ms
get forum data:	2ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	204ms

total:	315ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы