Ovaj će vodič pokazati kako koristiti VBA za umetanje redaka i stupaca u Excel.
Za umetanje redaka ili stupaca koristit ćemo Metoda umetanja.
Umetnite jedan redak ili stupac
Umetni novi redak
Za umetanje jednog retka možete koristiti objekt Rows:
1 | Redovi (4) .Umetnuti |
Ili možete koristiti objekt raspona zajedno s EntireRow:
1 | Raspon ("b4"). EntireRow.Insert |
Umetni novi stupac
Slično umetanju redaka, možemo koristiti objekt Stupci za umetanje stupca:
1 | Stupci (4) .Umetnuti |
Ili objekt Raspon, zajedno s EntireColumn:
1 | Raspon ("b4"). Cijela kolona.Umetnuti |
Umetnite više redaka ili stupaca
Umetnite više redaka
Prilikom umetanja više redaka s objektom redaka, morate unijeti retke u navodnike:
1 | Redci ("4: 6"). Umetni |
Umetanje više redaka s objektom raspona funkcionira isto kao i s jednim retkom:
1 | Raspon ("b4: b6"). EntireRow.Insert |
Umetnite više stupaca
Prilikom umetanja više stupaca s objektom Stupci unesite stupac slova pod navodnicima:
1 | Stupci ("B: D"). Umetni |
Umetanje više stupaca s objektom raspona funkcionira isto kao i s jednim stupcem:
1 | Raspon ("b4: d4"). Cijela kolona.Umetni |
Umetni - Shift & CopyOrigin
The Metoda umetanja ima dva izborna argumenta:
- Pomicanje - U kojem smjeru pomaknuti ćelije
- CopyOrigin - Koje oblikovanje ćelija kopirati (gore, ispod, lijevo ili desno)
Argument Shift nije relevantan pri umetanju cijelih redaka ili stupaca. Omogućuje samo da označite pomak prema dolje ili pomak udesno:
- xlShiftDown - Pomicanje ćelija prema dolje
- xlShiftToRight - Pomicanje ćelija udesno
Kao što vidite, ne možete se pomaknuti gore ili desno.
The CopyOrigin argument ima dva potencijalna ulaza:
- xlFormatFromLeftorIznad - (0) Novo umetnute ćelije preuzimaju oblikovanje iz ćelija iznad ili ulijevo
- xlFormatFromRightorBelow (1) Novo umetnute ćelije formatiraju se iz ćelija ispod ili s desne strane.
Pogledajmo neke primjere CopyOrigin argument. Evo naših početnih podataka:
Ovaj će primjer umetnuti redak uzimajući oblikovanje iz gornjeg retka.
1 | Redci (5) .Umetni, xlFormatFromLeftOrAbove |
Ovaj će primjer umetnuti redak uzimajući oblikovanje iz donjeg reda.
1 | Redci (5). Umetnite, xlFormatFromRightOrBelow |
Drugi primjeri umetanja
Umetnite kopirane retke ili stupce
Ako želite umetnuti kopirani redak, upotrijebili biste ovaj kod:
12 | Raspon ("1: 1"). KopirajRaspon ("5: 5"). Umetnite |
Ovdje kopiramo 1. redak i ubacujemo ga u 5. red.
Umetnite retke na temelju vrijednosti ćelije
Ovo će se kretati kroz raspon, umetajući retke na temelju vrijednosti ćelija:
1234567891011 | Sub InsertRowswithSpecificValue ()Prigušena ćelija kao rasponZa svaku ćeliju u rasponu ("b2: b20")Ako cell.Value = "insert" Zatimcell.EntireRow.InsertZavrši akoSljedeća ćelijaKraj podm |
Brisanje redaka ili stupaca
Da biste izbrisali retke ili stupce, jednostavno upotrijebite Izbrisati metoda.
1234567 | Redci (1) .BrisatiRaspon ("a1"). EntireRow.DeleteStupci (1) .BrisatiRaspon ("a1"). Cijela kolona.Delete |