Hur infogar man tomma rader baserat på ovanstående cellvärden i Excel?

I Excel kan du behöva infoga tomma rader under celler baserat på deras numeriska värden. Att göra detta manuellt kan vara tidskrävande, men med ett enkelt VBA-makro kan du automatisera processen och snabbt infoga det erforderliga antalet tomma rader under varje cell i ett valt område, som visas nedan.

Infoga rader baserat på cellvärden

Infoga rader baserat på cellvärden

Om du vill infoga tomma rader baserade på cellvärden kan du använda en makrokod.

1. Aktivera arket du använder och tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, och klistra in koden nedan i skriptet.

Sub Insert()
'UpdatebyExtendoffice20170926
    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("Select a range to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit 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).Resize(xNum).Insert
            xCount = xCount + xNum
        End If
    Next
    xRg.Resize(xCount, 1).Select
    Application.ScreenUpdating = True
End Sub

3. Tryck F5 för att köra koden och en dialogruta dyker upp för att påminna dig om att välja en lista som ska fungera. Se skärmdump:

4. klick OK, de tomma raderna har infogats.