VB - Insérer une ligne vide

Ceci est un jeu d'enfant pour vous tous, mais je ne connais pas du tout Visual Basic. Comment écrire une instruction pour insérer une ligne entre deux lignes dans une feuille de calcul Excel à plusieurs reprises? Un exemple ci-dessous:VB - Insérer une ligne vide

F-3757 - GROF FILTER REWORKLIJN 
F-3758 - POEDERAFSCHEIDER 
F-3759 - FIJNFILTER 
F-3760 - STOFILTER 
F-3762 - AANZUIGFILTER 
B-3771 - VENTILATOR STORTKOKER

à:

F-3758 - POEDERAFSCHEIDER 

F-3759 - FIJNFILTER 

F-3760 - STOFILTER 

F-3762 - AANZUIGFILTER 

B-3771 - VENTILATOR STORTKOKER

Source

2009-04-08 Erin Karschnik

Je recommande le marquage de cette 'Excel' et 'ABV' (ou sont-ils la même maintenant? Je n'ai pas programmé dans VBA dans quelques années). – Calvin

Sub Insert_Blank_Rows() 
    ''//Select last row in worksheet. 
    Selection.End(xlDown).Select 

    Do Until ActiveCell.Row = 1 
     ''//Insert blank row. 
     ActiveCell.EntireRow.Insert shift:=xlDown 
     ''//Move up one row. 
     ActiveCell.Offset(-1, 0).Select 
    Loop 
End Sub

VBA Express montre un exemple comment l'accomplir

Source

2009-04-08 16:36:57 TStamper

Merci beaucoup! Cela a fonctionné parfaitement. –

VB - Insérer une ligne vide

Répondre

Questions connexes