Frage : Excel VBA ändern, um eine Strecke der Zellen einzuschließen

Ich muss diesen freien Code ändern etwas eine Strecke der Zellen, anstatt, gerade eine spezifische Zelle zu löschen.  Irgendwelche Vorschläge? 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Sub zapit2 (targetRange als Strecke, was als Schnur)
Verdunkeln gefunden als Strecke, zuerst als Strecke
Zuerst einstellen = targetRange.Find (was, nachher: =Range („A“ u. Rows.Count), LookIn: =xlValues, LookAt: =xlWhole)
Wenn nicht zuerst nichts dann ist
    Einstellen gefunden = targetRange.FindNext (erste)
    Tun, während (nicht ist nichts gefunden)
        Wenn (gefunden. Adresse = zuerst. Adressen-) dann Ausgang tun
        gefunden. Freier Raum
        Einstellen gefunden = targetRange.FindNext (gefunden)
    Schleife
Beenden wenn
Unterseeboot beenden

Sub zapit ()
targetRange als Strecke verdunkeln
'ändern dieses zu, wo Sie an arbeiten möchten
targetRange = ActiveSheet.Range einstellen („A: “)
targetRange zapit2, „Grp1“
targetRange zapit2, „Grp2“
Enden-Unterseeboot

Antwort : Excel VBA ändern, um eine Strecke der Zellen einzuschließen

Ich sah, Ihre frühere Frage aber gab nicht bekannt, da cyberkiwi sie umfaßt hatte

Dieses war meine Bemühung

Die Strecke kann hier geändert werden

   Einstellen rng1 = schneidet (ActiveSheet.UsedRange, Spalten („A“))

für den gesamten Blattgebrauch

   Einstellen rng1 = ActiveSheet.UsedRange

für Spalten A: D

Einstellen rng1 = schneiden (ActiveSheet.UsedRange, Spalten („A: D“))

usw.

Beifall

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

'Betätigen Alt + F11, zum des Visual- Basicherausgebers zu öffnen (VBE)
'Vom Menü, Einsetzen-Modul wählen.
'Den Code in das rechte Codefenster kleben.
'Betätigen Alt + F11, zum des VBE zu schließen
'Zum Werkzeug-… Makro gehen…. Makro- und Double-click DelRow_OnColumn

VorDelRow_OnColumn ()
    Schwaches rng1 als Strecke, rng2 als Strecke, cel als Strecke
    Schwaches FirstAddress als Schnur
    Schwaches AppCalc als lang
    Schwaches MyArr
    Schwaches varr

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

    Einstellen rng1 = schneidet (ActiveSheet.UsedRange, Spalten („A“))
    Wenn rng1 nichts dann ist, Unterseeboot herausnehmen

    Mit Anwendung
        AppCalc =. Berechnung
        .ScreenUpdating = falsch
        . Berechnung = xlCalculationManual
    Ende mit

    Für jedes varr in MyArr
        Einstellen cel = rng1.Find (varr, xlValues, xlPart, xlByRows)
        Wenn nicht cel nichts dann ist
            FirstAddress = cel. Adresse
            Tun
                Einstellen cel = rng1.FindNext (cel)
                'prüfen, um mit, mutliple Vorwähleren in einer Reihe oben zu beenden zu vermeiden, um zu löschen
                Wenn cel. Adresse <> FirstAddress dann
                    Wenn nicht rng2 nichts dann ist
                        Einstellen rng2 = Anschluss (rng2, cel)
                    Sonst
                        Einstellen rng2 = cel
                    Beenden wenn
                Beenden wenn
            Schlingen während FirstAddress <> cel. Adresse
        Beenden wenn
    Folgendes varr

    Wenn nicht rng2 nichts dann rng2.Clear ist

    Mit Anwendung
        .ScreenUpdating = richten aus
        . Berechnung = AppCalc
    Ende mit
Weitere Lösungen  
 
programming4us programming4us