新增行VBA

nnsea

Sub 宏6()
i = Range("C1048576").End(xlUp).Row()
Range("C" & i).Select
Rows(i).Insert shift:=xlUp
End Sub

nnsea

sub aa()
i=range("A65536").end(xlup).row()+1
range("A" & i).Select
msgbox "你需要的是A"& i
end sub