Deze zelfstudie laat zien hoe u VBA kunt gebruiken om rijen en kolommen in Excel in te voegen.
Om rijen of kolommen in te voegen, gebruiken we de Methode invoegen.
Een enkele rij of kolom invoegen
Nieuwe rij invoegen
Om een enkele rij in te voegen, kunt u het Rijen-object gebruiken:
| 1 | Rijen(4).Invoegen |
Of u kunt het Range Object samen met EntireRow gebruiken:
| 1 | Bereik ("b4"). Gehele rij. Invoegen |
Nieuwe kolom invoegen
Net als bij het invoegen van rijen, kunnen we het Columns-object gebruiken om een kolom in te voegen:
| 1 | Kolommen(4).Invoegen |
Of het Range Object, samen met EntireColumn:
| 1 | Bereik ("b4"). Gehele kolom. Invoegen |
Meerdere rijen of kolommen invoegen
Meerdere rijen invoegen
Wanneer u meerdere rijen invoegt met het Rijen-object, moet u de rijen tussen aanhalingstekens invoeren:
| 1 | Rijen ("4:6"). Invoegen |
Het invoegen van meerdere rijen met het Range Object werkt hetzelfde als met een enkele rij:
| 1 | Bereik ("b4:b6"). Gehele rij. Invoegen |
Meerdere kolommen invoegen
Wanneer u meerdere kolommen invoegt met het Kolommenobject, voert u de kolom in brieven tussen aanhalingstekens:
| 1 | Kolommen ("B:D").Invoegen |
Het invoegen van meerdere kolommen met het Range Object werkt hetzelfde als met een enkele kolom:
| 1 | Bereik ("b4:d4"). Gehele kolom. Invoegen |
Invoegen - Shift & CopyOrigin
De Methode invoegen heeft twee optionele argumenten:
- Verschuiving - In welke richting de cellen moeten worden verschoven
- KopieerOrigin - Welke celopmaak moet worden gekopieerd (boven, onder, links of rechts)
Het argument Shift is niet relevant bij het invoegen van hele rijen of kolommen. Hiermee kunt u alleen aangeven om naar beneden of naar rechts te schakelen:
- xlShiftOmlaag - Verschuif cellen naar beneden
- xlShiftNaarRechts - Verschuif cellen naar rechts
Zoals je kunt zien, kun je niet naar boven of naar rechts schakelen.
De KopieerOrigin argument heeft twee mogelijke inputs:
- xlFormaatVanLinksofBoven - (0) Nieuw ingevoegde cellen nemen opmaak van cellen boven of links
- xlFormaatVanRechtsofHieronder (1) Nieuw ingevoegde cellen nemen opmaak van cellen onder of aan de rechterkant.
Laten we eens kijken naar enkele voorbeelden van de KopieerOrigin argument. Dit zijn onze eerste gegevens:
In dit voorbeeld wordt een rij ingevoegd met de opmaak van de bovenstaande rij.
| 1 | Rijen (5). Invoegen, xlFormatFromLeftOrAbove |
In dit voorbeeld wordt een rij ingevoegd met de opmaak van de onderstaande rij.
| 1 | Rijen(5).Insert , xlFormatFromRightOrBelow |
Andere invoegvoorbeelden
Gekopieerde rijen of kolommen invoegen
Als u een gekopieerde rij wilt invoegen, gebruikt u de volgende code:
| 12 | Bereik ("1:1"). KopiërenBereik ("5:5"). Invoegen |
Hier kopiëren we rij 1 en voegen deze in rij 5 in.
Rijen invoegen op basis van celwaarde
Dit doorloopt een bereik en voegt rijen in op basis van celwaarden:
| 1234567891011 | Sub InsertRowswithSpecificValue()Dim cel als bereikVoor elke cel binnen bereik ("b2:b20")If cell.Value = "insert" Dancel.Volledige rij.InvoegenStop alsVolgende celEinde sub |
Rijen of kolommen verwijderen
Om rijen of kolommen te verwijderen, gebruikt u gewoon de Verwijderen methode.
| 1234567 | Rijen(1).VerwijderenBereik ("a1"). Gehele rij.VerwijderenKolommen(1).VerwijderenBereik ("a1").Gehele kolom.Verwijderen |
