Comment insérer des lignes vides en fonction des valeurs des cellules ci-dessus dans Excel ?

Dans Excel, vous devrez peut-être insérer des lignes vides sous les cellules en fonction de leurs valeurs numériques. Cette opération manuelle peut prendre du temps, mais avec une simple macro VBA, vous pouvez automatiser le processus et insérer rapidement le nombre requis de lignes vides sous chaque cellule d'une plage sélectionnée, comme indiqué ci-dessous.

Insérer des lignes en fonction des valeurs des cellules

Insérer des lignes en fonction des valeurs des cellules

Si vous souhaitez insérer des lignes vides en fonction des valeurs des cellules, vous pouvez utiliser un code macro.

1. Activez la feuille que vous utilisez et appuyez sur le bouton Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code ci-dessous dans le script.

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. presse F5 pour exécuter le code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner une liste pour travailler. Voir la capture d'écran:

4. Cliquez OK, les lignes vides ont été insérées.