Вопрос : Достигните вопроса

Здравствулте! все, я имею бит тревоги попытаться к давати в численном выражении вопрос в доступе и интересоваться если любое имеет некоторую идею.  Я имею делаю таблицу вопроса имеет имена политики и даты exp и типы политики используемые в ем.  Я фильтровал вне все имена политики имеют черточку в имени и имеют дату exp более большую чем или равный до 8/1/2010.  Тем ме менее в таблице вопрос смотрит поле REC имеет дубликаты зарегистрированные, потому что они smogли иметь больше чем одну политику с по-разному типом политики.  Проблемой будет я только хочет таблицу, котор вопрос делает для того чтобы показать политики только имеют имя политики (REC) происходит раз.  Я был сказан это smogло быть сделано все в одном вопросе, но я не могу давать в численном выражении как сделать ее.  Вы для любой помощи, котор вы offer. class= " lastRow
>Attachments " имени " class= class= " значение "
>

class= " fileInfo "
title= " " filename class= " policy-query.JPG (69 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
съемка экрана вопроса как он stands
target= " _blank " " href= " /images/339301/policy-query.JPG " " attachmentLink class= ширина style=  съемка «src=» /images/t339301/policy-query.JPG» экрана вопроса по мере того как он стоит»/>
        </a>
        </div>
   
   class= </div><div
>
class=

Ответ : Достигните вопроса

Если они все в D.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
Sub x ()
  
Тусклое rFind как ряд

Application.ScreenUpdating = ложно

С листами («примирите»). Колонки (4)
    Установите rFind =. Находите (: = " сигнал ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Если не rFind ничего после этого
        Сделайте
            rFind.EntireRow.Delete
            Установите rFind =. Находите (: = " сигнал ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
        Закрепите петлеть до тех пор пока rFind не быть ничего
    Закончитесь если
Закончитесь с
     
Application.ScreenUpdating = True
     
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us