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