fkjj.net
当前位置:首页 >> .CurrEntrEgion >>

.CurrEntrEgion

currentRegion 属性返回Range对象,该对象代表当前的区域。当前区域是一个边缘是任意空行和空列组合成的范围。只读。 说明 该属性对于很多操作是很有用的。例如:自动将选定区扩展到包含整个当前区域,如AutoFormat方法。 该属性不能用于被保护...

单元格区域("A4").CurrentRegion.Sort关键字1:=单元格区域("A4"),Order1:=xlAscending,Key2:=单元格区域(_ "B4"),Order2:=xlAscending,Key3:=单元格区域("C4"),Order3:=xlAscending,_ 标题:=xlGuess,OrderCustom:=1,区分大小写:=False,方向:=_ x...

Sub test()Dim arr, brr, ar, br, d As Object, r%, l%, n%, crr(1 To 5000, 1 To 27)arr = Sheet1.Range("a1").CurrentRegion'...

获得("数据统计表")中A1单元格向右及向下连续有数据单元格的总行数 其间不能有空行或数据在横向或纵向有间断

用usedrange可以实现要求,具体代码如下: activesheet.usedrange.select 关于usedrange的详细知识:如果想知道当前工作表中所有已使用的单元格区域的大小,或者想引用当前工作表中已使用的区域,那么可能就要想到UsedRange属性了。 UsedRange属...

Sub fj() Application.ScreenUpdating = False '关闭屏幕刷新 Sheets(3).Range("2:" & Sheets(3).[a1].CurrentRegion.Rows.Count).ClearContents '...

区域对象没有UsedRange Dim Rng As Range Set Rng = Worksheets(1).Range("a1") Rng.CurrentRegion.Select 'rng所在的一个连续的数据区域 Sheet1....

Sub 保存() Dim arr, brr, d, i& '定义 数组arr, 数组 brr, d 对象, i 为长整形 Set d = CreateObject("scripting.dictionary") ' d 赋值...

Sub Macro1()Dim arr, brr, crr, d As Object, i&, j&Set d = CreateObject("scripting.dictionary")arr = Sheet1.Range("a1").CurrentRegion...

原来论坛中有个帖子讲的很清楚,而且图也不错,现在找不到了,做个简单的 currentregion只的是连续单元格组成的矩形区域,除了边界的单元格,一般单元格有8个相邻单元格,(下图中红线区域) usedrange是当前工作表已经使用的单元格组成的矩形区域,设置...

网站首页 | 网站地图
All rights reserved Powered by www.fkjj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com