7、[VBA入门到放弃笔记]如何快速获得信息?

如何快速获取想要的却不知道的信息？这是十分重要的技能！！！

以一个例子字来介绍：怎样删除行，其代码是什么？
方法1：录制宏

Sub 宏1()'操作了删除第4行，第7行，第10行。
'
' 宏1 宏
'

'
    Rows("4:4").Select
    Selection.Delete Shift:=xlUp
    Rows("7:7").Select
    Selection.Delete Shift:=xlUp
    Rows("10:10").Select
    Selection.Delete Shift:=xlUp
End Sub

从上面获取到的关键词就是Rows，对代码作点修改。看此句能否运行。

rows("4:4").delete Shift:=xlUp

gfgfg.gif

代码能够运行，代码能用，然后我们就获取了删除行这个操作的代码。

方法2：百度。

浏览了一些信息后，发觉这样的代码也许也能删除行,利用的是单元格的EntireRow属性。按照字面意思就是，单元格所在的整行删除。同样测试代码。

单元格.EntireRow.Delete

敲入代码就有提示了。
代码同样能够执行.

hgh.gif

光说不练假把式，做个小练习。删除要删除的行,随便一个方法。

删除要删除的行

Sub 宏1()
    Dim i As Integer
    For i = 1 To 11
        If Cells(i, 1) = "要删除的行" Then
            Rows("i:i").Delete Shift:=xlUp
        End If
    Next
End Sub

代码报错，调试标明Rows处出错了？如何解决？

Paste_Image.png

细心一想，i是变量 i:i的写法是不对的。不能因为测试的时候代码是rows("4:4"),我们就惯性写成Rows("i:i")。应该是下面的写法

Sub 宏1()
    Dim i As Integer
    For i = 1 To 11
        If Cells(i, 1) = "要删除的行" Then
            Rows(i & ":" & i).Delete Shift:=xlUp
        End If
    Next
End Sub

但结果仍然不对，不能删除干净？这又是为神马？

注意看操作，删除第4行后，第5行就上移到第4行了。这就是出错的原因，请再想想。看代码里的：Shift:=xlUp（向上移动）
所以删除行要删除干净，就得要从下面开始循环.

Sub 宏1()
    Dim i As Integer
    For i = 11 To 1 Step -1    '*********LOOK 
        If Cells(i, 1) = "要删除的行" Then
            Rows(i & ":" & i).Delete Shift:=xlUp
        End If
    Next
End Sub

ghhhhhhhh.gif

实际 Rows(i & ":" & i)可以写成 Rows(i),同样能删除代码。关键的是删除行要从下面向上循环删除。

Sub 宏1()
    Dim i As Integer
    For i = 11 To 1 Step -1
        If Cells(i, 1) = "要删除的行" Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next
End Sub

附上Rows属性文档说明

Excel VBA教程：Rows属性
对于 Application对象，返回代表活动工作表所有行的Range对象。如果活动文档不是工作表，Rows属性无效。对于 Range对象，返回代表指定区域所有行的 Range对象。对于 Worksheet对象，返回代表指定工作表所有行的 Range对象。Range对象，只读。
说明
有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。
在不用对象识别符的情况下使用此属性等价于ActiveSheet.Rows
。
当应用于含多个选定区域的 Range对象时，该属性只返回该区域中第一个子区域内的行。例如，如果 Range对象有两个子区域：A1:B2 和 C3:D4，则Selection.Rows.Count
返回 2 而不是 4。若要在一个可能包含多个选定区域的区域中使用该属性，请测试Areas.Count
来判断该区域是否包含多个选择区域。如果是，则像第 3 个示例中所示，在该区域中的每个子区域上循环。
Excel VBA教程：Rows属性·示例
本示例删除 Sheet1 的第三行。

Worksheets("Sheet1").Rows(3).Delete

本示例检查第一张工作表上当前区域中的行，如果某行的第一个单元格值与前一行的第一个单元格的值相等，则删除此行。

For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows   
          this = rw.Cells(1, 1).Value    
          If this = last Then rw.Delete    
          last = this
Next

本示例显示 Sheet1 选定区域中的行数。如果选择了多个子区域，本示例将对每一个子区域进行循环。

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Rows.Count & " rows."
Else
    i = 1
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows."
        i = i + 1
    Next a
End If

7、[VBA入门到放弃笔记]如何快速获得信息?

如何快速获取想要的却不知道的信息？这是十分重要的技能！！！

附上Rows属性文档说明

推荐阅读更多精彩内容