Добрый день,
очень нужна функция подобная ВПР, но по двум значениям.
Пример,
Таблица1
Область Город Значение
Владимирская Муром 55
Владимирская Ковров 36
Ивановская Шуя 5
Ивановская Палех 4
Нужно выбрать в Таблицу2 значения из Таблицы1 по наименованию области и городу.
Заранее большое спасибо!
ВПР по двум значениям
Модератор: Naeel Maqsudov
Может, сначала в отдельной таблице сделать столбец "Область&Город", а потом уже применить ВПР к новой таблице? Или я не правильно поняла вопрос?
Добрый вечер!linka0811 писал(а): Нужно выбрать в Таблицу2 значения из Таблицы1 по наименованию области и городу.
Заранее большое спасибо!
Вообще-то не совсем понятно какие именно критерии для выбора значений. Вам необходимо определить уникальный критерий для выбора необходимых Вам значений. Вообще функция ВПР "ищет" значения согласно одному критерию. Например, в таблице список, который состоит из n-го количества строк и столбцов. И в этом списке неоходимо выбрать какие-либо значения согласно определенному уникальному ключу. Допустим в столбце А - список городов, в столбце В - район 1, в столбце С - район 2 и т.д. Из этой таблицы можно выбрать все названия районов, которые относятся к конкретному городу.
Я думаю, если бы Вы выложили пример, то легче Вам будет помочь.
Смотрите функции из категории "Работа с базой данных"
Спасибо большое всем, пока ограничился добавлением столбца с объединением города и области.
SMOTRI I BOLDEJ
Sheet1 ento 1
Sheet1 ento 2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For n = 1 To 10
If Worksheets("1").Range("A" & n).Value = Worksheets("2").Range("A" & n).Value Then
Worksheets("1").Range("B" & n).Value = Worksheets("2").Range("B" & n).Value
Worksheets("1").Range("C" & n).Value = Worksheets("2").Range("C" & n).Value
' i tak dalee i tak dalee
End If
Next n
End Sub
Sheet1 ento 1
Sheet1 ento 2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For n = 1 To 10
If Worksheets("1").Range("A" & n).Value = Worksheets("2").Range("A" & n).Value Then
Worksheets("1").Range("B" & n).Value = Worksheets("2").Range("B" & n).Value
Worksheets("1").Range("C" & n).Value = Worksheets("2").Range("C" & n).Value
' i tak dalee i tak dalee
End If
Next n
End Sub
Ser Artur
UPS
Sheet1 ento 1
Sheet2 ento 2
Dannye chitajutsja iz Worksheets("2")
i Vstavljajutsja v Worksheets("1").
Sheet1 ento 1
Sheet2 ento 2
Dannye chitajutsja iz Worksheets("2")
i Vstavljajutsja v Worksheets("1").
Ser Artur
SunKiSSka можно без ВПР вставить код для листа и при каждом действии на листе он будет ВПР-еть
Ser Artur