Questione : Modificare Excel VBA per comprendere una gamma delle cellule

Devo modificare questo codice un po'chiaro una gamma delle cellule invece di rimozione dell'appena una cellula specifica.  Dei suggerimenti?

class= > " libero " 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

Risposta : Modificare Excel VBA per comprendere una gamma delle cellule

Ho veduto la vostra domanda più iniziale ma non ho inviato poichè il cyberkiwi la ha avuta coperta

Ciò era il mio sforzo

La gamma può essere cambiata qui

   Regolar rng1 = intersecano (ActiveSheet.UsedRange, colonne (“A„))

per l'intero uso dello strato

   Regolar rng1 = ActiveSheet.UsedRange

per le colonne A: D

Regolar rng1 = intersecano (ActiveSheet.UsedRange, colonne (“A: D„))

ecc

Acclamazioni

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:

'Premere alt + F11 per aprire il redattore del Visual Basic (VBE)
'Dal menu, scegliere il Inserire-Modulo.
'Incollare il codice nella finestra destra di codice.
'Premere alt + F11 per chiudere il VBE
'Andare alla macro degli attrezzi……. Macro e double-click DelRow_OnColumn

DelRow_OnColumn secondario ()
    Rng1 fioco come gamma, rng2 come gamma, cel come gamma
    FirstAddress fioco come stringa
    AppCalc fioco come lungamente
    MyArr fioco
    Varr fioco

    MyArr = allineamento (“Widget1„, “Product1„)

    Regolar rng1 = intersecano (ActiveSheet.UsedRange, colonne (“A„))
    Se rng1 è niente allora uscire il sommergibile

    Con l'applicazione
        AppCalc =. Calcolo
        .ScreenUpdating = falso
        . Calcolo = xlCalculationManual
    Estremità con

    Per ogni varr in MyArr
        Regolar cel = rng1.Find (varr, xlValues, xlPart, xlByRows)
        Se non il cel allora è niente
            FirstAddress = cel. Indirizzo
            Fare
                Regolar cel = rng1.FindNext (cel)
                'provare per evit diare concludersi in su con le selezioni del mutliple in una fila per cancellare
                Se cel. Indirizzo <> FirstAddress allora
                    Se non rng2 allora è niente
                        Regolar rng2 = unione (rng2, cel)
                    Altrimenti
                        Regolar rng2 = cel
                    Concluder se
                Concluder se
            Collegare mentre FirstAddress <> cel. Indirizzo
        Concluder se
    Varr seguente

    Se non rng2 è niente allora rng2.Clear

    Con l'applicazione
        .ScreenUpdating = allineano
        . Calcolo = AppCalc
    Estremità con
Altre soluzioni  
 
programming4us programming4us