Range("A1").CurrentRegion.Borders.LineStyle = xlDouble '引用A1单元格所在的连续区域,并设置双线边框 ThisWorkbook.Worksheets("Sheet1").UsedRange ' 引用整个工作表的区域 动态引用和调整区域 Set rng1 = Range("B2:D4") Set rng2 = rng1.Offset(2, 2) '引用rng1单元格区域向下偏移2行,向右偏移2列的...
lastRow = ws.UsedRange.Rows.CountSet rng = ws.Range("B2:E" & lastRow)For Each cell In rng If InStr(cell.Value, "电话") Then cell.Offset(0, 1).NumberFormatLocal = "@" End If If InStr(cell.Value, "社区") Then cell.Offset(0, -1).Value = .ListItems(i).SubIte...
新区域把该对象最左上角的单元格当成自己左上角第一个单元格 8.Worksheet对象的UsedRange属性 UsedRange属性返回工作表中已经使用的单元格围成的矩形区域(不管这些区域间是否有空行,空列或空单元格)。 执行结果: 9.Range对象的CurrentRegion属性 CurrentRegion返回当前区域,即以空行和空行的组合为边界的区域 执行结果: ...
rs = st.UsedRange.Rows.Count ' 计算1-3月份每个表的最后一行 rss = zst.UsedRange.Rows.Count + 1 '计算“1季度的最后一行的下一行” st.Range("a2:b" & rs).Copy zst.Cells(rss, 1) '复制1-3表的数据到总表中 zst.Cells(rss, 3).Resize(rs - 1) = i & "月" '将1-3表的工作表名写...
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属性是Worksheet对象的一个属性,它返回指定工作表中己使用的单元格区域,无论各单元格之间是否有空行或者空列隔开,而CurrentRegion属性是Range对象的一个属性,返回的是一个由空行和空列围起来的区域,空行和空列之外的单元格不包括在内。 返回与指定类型和值区域的所有单元格: ...
回答:可以使用UsedRange属性,例如: (1) Activesheet.UsedRange,表示当前工作表中已使用的区域。 (2) Worksheets("sheet1").UsedRange,表示工作表sheet1中已使用的区域。 与CurrentRegion属性不同的是,该属性代表工作表中已使用的单元格区域,包括显示为空行,但已进行过格式的单元格区域。该属性的详细使用参见《解析Used...
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(...
1、定义一个Range对象。Dim rng As Range 2、引用Range对象 ,假设我们定义了一个工作表对象ws。Set rng = ws.Range("A1:B2")Set rng = ws.Range("C1")Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(3, 3)).Set rng = ws.UsedRangeSet rng = ws.Range("A1").CurrentRegion 3、批注:Set ...