如何快速获取想要的却不知道的信息？这是十分重要的技能！！！
以一个例子字来介绍：怎样删除行，其代码是什么？
方法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
