Сравнить два листа excel / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнить два листа excel

17 сообщений из 17, страница 1 из 1

Сравнить два листа excel

#37399574

ligash

Гость

Есть два листа excel с данными (email-адреса).
Один главный, он содержит адреса для рассылки. В нём могут содержаться адреса тех, кто отписался.
Второй вспомогательный, он содержит всех подписчиков, которые отписались.
Подскажите, возможно ли "очистить" первый список от тех кто отписался, используя второй список?
То есть, необходимо, чтобы программа проанализировала два листа, определила содержатся ли в первом листе email-адреса имеющиеся во втором и удалил их (прямо со строками желательно).

...

Рейтинг:

0 / 0

17.08.2011, 14:18

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399681

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

ligash,
то именно у вас не получается :
1. Анализ листов
2. Поиск совпадений
3. Удаление
?

...

Рейтинг:

0 / 0

17.08.2011, 15:01

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399685

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

ligashЕсть два листа excel с данными (email-адреса).
Один главный, он содержит адреса для рассылки. В нём могут содержаться адреса тех, кто отписался.
Второй вспомогательный, он содержит всех подписчиков, которые отписались.
Подскажите, возможно ли "очистить" первый список от тех кто отписался, используя второй список?
То есть, необходимо, чтобы программа проанализировала два листа, определила содержатся ли в первом листе email-адреса имеющиеся во втором и удалил их (прямо со строками желательно).проще формировать третий лист, в котором будут имена уникальные адреса для рассылки

...

Рейтинг:

0 / 0

17.08.2011, 15:03

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399763

ligash

Гость

big-duke, ничего не получается так как не знаю как делать:)
Если у вас есть опыт, было бы здорово, если бы вы им поделились со мной.
По сути, нужно удалить в первом листе адреса, имеющиеся во втором.
К примеру:
До
1 лист 2 лист
123@mail.ru 321@mail.ru
12@mail.ru 12@mail.ru
1@mail.ru 21@mail.ru

После:
1 лист 2 лист
123@mail.ru 321@mail.ru
1@mail.ru 12@mail.ru
21@mail.ru

...

Рейтинг:

0 / 0

17.08.2011, 15:31

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399766

ligash

Гость

PlanB, Отличное решение, а как его возможно реализовать?

...

Рейтинг:

0 / 0

17.08.2011, 15:32

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399846

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

ligashbig-duke, ничего не получается так как не знаю как делать:)
Если у вас есть опыт, было бы здорово, если бы вы им поделились со мной.
По сути, нужно удалить в первом листе адреса, имеющиеся во втором.
К примеру:
До
1 лист 2 лист
123@mail.ru 321@mail.ru
12@mail.ru 12@mail.ru
1@mail.ru 21@mail.ru

После:
1 лист 2 лист
123@mail.ru 321@mail.ru
1@mail.ru 12@mail.ru
21@mail.ruчёт я не понял, а откуда в примере после на 1 листе взялся адрес 21@mail.ru, если надо только удалить все, что есть на 2 листе из 1?
вероятно "после" должен состоять из
123@mail.ru
1@mail.ru

...

Рейтинг:

0 / 0

17.08.2011, 16:06

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399858

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

простая формула выглядит так.
=ЕСЛИ(ЕОШИБКА(ВПР(A3;$C$3:$C$5;1;0)="ИСТИНА");A3;"")
Она без сортировки результатов.
в столбике A - данные 1 листа
в столбике С - данные 2 листа

...

Рейтинг:

0 / 0

17.08.2011, 16:12

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37399948

ligash

Гость

PlanB, да, всё правильно, просто хотел поставить два столбца, а после отправки отформатировалось видимо и всё съехало

...

Рейтинг:

0 / 0

17.08.2011, 16:47

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400003

скукотища

Гость

ligash,
в обоих случаях процедуры должны быть в обрабатываемой книге,
книга должна быть предварительно сохранена.
Поменяйте названия листов "Лист1", "Лист2" на соответствующие Вашим

фильтрация на месте

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Sub uu22()
Dim cn, rs, w
Dim scn$, sq$, k&

scn = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Data Source=" _
    & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
    
sq = "select t1.f1 from" _
 & " (select f1 from (select * from [Лист1$A1:A65500])) as t1" _
 & " left join" _
 & " (select f1,f3 from (select * from [Лист2$A1:A65500])) as t2" _
 & " on t1.f1=t2.f1" _
 & " where t1.f1 is not null and t2.f1 is null"
    
Set cn = CreateObject("adodb.connection"): cn.Open scn
Set rs = CreateObject("adodb.recordset"): rs.Open sq, cn
sq = rs.GetString: rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

w = Split(sq, vbCr)
k = UBound(w) +  1 
With ThisWorkbook.Worksheets("Лист1")
.Cells.Clear
.Range(.Cells( 1 ,  1 ), .Cells(k,  1 )) = w
End With
Erase w

End Sub

копирование разницы в новую книгу

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

Sub uu2()
Dim cn, rs, w
Dim scn$, sq$, k&

scn = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Data Source=" _
    & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
    
sq = "select t1.f1 from" _
 & " (select f1,f2,f4 from (select * from [Лист1$A1:A65500])) as t1" _
 & " left join" _
 & " (select f1,f3 from (select * from [Лист2$A1:A65500])) as t2" _
 & " on t1.f1=t2.f1" _
 & " where t1.f1 is not null and t2.f1 is null"
    
