Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 10.01.2014
Сообщений: 11
1

Проверка на совпадение значений ячеек на разных листах

21.03.2019, 13:19. Показов 691. Ответов 2
Метки нет (Все метки)

Доброго дня, есть файлик с двумя листами. нужно сравнить есть ли значения из столбца А(на листе 2), в столбце Е (на Листе 1). я сразу пробовала использовать стандартную функцию Excel "ПОИСКПОЗ", но столкнулась с проблемой что в ячейках на Листе 1, могут быть сразу два значения из столбца А(на листе 2). вот и подумала, может кто подскажет, как сделать подобный Макрос?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2019, 13:19
Ответы с готовыми решениями:

Сравнение значений ячеек на разных листах Excel и их перенос
Доброго Вам времени суток, уважаемие знатоки!!! Нужна Ваша помощь и подсказки. На листе 1 есть...

Сравнение ячеек на разных листах
на листе "Сводка" в столбце "А" номенклатуры товара, который есть в принципе. на листе "Foto" в...

Не работает поиск разных значений на разных листах
Доброго времени суток, дан код, он из учебника, по поиску разных значений на разных листах, но он...

Проверка соответствия данных на разных листах
Добрый вечер. Помогите решить задачу. Существует книга из 2х листов. Один база данных (Base),...

2
0 / 0 / 0
Регистрация: 10.01.2014
Сообщений: 11
21.03.2019, 13:22  [ТС] 2
Забыла вложит ьфайлик)
0
Вложения
Тип файла: xlsx Таблица для форума.xlsx (13.8 Кб, 4 просмотров)
1457 / 1005 / 319
Регистрация: 11.07.2014
Сообщений: 3,566
21.03.2019, 14:39 3
tigrona, в столбце С Листа2 будут номера строк Листа1 столбца Е, в которых встретилось значение А Листа2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Proba()
Dim Last1 As Integer, Last2 As Integer, I As Integer, J As Integer
Dim S As String, S1 As String
Sheets(1).Select
Last1 = Cells(Rows.Count, 1).End(xlUp).Row
Last2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To Last2
  S = Sheets(2).Cells(I, 1): S1 = ""
  For J = 2 To Last1
    If InStr(Cells(J, "E"), S) > 0 Then S1 = S1 & J & ", "
  Next
  If S1 <> "" Then Sheets(2).Cells(I, 3) = Left(S1, Len(S1) - 2)
Next
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2019, 14:39

Поиск одинаковых значений на разных листах
Доброго времени суток, я столкнулся с проблемой написании кода, который будет сравнивать два...

Поиск одинаковых значений на разных листах
Имеется книга со множеством листов. В листе есть столбец с id, этот самый id совпадает в некоторых...

Поиск и суммирование значений по условию в разных листах
Доброго времени суток! У меня в книге Экзеля есть около 80 листов, нужно переодически суммировать...

Ошибка при сравнении значений ячеек в разных книгах
Извините может кто подскажет, столкнулся с такой проблемой. У меня выгружаются в excel программно...


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

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

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