Сравнение данных и их замена - Microsoft Office Excel

Anvagus · 20.11.2011, 00:44

Помогите пожалуйста со сравнение данных и их заменой, файл прилагается.

kuklp · 20.11.2011, 01:05

Тупо так:

Код:

Public Sub www()
    Dim a(), b(), i&, j&
    a = [a3].CurrentRegion.Value
    b = [d3].CurrentRegion.Value
    For i = 1 To UBound(a)
        For j = 1 To UBound(b)
            If a(i, 1) = b(j, 1) Then a(i, 1) = b(j, 2)
        Next
    Next
    [a3].CurrentRegion.Value = a
End Sub

Anvagus · 20.11.2011, 01:14

А можно ли это реализовать формулами?

Hugo121 · 20.11.2011, 01:17

Формула не может изменить одно значение ячейки на другое.

kuklp · 20.11.2011, 01:20

Цитата:

Сообщение от Anvagus

А можно ли это реализовать формулами?

А можно это сразу указывать, чтоб люди на Вас время зря не тратили?

Anvagus · 20.11.2011, 01:21

А с помощью массивов или функция ВПР, макрос не совсем удобен т.к. результат вставляется в отчет, а количество строк в отчете меняется.

Hugo121 · 20.11.2011, 01:25

Массивы немакросы - это как?

IgorGO · 20.11.2011, 01:41

в Н3 вот это:

Код:

=ЕСЛИ(СЧЁТЕСЛИ(D:D;A3);ИНДЕКС(E:E;ПОИСКПОЗ(A3;D:D;));A3)

vikttur · 20.11.2011, 01:45

Код:

=ВПР(A3;$D$3:$E$6;2;)

Потянули вниз.
Выделии полученное, Скопировали, меню Правка-Спецвставка-Значения-ОК.
Скопировали, вставили в исходный диапазон. Или просто удалили исходный.

Anvagus · 20.11.2011, 02:31

Всем Большое спасибо!!! Выручили!!

20.11.2011, 01:17	#4
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Формула не может изменить одно значение ячейки на другое. webmoney: E265281470651 Z422237915069 R418926282008

20.11.2011, 01:25	#7
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Массивы немакросы - это как? webmoney: E265281470651 Z422237915069 R418926282008

20.11.2011, 01:41	#8
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в Н3 вот это: Код: `=ЕСЛИ(СЧЁТЕСЛИ(D:D;A3);ИНДЕКС(E:E;ПОИСКПОЗ(A3;D:D;));A3)` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

20.11.2011, 01:45	#9
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	Код: `=ВПР(A3;$D$3:$E$6;2;)` Потянули вниз. Выделии полученное, Скопировали, меню Правка-Спецвставка-Значения-ОК. Скопировали, вставили в исходный диапазон. Или просто удалили исходный.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сравнение и замена значений в двух таблицах Excel	shalinoleg	Microsoft Office Excel	2	10.06.2010 09:53
Сравнение данных	игрок	Microsoft Office Excel	4	10.02.2010 13:19
Сравнение данных	GX_h10	SQL, базы данных	1	29.12.2009 12:49
Сравнение данных	Terikon	Общие вопросы Delphi	21	14.04.2009 19:56
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL	DorianLeroy	Фриланс	8	18.02.2009 18:52

20.11.2011, 01:14	#3
Anvagus Регистрация: 19.11.2011 Сообщений: 7	А можно ли это реализовать формулами?

20.11.2011, 01:21	#6
Anvagus Регистрация: 19.11.2011 Сообщений: 7	А с помощью массивов или функция ВПР, макрос не совсем удобен т.к. результат вставляется в отчет, а количество строк в отчете меняется.

20.11.2011, 02:31	#10
Anvagus Регистрация: 19.11.2011 Сообщений: 7	Всем Большое спасибо!!! Выручили!!