例如，要删除第2行，可用代码：Rows(2).Delete或Rows("2:2").Delete要删除第2列，可用公式：Columns(2).Delete或Columns("B:B").Delete
你录制一个删除的宏自己看一下代码不就行了？Sub Macro1()Rows("2:").SelectSelection.Delete Shift:=xlUpEnd Sub
