Union(Range("A1:B2", Range(C3:D4")).Select ' 选定多块区域。 Range.Areas属性将多区域选定内容拆分为单个的Range对象,并将对象返回为一个集合。 x = Selection.Areas.Count ' 返回多区域选定内容中的连续区域单元格的数量。 Range.CurrentRegion属性返回一个Range对象,该对象表示当前区域(当前区域是以空行与...
Range("A1").EntireRow 获取当前行 Range("A1").EntireColumn 获取当前列Range("A10").EntireColumn Range("C5").End(xlUp).Select'等效于ctrl+上方向键 Range("C5").End(xlDown).Select'等效于ctrl+下方向键 Range("C5").End(xlToLeft).Select'等效于ctrl+左方向键 Range("C5").End(xlToRight).Select'...
Range("A1:C3").Borders.LineStyle= xlDouble '清除边框线 Range("A1:C3").Borders.LineStyle= xlLineStyleNone 效果演示如图3所示。 图3 可以在VBA帮助中查找获取代表线条样式的VBA常量值。 '设置单元格区域内某类边框(而不是四个边框)的 '线条样式、颜色和宽度 With Range("A1:C3").Borders(xlInsideHorizon...
8 每隔一行插入空行 代码Sub Insert_Row_After_Every_Other_Row()Dim rng As RangeDim CountRow As IntegerDim i As IntegerSet rng = SelectionCountRow = rng.EntireRow.CountFor i = 1 To CountRowActiveCell.EntireRow.InsertActiveCell.Offset(2, 0).SelectNext iEnd Sub
Dim lLastRow As Long lLastRow=Sheet1.Range("B"&Cells.Rows.Count).End(xlUp).Row Set rRange=Sheet1.Range("B2:B"&lLastRow)For Each rCell In rRange If rCell.Offset(0,-1).Value Then rCell.EntireRow.Hidden=True End If Next rCell ...
ActiveCell.EntireRow.Select '选择这个单元格所在的整行 ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 2 ’选择任意一个单元格,然后将值2输入到包含活动单元格的行下面的第一个单元格中。 ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate '激活 Sheet1 上活动单元格右移三列且下移三行...
Excel VBA中使用Range时,有一个EntireRow的属性,以Range单元格为基准选择整行。 1. 打开Visual Basic,添加模块和过程,称之为“单元格操作4”。 Sub 单元格操作4() End Sub2. 如图所示,选中A1单元格所在整行。…
Excel VBA中使用Range时，有一个EntireRow的属性，以Range单元格为基准选择整行。1. 打开Visual Basic，添加模块和过程，称之为“单元格操作4”。Sub 单元格操作4() End Sub 2. Range单元格后通过EntireRow选中A1单元格所在整行。Sub 单元格操作4() Range("A1").EntireRow.Select End Sub 3. 同理，可以...
Excel VBA中使用Range时，有一个EntireRow的属性，以Range单元格为基准选择整行。工具/原料 电脑 2019 Excel 方法/步骤 1 打开Visual Basic，添加模块和过程，称之为“单元格操作4”。2 如图所示，选中A1单元格所在整行。3 同理，可以选中单元格所在行，也可以选中其所在列，把EntireRow改成EntireColumn即可。4 ...