當前位置:成語大全網 - 新華字典 - 在sheet1中有10個壹班的同學,12個2班的學生,13個3班的學生,如何用vba在各班級之間自動插入壹空行

在sheet1中有10個壹班的同學,12個2班的學生,13個3班的學生,如何用vba在各班級之間自動插入壹空行

Sub Macro2()

'

' Macro2 Macro

'

Dim rw, cl

rw = 1 '計算起始行

cl = 1 '班級號在第幾列

Do Until Cells(rw + 1, cl) = "" ‘循環直到班級號的列為空時為止

If Cells(rw, cl) <> Cells(rw + 1, cl) Then

Rows(rw + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

rw = rw + 1

End If

rw = rw + 1

Loop

End Sub

'以上代碼可以在vba直接運行