求删除excel表的最后一行，宏的代码

2025-04-26 10:16:49

推荐回答（2个）

回答1：

12行逐行删除，删除一行留11行另存为11月份一个工作表，再删除2行另存为10月份一个工作表……依次类推，一月份只有标题和一行另存为1月份数据一个工作表。

是这个意思吗？如果是，就好办！

Sub 删除行另存()

    Range("G1").End(xlDown).EntireRow.Delete
Dim y As String
     y = Range("G1").End(xlDown).Value
    Range("A1:F1").Select
    ActiveCell.FormulaR1C1 = "XX公司" & y & "数据报表"

Dim LJ As String
LJ = "C:\Documents and Settings\Administrator\桌面"
    ChDir LJ
    ActiveWorkbook.SaveAs Filename:= _
        LJ & "\" & y & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

然后依次打开12月份表，11月份表……执行代码

回答2：

sub 删除第12行()
Range("a12").EntireRow.Delete
end sub