11、[VBA入门到放弃笔记] Currentregion属性

通过一个空行或者一个空列来分开的数据表，可以使用Currentregion属性。

Sub jk()
    Dim rng As Range
    Set rng = Range("a1").currentregion
    rng.Select
End Sub

• 运行代码选择蓝色单元格区域 A1:B6。注意空行空列分开。

  
  结果

• 注意空行空列分开，看下面图片，C3单元格，所在列不是空列，Currentregion的区域就变为 A1:D6。

  
  

---

• 练习：选择李元芳的所有数据，并复制到F2单元格。

  
  

Sub jk()
    Dim rng As Range
    Set rng = Range("a:a").Find(what:="李元芳", lookat:=xlWhole) 
    rng.currentregion.Copy Range("f2")
End Sub

• 第2句代码：Find(查找和替换操作的VBA代码)方法查找‘李元芳’所在的单元格A8,lookat为单元格完全匹配，即单元格=‘李元芳’，而不能是‘李元芳和狄仁杰’这样的字符。Find方法可自行百度了解信息。
• 第3句代码：复制‘李元芳’的非空行非空列单元格区域复制到F2单元格。

结果

---