Fråga : Ändra Excel VBA för att inkludera en spänna av celler

Jag behöver att ändra denna kodifierar litet frikänd en spänna av celler i stället för röjning precis en specifik cell.  Några förslag?

> för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
" codeBody " " >Sub zapit2 (targetRange för class= " för
" klar "

Svar : Ändra Excel VBA för att inkludera en spänna av celler

Jag sågar din tidigare ifrågasätter men postade inte, som cyberkiwien hade täckt den

Detta var mitt försök

Spänna kan ändras här

   Uppsättningen rng1 = skär (ActiveSheet.UsedRange, kolonner (”A”))

för det helt täcka bruk

   Uppsättning rng1 = ActiveSheet.UsedRange

för kolonner A: D

Uppsättningen rng1 = skär (ActiveSheet.UsedRange, kolonner (”A: D”))

etc.

Jubel

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:

'Press Alt + F11 som öppnar den Visual Basic redaktören (VBE)
Välj In:sätta-Enheten, 'från menyn.
'Klistra kodifiera in i det höger kodifierar fönstret.
'Press Alt + F11 till slutet VBEN
'Gå bearbetar… makro…., Makro och double-click DelRow_OnColumn

UnderDelRow_OnColumn ()
    Dunkel rng1 som spänner, rng2 som spänner, cel som spänner
    Dunkla FirstAddress som stränger
    Dunkla AppCalc som Long
    Dunkla MyArr
    Dunkel varr

    MyArr = samling (”Widget1”, ”Product1”)

    Uppsättningen rng1 = skär (ActiveSheet.UsedRange, kolonner (”A”))
    Om rng1 är ingenting därefter, gå ut suben

    Med applikation
        AppCalc =. Beräkning
        .ScreenUpdating = falskt
        . Beräkning = xlCalculationManual
    Avsluta med

    För varje varr i MyArr
        Uppsättning cel = rng1.Find (varr, xlValues, xlPart, xlByRows)
        Om inte cel är ingenting därefter
            FirstAddress = cel. Tilltala
            Gör
                Uppsättning cel = rng1.FindNext (cel)
                'testa för att undvika att avsluta upp med mutlipleval i ett ror för att ta bort
                Om cel. Tilltala <> FirstAddress därefter
                    Om inte rng2 är ingenting därefter
                        Uppsättning rng2 = union (rng2, cel)
                    Annars
                        Uppsättning rng2 = cel
                    Avsluta om
                Avsluta om
            Kretsa stunder FirstAddress <> cel. Tilltala
        Avsluta om
    Nästa varr

    Om inte rng2 är ingenting därefter rng2.Clear

    Med applikation
        .ScreenUpdating = True
        . Beräkning = AppCalc
    Avsluta med
Andra lösningar  
 
programming4us programming4us