Set cn = CreateObject("adodb.connection"): cn.Open scn
Set rs = CreateObject("adodb.recordset"): rs.Open sq, cn

With Application
k = .SheetsInNewWorkbook
.SheetsInNewWorkbook =  1 
Set w = .Workbooks.Add.Worksheets( 1 )
.SheetsInNewWorkbook = k
End With
w.[A1].CopyFromRecordset rs
set w=nothing
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

...

Рейтинг:

0 / 0

17.08.2011, 17:10

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400014

скукотища

Гость

ligash,
упс.... запросы не поправил нормально. Должны быть такие (в обеих процедурах одинаковые):

Код: plaintext

1.
2.
3.
4.
5.
6.

sq = "select t1.f1 from" _
 & " (select f1 from (select * from [Лист1$A1:A65500])) as t1" _
 & " left join" _
 & " (select f1 from (select * from [Лист2$A1:A65500])) as t2" _
 & " on t1.f1=t2.f1" _
 & " where t1.f1 is not null and t2.f1 is null"

...

Рейтинг:

0 / 0

17.08.2011, 17:14

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400144

ligash

Гость

PlanBпростая формула выглядит так.
=ЕСЛИ(ЕОШИБКА(ВПР(A3;$C$3:$C$5;1;0)="ИСТИНА");A3;"")
Она без сортировки результатов.
в столбике A - данные 1 листа
в столбике С - данные 2 листа

Простите, я чайник:)
Итак, вот у меня в excel два листа
в столбике A - данные 1 листа
в столбике С - данные 2 листа
Куда формулу вставлять? в B и протащить до конца??
Извиняюсь, если вопрос глупый.

...

Рейтинг:

0 / 0

17.08.2011, 18:18

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400155

kuklp

Гость

ligash, вариант без тяжелой артиллерии - в модуль листа3:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Sub www()
    On Error Resume Next: Application.ScreenUpdating = False
    Dim sh As Worksheet, coll As New Collection, ra As Range, cell As Range, item
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> Me.Name Then
            Set ra = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp))
            For Each cell In ra.Cells
                If Len(Trim(cell)) Then coll.Add cell.Value, cell.Value
            Next cell
        End If
    Next sh
    Me.Range(Me.[a2], Me.Cells(Me.Rows.Count,  1 ).End(xlUp)).ClearContents ' очистка
    For Each item In coll
        Me.Range("a" & Me.Rows.Count).End(xlUp).Offset( 1 ) = item
    Next
    Me.Range(Me.[a2], Me.Range("a" & Me.Rows.Count).End(xlUp)).Sort Me.Range("a1").End(xlDown), xlAscending, , , , , , xlYes
End Sub

...

Рейтинг:

0 / 0

17.08.2011, 18:29

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400168

ligash

Гость

kuklp,
Прошу Вас, объясните, пожалуйста, чайнику, куда вставлять этот код?))
Как выстроить столбцы с данными при этом?)

Спасибо!

...

Рейтинг:

0 / 0

17.08.2011, 18:35

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400189

-O_o-

Участник

Откуда: Киев

Сообщения: 920

Рейтинг: 0 / 0

если правильно понял

...

Рейтинг:

0 / 0

17.08.2011, 18:54

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400196

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

по есть двойной щелчок мышей по выделенному (на рисунке синим) листу и Вы в модуле

...

Рейтинг:

0 / 0

17.08.2011, 19:00

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37400197

kuklp

Гость

ligash, я же написал, вставлять в модуль листа 3. Данные будут браться из листов 1 и 2, первых столбцов. Вывод в лист 3. Вообще нужно свой файл-пример выкладывать, чтоб не приходилось Вам на пальцах объяснять. Гляньте еще вариант с удалением строк в листе 1, но работать будет не ниже, чем в 2007 версии:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Sub www()
    On Error Resume Next: Application.ScreenUpdating = False
    Dim sh As Worksheet, coll As New Collection, ra As Range, c As Range, item, a(), i&
    Set sh = Sheets( 2 ): i =  1 
    Set ra = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp))
    For Each c In ra.Cells
        If Len(Trim(c)) Then coll.Add c.Value, c.Value
    Next
    ReDim a( 1  To coll.Count)
    For Each item In coll: a(i) = item: i = i +  1 : Next
    Set ra = Sheets( 1 ).UsedRange
    With ra
        .AutoFilter Field:= 1 , Criteria1:=a, Operator:= 7 
        .Offset( 1 ).SpecialCells( 12 ).EntireRow.Delete
        .Sort ra, xlAscending, , , , , , xlYes
    End With: ra.Parent.AutoFilterMode =  0 
End Sub

...

Рейтинг:

0 / 0

17.08.2011, 19:00

| Ответить | Цитировать | Написать

Сравнить два листа excel

#37401813

ligash

Гость

kuklp,
Огромное спасибо! Всё сработало. Только вот так и не догадался, как использовать это, а просто взял ваш файл, открыл его параллельно с нужным мне и в своём открыл макросы, он увидел макрос из вашего файла и отработал по нему в моем файле. Может запутанно объяснил, но как есть)
В общем в любом случае, спасибо, теперь просто пользуюсь Вашим файлом для таких ситуаций!

...

Рейтинг:

0 / 0

18.08.2011, 15:50

| Ответить | Цитировать | Написать

17 сообщений из 17, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнить два листа excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=37400168&tid=2176571]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	52ms
get topic data:	11ms
get forum data:	3ms
get page messages:	59ms
get tp. blocked users:	1ms
others:	233ms

total:	388ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы