Вопрос : Первенствуйте макрос уничтожил бы рядки если номера удостоверения личности сопрягают

Я имею workbook Эксел с 2 рабочий лист, котор содержать им-и-адресует данные.  В обоих рабочий лист, первая колонка содержит номера удостоверения личности.  Я хотел был бы макрос уничтожает рядок от ПЕРВОГО рабочий лист если будет сопрягая номер удостоверения личности в ВТОРОЙ дороге worksheet.

One по возможности сделать это должно было бы приложить данные от второго рабочий лист к первому рабочий лист и после этого уничтожить ОБА рядка, то если будет дубликат pair.

Thanks заранее для любого help. class=

Ответ : Первенствуйте макрос уничтожил бы рядки если номера удостоверения личности сопрягают

Это сделает работу:
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:
29:
30:
31:
32:
33:

Вариант точный
Общественная подводная лодка ClearSheet1 ()
    Тусклый s1 как рабочий лист
    Тусклое s2 как рабочий лист
    
    Установите s1 = ActiveWorkbook.Sheets (1)
    Установите s2 = ActiveWorkbook.Sheets (2)
    
    Затемните s1Row как интежер: s1Row = 1
    Пока s1.Cells (s1Row, 1).FormulaR1C1 <> ""
        Тусклое удостоверение личности как шнур: удостоверение личности = s1.Cells (s1Row, 1).FormulaR1C1
        Если IsPresent (s2, удостоверение личности) после этого
            s1.Rows (CStr (s1Row) & «: » & CStr (s1Row)). Перенос Delete: =xlUp
        Еще
            s1Row = s1Row + 1
        Закончитесь если
    Wend
    
Закончите подводную лодку

Общественная функция IsPresent (s как рабочий лист, удостоверение личности как шнур) как булевско
    Тусклый рядок как интежер: рядок = 1
    Тусклый результат как булевско: результат = ложно
     
    Сделайте пока s.Cells (рядок, 1).FormulaR1C1 <> ""
        Если s.Cells, то (рядок, 1).FormulaR1C1 = удостоверение личности после этого
            результат = True
            Выход делает
        Закончитесь если
        рядок = рядок + 1
    Петля
    IsPresent = результат
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us