无法理解的CurrentRegion

williamsmile

看来EXCEL的奥妙还有挺多值得挖掘，学习了，讲得很透彻。

wgw500wan

我这个新手需要打开脑洞，学习了

wgw500wan

在5楼基础上，对 CurrentRegion 的理解：：：：：看→→→→→图

香川群子

wgw500wan 发表于 2015-10-9 22:00
在5楼基础上，对 CurrentRegion 的理解：：：：：看→→→→→图

从数学/电脑概念上来说，
Selection.CurrentRegion.Select

表示：
对当前【所选/活动】的【单元格/区域】进行【行、列扩展】、
直至【上下左右边界】的单元格【都是空单元格时】停止扩展。

实际上这个操作，是可以用递归搜寻过程来模拟的。

wgw500wan

香川群子 发表于 2015-10-9 23:10
从数学/电脑概念上来说，
Selection.CurrentRegion.Select

“实际上”前面的能看懂，谢谢[握手]

后面的 “递归搜寻” 对我这个初学者来说，又是一个新的概念，需要脑补！

香川群子

wgw500wan 发表于 2015-10-9 23:19
“实际上”前面的能看懂，谢谢[握手]

后面的 “递归搜寻” 对我这个初学者来说，又是一个新的概念，需 ...

递归搜寻、扩展当前区域的 功能模拟代码：

1. Dim r&, c&, i1&, i2&, j1&, j2&
   
2. Sub test()
   
3.     r = Rows.Count: c = Columns.Count
   
4.     i1 = ActiveCell.Row: i2 = i1
   
5.     j1 = ActiveCell.Column: j2 = j1
   
6.     Call CurR
   
7.     Range(Cells(i1, j1), Cells(i2, j2)).Select
   
8. End Sub
   
9. Sub CurR()
   
10.     t = False: t2 = False
    
11.    
    
12.     Do While j1 > 1 'left
    
13.         j = j1 - 1
    
14.         For i = IIf(i1 = 1, 1, i1 - 1) To IIf(i2 = r, r, i2 + 1)
    
15.             If Cells(i, j) <> "" Then j1 = j: t = True: Exit For
    
16.         Next
    
17.         If t Then t = False: t2 = True Else Exit Do
    
18.     Loop
    
19.     Do While j2 < c 'right
    
20.         j = j2 + 1
    
21.         For i = IIf(i1 = 1, 1, i1 - 1) To IIf(i2 = r, r, i2 + 1)
    
22.             If Cells(i, j) <> "" Then j2 = j: t = True: Exit For
    
23.         Next
    
24.         If t Then t = False: t2 = True Else Exit Do
    
25.     Loop
    
26.    
    
27.    
    
28.     Do While i1 > 1 'up
    
29.         i = i1 - 1
    
30.         For j = IIf(j1 = 1, 1, j1 - 1) To IIf(j2 = c, c, j2 + 1)
    
31.             If Cells(i, j) <> "" Then i1 = i: t = True: Exit For
    
32.         Next
    
33.         If t Then t = False: t2 = True Else Exit Do
    
34.     Loop
    
35.     Do While i2 < r 'down
    
36.         i = i2 + 1
    
37.         For j = IIf(j1 = 1, 1, j1 - 1) To IIf(j2 = c, c, j2 + 1)
    
38.             If Cells(i, j) <> "" Then i2 = i: t = True: Exit For
    
39.         Next
    
40.         If t Then t = False: t2 = True Else Exit Do
    
41.     Loop
    
42.    
    
43. '    Range(Cells(i1, j1), Cells(i2, j2)).Select
    
44.     If t2 Then Call CurR
    
45. 
    
46. End Sub
    

复制代码

算法原理：
从当前位置开始，向左、向右、向上、向下，搜寻更外侧的行/列区域内是否有非空单元格。
有就扩展当前的行/列，没有就不变。

继续递归此过程，直至所有的左右上下方向都没有能够扩展时停止。

wgw500wan

香川群子 发表于 2015-10-10 21:34
递归搜寻、扩展当前区域的 功能模拟代码：

VBA初学者，学习中。。。

wgw500wan

wudixin96 发表于 2012-5-7 17:24
如图运行一下代码，你就知道了。

看我借鉴和扩展，更详细了一些，感谢你给我带来的灵感和进步！！


我在23楼：
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=864745&pid=8404980


[url=我对 CurrentRegion 的理解，有图有真相！ http://club.excelhome.net/thread-1234213-1-1.html (出处: ExcelHome技术论坛)]我的分享：[/url]我对 CurrentRegion 的理解，囿图囿真相！
http://club.excelhome.net/thread-1234213-1-1.html
(出处: ExcelHome技术论坛)

czboyu

发布我的理解

海浪飞天

刚学习CurrentRegion的用法，就找到这么好的贴子，必须标记。