Questione : Accedere alla domanda

Ciao tutti, sto avendo una punta di difficoltà provare a calcolare fuori una domanda nell'accesso e domandarmi se chiunque ha certa idea.  Ho faccio la tabella di domanda che ha i nomi di politica e le date di exp e tipi di politica utilizzati in esso.  Ho filtrato fuori tutti i nomi di politica che hanno un precipitare nel nome ed hanno una data di exp superiore o uguale a 8/1/2010.  Comunque nella tabella la domanda esamina il campo di REC che ha duplicati elencati, perché potrebbero avere più di una politica con un tipo differente di politica.  Il problema è io soltanto vuole la tabella che la domanda fa per mostrare le politiche che hanno soltanto un nome di politica (REC) che accade una volta.  Sono stato detto che questo potrebbe essere fatto tutti in una domanda, ma non posso calcolare fuori come farla.  Grazie per tutto l'aiuto che dovete offer. class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di policy-query.JPG il class= (69 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
colpo di schermo della domanda così com'è
target= " _blank " " del href= " /images/339301/policy-query.JPG " " del attachmentLink del class= di larghezza dello style= del colpo “dello src=„ /images/t339301/policy-query.JPG„ di schermo della domanda così com'è„/> </a> </div> il class= di </div><div
del >
class= del

Risposta : Accedere alla domanda

Se sono tutti nel D.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

X secondaria ()
  
rFind fioco come gamma

Application.ScreenUpdating = falso

Con gli strati (“riconciliare„). Colonne (4)
    Regolare il rFind =. Trovare (che cosa: = " indicazione ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Se non il rFind allora è niente
        Fare
            rFind.EntireRow.Delete
            Regolare il rFind =. Trovare (che cosa: = " indicazione ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
        Collegare fino a che il rFind non sia niente
    Concluder se
Concluder con
     
Application.ScreenUpdating = allineano
     
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us