Hoe een lege rij invoegen op basis van bovenstaande celwaarde in Excel?
In Excel is het invoegen van lege rijen een van de meest gebruikte functies in ons dagelijkse werk. Is er echter een manier om snel lege rijen in te voegen op basis van de celwaarde hierboven, zoals onderstaand screenshot? Nu, dit artikel, gaat over de methode om snel een lege rij in te voegen op basis van de bovenstaande celwaarden in Excel.
Rij invoegen op basis van bovenstaande waarde
Rij invoegen op basis van bovenstaande waarde
Als u een lege rij wilt invoegen op basis van het bovenstaande nummer, kunt u een macrocode gebruiken.
1. Schakel het blad dat u gebruikt in en druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het script.
VBA: voeg lege code in op basis van de bovenstaande cel
Sub Insert () 'UpdatebijExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Selecteer een bereik om te gebruiken (enkele kolom ): "," KuTools For Excel ", xAddress` `` `, 8) Als xRg niets is, sluit dan Sub Application.ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg (1) For I = xLastRow To xFstRow Step -1 xNum = Cells (I, xCol) If IsNumeric (xNum) And xNum> 0 Then Rows (I + 1). (xNum) .Insert xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Select Application.ScreenUpdating = True End Sub
3. druk op F5 toets om de code uit te voeren, en een dialoogvenster verschijnt om u eraan te herinneren een lijst te selecteren om te werken. Zie screenshot:
4. klikken OK, zijn de lege rijen ingevoegd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!