VBA.CurrentRegion2

【2】VBACurrentRegion  

1）CurrentRegion/较详细说明！

http://www.360doc.com/content/16/1014/20/30583536_598462498.shtml

  当前单元格牌单元格区域(B2:D6)中的任一单元格中（只需保证该区域中任一行或列至少有一个单元格中有数据，按Ctrl+shift+*,即可选中整个区域。用VBA同效：

  Range('B2').CurrentRegion.Select '同样会选择单元格区域B2:D6。

  如上说，当前单元格不一定是单元格B2，该区域中任意单元格都行，例如，下面的代码：

  Range('C3').CurrentRegion.Select '也会选择单元格区域B2:D6。

  若单元格B2或者C3是当前单元格，那么下面的代码：

  ActiveCell.CurrentRegion.Select '也会选择单元格区域B2:D6。

----

2)Excel VBA中UsedRange与CurrentRegion的应用_Glin_L_新浪博客

https://blog.sina.cn/dpool/blog/s/blog_9cc239fc0102wfym.html

  sheet1.usedrange：是sheet1表格中已使用的区域，指鼠标从整个表格最左上角的那个非空单元格一直拖动到整个表格最右下角的那个非空单元格所选择的区域。

  CurrentRegion：是当前区域，range('A1').currentregion指A1单元格当前所在的那个区域，指当前单元格所在的以空行和空列隔开的区域。

  sub test()

sheet1.usedrange.select '选中sheet1已使用区域

range('A1').currentregion.select

range('B2').currentregion.select

range('F6').currentregion.select

  end sub

  往sheet1中随便填些数，按F8单步运行，看每一步所选择的区域。

-----

Czm)

   mRow1 = Range("B2").CurrentRegion.Rows.Count

   Debug.Print mRow1

【】