VBA基础
浏览数：26 /
时间：2015年06月08日
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 ‘ 向上EndEnum
[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
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
