Frage : Einfügung von Reihen in Excel mit VBA

Ich muss den Code unten ändern etwas, um ein paar Reihen auf „zuerst“ einzusetzen (pro Code unten).  Dieses ist vermutlich die Linie, die ich bilden muss, das geschehen,

.EntireRow.Insert Verschiebung: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove

So demgegenüber, dieses ist anwenden es an der ersten Instanz wie entgegensetzen dem Code unten, der sie an allen Fällen after das erste instance.
 anwendet 
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:

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
         'fand. Freies ''''' löscht die gefundene Zelle
         'found.EntireRow.Clear
         'found.EntireColumn.Clear
         gefunden. Die Größe neu bestimmen (, ändert ''''' 5).Clear die Größe der Strecke A: E
         
        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 : Einfügung von Reihen in Excel mit VBA

Nicht sure, wenn Sie Facebook auf Ihrem Aufstellungsort anschließen lassen.  Wenn nicht, einen Blick an dieser Tutorseite zum Werkzeug Anteilknopf/-verbindung annehmen.  Dann können Sie einen Umbau zwischen mit Ihrem kundenspezifischen Knopfbild gerade haften.  Z.B.:
.  Dass Weise, die Ihr kundenspezifischer Knopf erhält, zeigte mit clickable FB-Verbindung an.

Wenn Sie Facebook anschließen lassen eingeführt, bin ich sicher, dass es eine Weise gibt, sie auch besonders anzufertigen, aber ich nicht sie untersucht habe.
Weitere Lösungen  
 
programming4us programming4us