Comment insérer automatiquement une ligne en fonction de la valeur de la cellule dans Excel?

Supposons que vous ayez une plage de données et que vous souhaitiez insérer automatiquement des lignes vides au-dessus ou en dessous d'une certaine valeur dans Excel, par exemple, insérer automatiquement des lignes inférieures à zéro comme illustré ci-dessous. Dans Excel, il n'existe aucun moyen direct de résoudre cette tâche, mais je peux introduire un code de macro pour que vous puissiez insérer automatiquement des lignes en fonction d'une certaine valeur dans Excel.
Insérer la ligne ci-dessous en fonction de la valeur de la cellule avec VBA

Insérer la ligne ci-dessus en fonction de la valeur de la cellule avec Kutools for Excel

Insérer la ligne ci-dessous en fonction de la valeur de la cellule avec VBA

Pour insérer une ligne en fonction de la valeur de la cellule en exécutant VBA, procédez comme suit:

1. presse Alt + F11 touches simultanément, et un Microsoft Visual Basic pour applications la fenêtre apparaît.

2. Cliquez insérer > Module, puis collez ci-dessous le code VBA au popping Module fenêtre.

VBA: Insérez la ligne ci-dessous en fonction de la valeur de la cellule.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. Cliquez F5 clé ou le Courir bouton, une boîte de dialogue apparaît et sélectionnez la colonne contient zéro. Voir la capture d'écran:

4. Cliquez OK. Ensuite, des lignes vides seront insérées sous la valeur zéro.

Conseil :

1. Si vous souhaitez insérer des lignes basées sur une autre valeur, vous pouvez modifier 0 à n'importe quelle valeur que vous voulez dans le VBA: Si Rng.Value = "0" alors.

2. Si vous souhaitez insérer des lignes au-dessus de zéro ou d'une autre valeur, vous pouvez utiliser le code vba ci-dessous.

VBA: insérer une ligne au-dessus de la valeur zéro:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

Insérer la ligne ci-dessus en fonction de la valeur de la cellule avec Kutools for Excel

Si vous n'êtes pas familier avec VBA, vous pouvez essayer Kutools for Excel's Sélectionnez des cellules spécifiques utilitaire, puis insérez les lignes ci-dessus.

Après l'installation de Kutools for Excel, procédez comme suit:

1. Sélectionnez la liste dans laquelle vous souhaitez rechercher les cellules spécifiques, puis cliquez sur Kutools > Sélectionnez > Sélectionnez des cellules spécifiques. Voir la capture d'écran:

2. Dans la boîte de dialogue contextuelle, cochez Ligne entière option, puis sélectionnez Équivaut à à Type spécifique liste, puis entrez la valeur que vous souhaitez rechercher dans la zone de texte de droite. Voir la capture d'écran:

3. Cliquez Ok, et une boîte de dialogue apparaît pour vous rappeler le nombre de lignes sélectionnées, fermez-la simplement.

4. Placez le curseur sur une ligne sélectionnée et cliquez avec le bouton droit pour sélectionner insérer depuis le menu contextuel. Voir la capture d'écran:

Maintenant, les lignes sont insérées ci-dessus en fonction d'une valeur spécifique.

Insérer des lignes au-dessus en fonction de la valeur de la cellule

Articles relatifs:

• Insérer des lignes vides dans Excel