Cuestión : Tener acceso a la pregunta

Hola todos, estoy teniendo un pedacito del apuro el intentar imaginar una pregunta en el acceso y el preguntarse de si cualquier persona tiene cierta idea.  Tengo hago la tabla de la pregunta que tiene nombres de la política y fechas del exp y tipos de la política usados en él.  He filtrado hacia fuera cualquier nombre de la política que tenga una rociada en el nombre y tiene una fecha del exp mayor o igual 8/1/2010.  No obstante en la tabla la pregunta mira el campo del REC que tiene duplicados enumerados, porque podrían tener más de una política con un diverso tipo de la política.  El problema es yo quiere solamente la tabla que la pregunta hace para demostrar las políticas que tienen solamente un nombre de la política (REC) que ocurra una vez.  Me dijeron que esto se podría hacer todos en una pregunta, pero no puedo imaginar cómo hacerla.  Gracias por cualquier ayuda que usted tenga que offer. class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del policy-query.JPG el class= (69 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
tiro de pantalla de la pregunta tal y como están las cosas
target= " _blank " " del href= " /images/339301/policy-query.JPG " del " attachmentLink del class= del anchura del style= del tiro del “src=” /images/t339301/policy-query.JPG” de pantalla de la pregunta tal y como están las cosas”/> </a> </div> el class= de </div><div
del >
class= del

Respuesta : Tener acceso a la pregunta

Si están todos en la D.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

X secundario ()
  
rFind dévil como gama

Application.ScreenUpdating = falso

Con las hojas (“reconciliar”). Columnas (4)
    Fijar el rFind =. Encontrar (qué: = " señal ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Si no el rFind entonces no es nada
        Hacer
            rFind.EntireRow.Delete
            Fijar el rFind =. Encontrar (qué: = " señal ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
        Colocar hasta que el rFind no sea nada
    Terminar si
Terminar con
     
Application.ScreenUpdating = verdad
     
Submarino del extremo
Otras soluciones  
 
programming4us programming4us