整理各表的Ctrl+end表尾位置

Cellfarmer

要求:第一行标题和第一列不能在中间有空白项目,数据要连续:
Sub updatelistend()
   sheetn = Sheets.Count
   For i = 1 To sheetn
   
    Sheets(i).Select
    Range("A1").Select
    ActiveCell.End(xlDown).Select
    datamaxr = ActiveCell.Row
    Range("A1").Select
    ActiveCell.End(xlToRight).Select
    datamaxc = ActiveCell.Column
   
    ActiveCell.SpecialCells(xlLastCell).Select
    maxr = ActiveCell.Row
    maxc = ActiveCell.Column
   
    If maxr > datamaxr Then
        Range(Rows(datamaxr + 1), Rows(maxr)).Select
        Selection.Delete
    End If
    If maxc > datamaxc Then
        Range(Columns(datamaxc + 1), Columns(maxc)).Select
        Selection.Delete
    End If
    Range("A1").Select
Next i
ThisWorkbook.Save
End Sub