VBA基础

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