Поиск одинаковых строк

[Pavel55]

С функциями MATCH и VLOOKUP мы разобрались выше, теперь по поводу вставки строк

Вставляем пустую строку в 9 строку

Sub Макрос1()
    Rows("9").Insert Shift:=xlDown
End Sub

Вставляем 2 строки на место 9 и 10 строк

Sub Макрос2()
    Rows("9:10").Insert Shift:=xlDown
End Sub

[Demitriy]

Pavel, а можно сделать так чтобы Excel сортировал только парные элементы, т.е. если в таблице в первой части не будет строки серебро, а во второй не будет золота. Может программма сделать выборку только по Палладию и Платине, увидев, что других пар металлов нет?

[Pavel55]

Боюсь, тут я вам не помогу. Может другие участники форума

[Demitriy]

Все равно большое спасибо !!!

[дмидми]

Pavel55, где на этом форуме надо кликать "Спасибо"? Пока примите почти устную благодарность

Сообщение от Pavel55

...
ещё более укороченная запись:
- Application.Match - выподающего списка не будет, но работать функция будет...

Будет. Но не так! Записи Application.WorksheetFunction.Match и Application.Match НЕ ЭКВИВАЛЕНТНЫ как минимум в одном случае: если искомое значение не найдено.

При попытке выполнить тестовый код
»
Dim v As Variant
v=Application.WorksheetFunction.Mat ch("НенаходимаяСтрока", Selection, 0)
Debug.Print TypeName(v), v
«
генерируется «Run-time error '1004': Невозможно получить свойство Match класса WorksheetFunction».

Если же убрать WorksheetFunction, то:
1) ошибка не генерируется;
2) в Immediate Window увидим, что TypeName(v) равно "Error", а значение переменной v метод Debug.Print выводит как "Error 2042".


P.S. Ну это же надо: метод возвращает позицию в массиве, но тип значения - не Long, а Double! Ну да ладно, спишем на то, что на листе нет типа Long, все числа только Double. А васик - он всё стерпит

[ZORRO2005]

Demitriy,
почему Вас не устраивает сортировка?
А чтобы вставить пустую строку между металами
можно использовать Данные-Итоги

[arrivalcom]

ПОМОГИТЕ есть две таблицы:
1. Ф.И.О. и Адрес (1500 строк)
2. Ф.И.О. и Адрес (3000 строк)
Как сравнить две таблицы и найти одинаковае адреса? Таблицы в одной файле на разных листах Excel

[SAS888]

Как сравнить две таблицы и найти одинаковае адреса?

А зачем нам ФИО, если ищем только одинаковые адреса? Уточните задачу.

[arrivalcom]

Хм... уточняем... две таблицы постоянно поступают из разных источников. Цель - выбрать одинаковые адреса повторяющиеся в таблицах ПАРАМИ. Тоесть в таблицах есть повторяющиеся адреса и фамилии их надо найти и выбрать любым путем выделить скопировать на другой лист, отфильтровать фильтром. Пробовали обьеденить таб. в одну и поиграться с фильтром не чего не вышло. Можно было бы и по фамилиям но как видите одинаковые значения в ячейках есть только в адресе так как в первой имеется имя отчество полностью. Еще раз про цель выдернуть из таблиц вот каие строки..

Звонкова Любовь Павловна Ленина д.93 кв.48 (строка из 1 таблицы)
ЗВОНКОВА Л.П. Ленина д.93 кв.48 (строка из 2 таблицы)

Совпадений в таблицах всего около 20. Пока решили проблемму (если можно это так назвать) обьединили две таблицы в одну и отсортировали адрес по возврастанию и в ручную смотрели где в строках повторяются адреса. Это надо делать будет переодически

[SAS888]

Можно было бы и по фамилиям но как видите одинаковые значения в ячейках есть только в адресе так как в первой имеется имя отчество полностью.

Ну почему же? Можно и по фамилии.
Посмотрите вложение. Запустите макрос "Main". Будет создан лист "Совпадения", содержащий совпадающие ФИО в том виде, в котором Вы просили. Если нужно, то можно сравнивать и ФИО и адрес, и выводить значения только при совпадении обоих.
Если я правильно понял, то вложенный Вами файл - это лишь часть таблицы. Если так, то скорость выполнения задачи имеет важное значение.
Предлагаемый макрос работает не с ячейками листа, а с элементами массива. Это значительно ускоряет работу. При чем, если бы требовалось при обнаружении совпадения выводить значения только одного листа (любого), то время работы макроса можно было бы сократить еще примерно в 100 раз.