End(3)=End(xlup)，那End(1), End(2), End(4)分别等于什么？还有别的End(数字)吗？

其中1代表：xlToLeft其中2代表：xlToRight其中3代表：xlup其中4代表：xldown 简记 左右上下，1，2，3，4

Enum XlDirection

    xlDown = -4121    ‘ 向下

    xlToLeft = -4159  ‘ 向左

    xlToRight = -4161 ‘ 向右

    xlUp = -4162      ‘ 向上

End Enum

[A65536].End(xlUp).row 中[A65536]是什么意思？

在1995-2006年，excel工作簿包含65536行，但现在的office 2007中工作簿包含1048576行。[A65536]就是A列的最后一行的意思，这段话的意思就是，从A列最后一行向上找，找到有数据的行为止

Sub x1()
Dim i, t As Integer
Dim s As String
For i = [f65536].End(3).Row To 2 Step -1
      If Range("f" & i) = 0 Then
        s = Range("c" & i)
        For t = [c65536].End(3).Row To 2 Step -1
             If Range("c" & t) = s Then
             Rows(t).Delete
             End If
             Next t
    End If
    Next i
End Sub

下面这个只会把整行删掉:ActiveSheet.Rows(rownumbers).EntireRow.Delete shift:=xlup

Range("A3:C3").Delete Shift:=xlUp    Range("F3").Delete Shift:=xlUp