通过一个空行或者一个空列来分开的数据表，可以使用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单元格。
结果
