Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
evil327
0 / 0 / 0
Регистрация: 16.03.2015
Сообщений: 5
#1

Как сравнить 2 таблицы по нескольким столбцам - VBA

06.06.2015, 12:31. Просмотров 1076. Ответов 3
Метки нет (Все метки)

Доброго времени суток.
Есть 2 на листах "In_data" и "One_price" нужно :
1. сравнить их сначала по столбцу "А" обе таблицы,
2. если найдено совпадение, тогда проверить для этой строки столбец "D" в листе "One_price"
3. если в выбранной ячейки текст "м3", тогда берем данные из листа "In_data" текущей строки и столбца "D", и переносим их в лист "One_price" текущей строки и столбец "E"
4. если в выбранной ячейки текст "м2", тогда берем данные из листа "In_data" текущей строки и столбца "E" и переносим их в лист "One_price" текущей строки и столбец "E"

test_001.xlsx
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2015, 12:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как сравнить 2 таблицы по нескольким столбцам (VBA):

Сравнить данные по нескольким столбцам одновременно - VBA
Всем привет, помогите подогнать на сравнение не только по столбцу "А", а по "A:B" следующий пример Sub Main() Dim i As...

Сортировка строк таблицы по нескольким столбцам - VBA
Доброго времени суток. Имеется код сортировки по одному столбцу. Sheets("Общие списки").Copy After:=Sheets("Общие списки") ...

Сортировка по нескольким столбцам - VBA
Здравствуйте, есть хорошая функция для сортировки по нескольким столбцам: Sub ColorSort() Columns("A:D").sort key1:=Range("A2"),...

Поиск дубликатов строк по нескольким столбцам - VBA
Добрый день уважаемые форумчане! Имеется excel файл с двумя листами X и Y. Лист Y содержит 13 столбов (в скором времени их станет...

Как сравнить таблицы в которой есть пустые строки? - VBA
Доброго времени суток! Нужна помощ, пишу сразу, что не программист, но и программа по идее не сложная должна быть. Суть в следующем: нужно...

Как сравнить 2 таблицы с ценами, обозначить изменения и внести поправки. - VBA
Просьба помочь в решении парочки несложных задач на ВБА (слабак я в ВБА), инфо в файле. Смысл в следующем: Есть длинный список...

3
Fairuza
Модератор
5179 / 2607 / 464
Регистрация: 23.11.2010
Сообщений: 8,631
06.06.2015, 16:25 #2
Вариант в Е1 и протянуть вниз
Код
=ВЫБОР(ЕСЛИ(D1="м3";1;2);ИНДЕКС(In_data!$D$1:$D$8;ПОИСКПОЗ(A1;In_data!$A$1:$A$8;0));ИНДЕКС(In_data!$E$1:$E$8;ПОИСКПОЗ(A1;In_data!$A$1:$A$8;0)))
0
Alex77755
10604 / 3206 / 525
Регистрация: 13.02.2009
Сообщений: 9,419
06.06.2015, 16:35 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Вариант с макросом:
в модуль код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Sub QWERT()
Dim T, LR, D(), P(), R, OD: Set OD = CreateObject("Scripting.Dictionary")
With Лист1
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
    P = .Range("A1:E" & LR).Value
End With
For R = 1 To UBound(P)
    OD(P(R, 1) & "м2") = P(R, 5)
    OD(P(R, 1) & "м3") = P(R, 4)
Next R
With Лист2
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
    For R = 1 To LR
        T = .Cells(R, 1).Value & .Cells(R, 4).Value
        If OD.Exists(T) Then .Cells(R, 5) = OD(T)
    Next R
End With
End Sub
1
evil327
0 / 0 / 0
Регистрация: 16.03.2015
Сообщений: 5
07.06.2015, 10:04  [ТС] #4
Спасибо огромное за скрипт.
0
07.06.2015, 10:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2015, 10:04
Привет! Вот еще темы с ответами:

Как сравнить две таблицы и совпадающие элементы перенести в другую таблицу - VBA
Помогите пожалуйста! ни как не могу сообразить! Необходимо написать макрос который сравнивает две таблицы по столбцу и если элементы...

Макрос, распределяющий значения одной таблицы по столбцам другой - VBA
Доброе время суток, нужна ваша помощь, хотя бы что бы подсказали с чего начать). У меня стоит задача, создать макрос которые будет выбирать...

Скопировать и отсортировать данные по двух столбцам из одной таблицы в другую - VBA
Здравствуйте! Есть небольшая задача/практическая проблема, которую мне, лютому новичку в VBA решить пока не удалось. Итак: есть...

Сравнить столбцы таблицы одной книги со столбцами таблицы другой книги - VBA
Здравствуйте! такая проблемка... недавно только работаю с Basic, необходимо решить задачу, а возникли проблемы. Мне надо сравнить столбцы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.