这对你们所有人来说都是小菜一碟,但我根本不懂 Visual Basic。如何编写在 Excel 电子表格中的两行之间重复插入一行的语句?下面是一个例子:
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
最佳答案
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展示了如何实现它的示例
关于excel - VB - 插入空白行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/730801/