Rows(i & ":" & l).Delete Shift:=xlUp
也可以写循环
Sub aa()
Dim i, l, r As Integer
i = 1
l = 3
For r = i To l
Rows(r).Delete Shift:=xlUp
Next
End Sub
range(i & ":" & l).delete
得到B列行数:
range("b1").Activate
b_count=ActiveCell.CurrentRegion.Rows.Count
选择区域:
range("a1:a" & b_count).select