Cuestión : Modificar Excel VBA para incluir una gama de células

Necesito modificar este código levemente claro una gama de células en vez de despejar apenas una célula específica.  ¿Sugerencias?

class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>Sub notpretty zapit2 (targetRange " del class= " del id= " codeSnippet847420 del
class= del

Respuesta : Modificar Excel VBA para incluir una gama de células

Vi su pregunta anterior pero no la fijé pues el cyberkiwi la tenía cubierta

Éste era mi esfuerzo

La gama se puede cambiar aquí

   Fijar rng1 = se intersecan (ActiveSheet.UsedRange, columnas (“A”))

para el uso entero de la hoja

   Fijar rng1 = ActiveSheet.UsedRange

para las columnas A: D

Fijar rng1 = se intersecan (ActiveSheet.UsedRange, columnas (“A: D”))

etc

Aclamaciones

Dave
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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

'Presionar Alt + F11 para abrir el redactor de Visual Basic (VBE)
'Del menú, elegir el Insertar-Módulo.
'Pegar el código en la ventana derecha del código.
'Presionar Alt + F11 para cerrar el VBE
'Ir a la macro de las herramientas……. Macros y double-click DelRow_OnColumn

DelRow_OnColumn secundario ()
    Rng1 dévil como gama, rng2 como gama, cel como gama
    FirstAddress dévil como secuencia
    AppCalc dévil como de largo
    MyArr dévil
    Varr dévil

    MyArr = arsenal (“Widget1”, “Product1”)

    Fijar rng1 = se intersecan (ActiveSheet.UsedRange, columnas (“A”))
    Si rng1 no es nada entonces salir el submarino

    Con el uso
        AppCalc =. Cálculo
        .ScreenUpdating = falso
        . Cálculo = xlCalculationManual
    Extremo con

    Para cada varr en MyArr
        Fijar cel = rng1.Find (varr, xlValues, xlPart, los xlByRows)
        Si no el cel entonces no es nada
            FirstAddress = cel. Dirección
            Hacer
                Fijar cel = rng1.FindNext (el cel)
                'probar para evitar terminar para arriba con selecciones del mutliple en una fila para suprimir
                Si cel. Dirección <> FirstAddress entonces
                    Si no rng2 entonces no es nada
                        Fijar rng2 = la unión (rng2, el cel)
                    
                        Fijar rng2 = cel
                    Terminar si
                Terminar si
            Colocar mientras que FirstAddress <> cel. Dirección
        Terminar si
    Varr siguiente

    Si no rng2 no es nada entonces rng2.Clear

    Con el uso
        .ScreenUpdating = verdad
        . Cálculo = AppCalc
    Extremo con
Otras soluciones  
 
programming4us programming4us