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

'

' 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直接運行