通過一個空行或者一個空列來分開的數(shù)據(jù)表，可以使用Currentregion屬性。

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

• 運行代碼選擇藍色單元格區(qū)域 A1:B6。注意空行空列分開。

  
  
  結果

• 注意空行空列分開，看下面圖片，C3單元格，所在列不是空列，Currentregion的區(qū)域就變?yōu)?A1:D6。

  
  

• 練習：選擇李元芳的所有數(shù)據(jù)，并復制到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句代碼：復制‘李元芳’的非空行非空列單元格區(qū)域復制到F2單元格。

結果