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

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

08.09.2018, 11:07. Показов 9457. Ответов 2
Метки нет (Все метки)

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

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

Миниатюры
Поиск одинаковых значений на разных листах  
Вложения
Тип файла: xlsx id.xlsx (10.0 Кб, 18 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.09.2018, 11:07
Ответы с готовыми решениями:

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

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

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

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

2
1850 / 1172 / 189
Регистрация: 27.03.2009
Сообщений: 4,511
08.09.2018, 11:42 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For i = 1 To ThisWorkbook.Worksheets.Count - 1
    Set ws = ThisWorkbook.Worksheets(i)
    lr = ws.Cells.SpecialCells(xlLastCell).Row
    lc = ws.Cells.SpecialCells(xlLastCell).Column
    For j = 2 To lr
        For k = i + 1 To ThisWorkbook.Worksheets.Count
            With ThisWorkbook.Worksheets(k).Range("a2:a" & CStr(ThisWorkbook.Worksheets(k).Cells.SpecialCells(xlLastCell).Row))
                Set c = .Find(ws.Cells(j, 1), LookIn:=xlValues)
                If Not c Is Nothing Then
                    firstAddress = c.Address
                    Do
                        ws.Range(ws.Cells(j, 2), ws.Cells(j, lc)).Copy _
                        Destination:=ThisWorkbook.Worksheets(k).Cells(c.Row, 2)
                        Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> firstAddress
                End If
            End With
        Next k
    Next j
Next i
0
3206 / 956 / 222
Регистрация: 29.05.2010
Сообщений: 2,074
08.09.2018, 12:51 3
Лучший ответ Сообщение было отмечено Vityakill как решение

Решение

Как вариант:
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub pr2()
    With CreateObject("scripting.dictionary")
        For Each x In Sheets
            a = x.UsedRange.Columns(1).Value
            For Each el In a
                .Item(el) = .Item(el) & IIf(.Item(el) = "", "", ", ") & x.Name
            Next
        Next
        For Each x In Sheets
            For Each c In x.UsedRange.Columns(1).Cells
                If c <> "id" Then
                    If InStr(1, .Item(c.Value), ",") <> 0 Then c.Offset(, 1) = .Item(c.Value)
                End If
            Next
        Next
    End With
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.09.2018, 12:51

Поиск и копирование определенных значений в определенные ячейки в листах книги
никогда не писал макросы. поверхностно знаю формулы. - задача такова: есть книга в ней...

Excel, поиск одинаковых строк в 2 разных таблицах
Доброго всем вечера. Возникла такая ситуация, необходимо в большой таблице (12 тысяч записей),...

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

Поиск одинаковых значений в массиве
Здравствуйте уважаемые. Есть одна задачка по поиску одинаковых значений в массиве и определения их...


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

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

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