Pytanie : Wkładać Rząd wewnątrz Przodować z VBA

I potrzebować the kod kod nieznacznie kilka rząd na "najpierw" (na kod najpierw).  Potrzebować być prawdopodobnie the linia I potrzebować który zdarzać się,

.EntireRow.Insert Przesunięcie: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove

So w kontrast,/> być stosować ono the pierwszy przykład przeciwstawiać the kod pierwszy, che stosować ono wszystkie przykład after the pierwszy instance.
(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 Jako Pasmo, sznurek Sznurek)
Ćmić znajdować Jako Pasmo, najpierw Pasmo
Ustawiać najpierw = targetRange.Find (ustawiać, Póżniej: =Range ("A" & Rows.Count), LookIn: =xlValues, LookAt: =xlWhole)
Jeśli nie najpierw Być Jeśli nie Wtedy
    Set znajdować = targetRange.FindNext (pierwszy)
    Robić Podczas Gdy (Znajdować Być Nic)
        Jeżeli (znajdować. Adres = najpierw. Adres) Wtedy Wyjście
         'zakładać. Rozjaśniać ''''' jasny the komórka zakładać
         'found.EntireRow.Clear
         'found.EntireColumn.Clear
         znajdować. Resize (, 5).Clear ''''' zmieniać the rozmiar the pasmo A: E
         
        Ustawiać znajdować = targetRange.FindNext (znajdować)
    Pętla
Kończyć Jeżeli
Kończyć Okręt podwodny

Okręt podwodny zapit ()
Ciemnawy targetRange Pasmo
'zmieniać chcieć dokąd ty chcieć dalej
Ustawiać targetRange = ActiveSheet.Range ("A: ")
zapit2 targetRange, "Grp1"
zapit2 targetRange, "Grp2"

Końcówka Okręt podwodny

Odpowiedź : Wkładać Rząd wewnątrz Przodować z VBA

Pewny jeżeli ty mieć Facebook Na twój miejsce.  Jeśli nie, brać spojrzenie przy ten ten strona dalej narzędzie Część guzik/połączenie.  Wtedy ty móc właśnie etykietka między the z twój obyczajowy guzik wizerunek.  Na przykład:
.  Że sposób twój obyczajowy guzik dostawać wystawiać z clickable FB połączenie.

Jeżeli ty mieć Facebook Uzupełniony, I być pewny tam  być sposób ono zbyt, ale I biedak patrzeć w ono.
Inne rozwiązania  
 
programming4us programming4us