新区域把该对象最左上角的单元格当成自己左上角第一个单元格 8.Worksheet对象的UsedRange属性 UsedRange属性返回工作表中已经使用的单元格围成的矩形区域(不管这些区域间是否有空行,空列或空单元格)。 执行结果: 9.Range对象的CurrentRegion属性 CurrentRegion返回当前区域,即以空行和空行的组合为边界的区域 执行结果: ...
(2) ActiveCell.Offset(, 1),表示当前单元格下一列的单元格。 (3) ActiveCell.Offset(1),表示当前单元格下一行的单元格。 (4) Range("C3:D5").Offset(, 1),表示单元格区域D3:E5,即将整个区域偏移一列。 从上面的代码示例可知,Offset属性从所指定的单元格开始按指定的行数和列数偏移,从而到达目的单元格...
★★★ Offset、Range和 Resize 总结: ●6.Union 属性 连接二个不连续的区域: B3:D8, G10:I15 书写方法: Union(Sheet1.Range("B3:D8"),Sheet1.Range("G10:I15")) ●7. Usedrange属性 书写方法: Sheet1.Usedrange 注释: 1)确定Sheet1 的 已使用区域 2)该代码所表示的地址为:A1:D7 书写方法:Sheet...
Range("C5:D6").Offset(-3, 0).Select End Sub (5)Range对象的Resize属性 扩大或缩小指定的单元格区域,得到一个新的单元格 Sub rngresize() Range("B2").Resize(5, 4).Select End Sub Sub rngresize1() Range("B2:E6").Resize(2, 1).Select End Sub (6)Worksheet对象的UsedRange对象 返回工作表...
[示例12] 选取当前工作表中已用单元格(UsedRange属性) '选取当前工作表中已使用的单元格区域 Sub SelectUsedRange() MsgBox "选取当前工作表中已使用的单元格区域" _ & vbCrLf & "并显示其地址" ActiveSheet.UsedRange.Select MsgBox ActiveSheet.UsedRange.Address ...
Set Rng = ActiveSheet.UsedRange '总表的数据区域 Set Cll = ActiveSheet.Cells '用于在分表粘贴和总表同样行高列宽的数据格式 arr = Rng '数据范围装入数组arr tCol = tCol - Rng.Column + 1 '计算依据列在数组中的位置 aCol = UBound(arr, 2) '数据源的列数 For i = tRow + 1 To UBound(arr) ...
range对象的offset属性能整体偏移选择其它范围,并返回它的range对象。 VB中数组维度的问题 Ubound(array,dimenssion),获取指定数组的指定维度的维数上限。 Lbound(array,dimenssion),获取指定数组的指定维度的维数下限。 Application.DisplayAlerts函数 Application.DisplayAlerts = False,禁用OFFICE出错时的错误提示。
UsedRange 返回表中所有已使用单元格的区域,包括空单元格 Sheets().UsedRange 一般搭配 彻底清除语句 Cells.Clear / 清除内容 ClearContents 常见的用法 已用单元格的第一行行序数 UsedRange.Row 已用单元格区域的占用的行数 UsedRange.Rows.Count 已用单元格区域的最后一行的行序数UsedRange .Row+ UsedRange. Rows.Co...
UsedRange属性是Worksheet对象的一个属性,它返回指定工作表中己使用的单元格区域,无论各单元格之间是否有空行或者空列隔开,而CurrentRegion属性是Range对象的一个属性,返回的是一个由空行和空列围起来的区域,空行和空列之外的单元格不包括在内。 返回与指定类型和值区域的所有单元格: ...
ACE.OLEDB.12.0;Data Source=" & strPath '打开数据库strSql = "Select * From UserInfo WHERE 部门='办公室' " '设置查询语句rsADO.Open strSql, uADO, 1, 3 '执行查询Dim R As RangeSet R = ActiveSheet.Range("B2")ActiveSheet.UsedRange.ClearFor i = 0 To rsADO.Fields.Count - 1R.Offset(...