zoukankan      html  css  js  c++  java
  • 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
    路漫漫其修远兮 吾将上下求索
  • 相关阅读:
    STL中set求交集、并集、差集的方法
    Vijos 1308 埃及分数(迭代加深搜索)
    POJ 1161 Walls(Floyd , 建图)
    UVa 1601 万圣节后的早晨
    dp之完全背包
    dp之取数字问题
    dp之最长公共子序列
    枚举排列
    poj 3187 暴力枚举
    poj 2431 优先队列,贪心
  • 原文地址:https://www.cnblogs.com/hbmlml/p/4072499.html
Copyright © 2011-2022 走看看