Cells(i, 2).EntireRow.Select Cells(i, 2).EntireRow.Interior.ColorIndex = 3 '设置背景颜色为红色 End If Next End Sub Ø 运行结果如所示：图 EntireRow属性获取某单元格的整行 Ø 代码说明：首先用for循环和if语句查找第二列（B列）等于3的单元格，然后用EntireRow 属性选择该行。
Columns("C:F").Select 6. 选中单元格B4, 下面的代码选中当前当前单元格B4所在的整行: ActiveCell.EntireRow.Select 7. 选中D7, 下面的代码在D7所在的列的第一个单元格中插入字符 “hello world"。 ActiveCell.EntireColumn.Cells(1).Value = "hello world" 8. 选中C6,下面的代码,在C6所在列的下一列的...
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. 同理，可以选...
Rows(1).Select '下面代码选择2到6行的连续行 Rows("2:6").Select '下面代码选择1到3,5到8的不连续行区域,其中逗号代表不连续,冒号代表连续 Range("1:3,5:8").Select '下面代码代表选择A2到D5单元格所在的行 Range("A2:D5").EntireRow.Select End Sub Sub 选择列区域()'下面代码表示选择第一列 ...
Select 以下是几个例子的代码。Sub selectRows()'连续整行选定 Range("A1:A10").EntireRow.Select '选择不连续多行 Range("A1,A3,A5:A8").EntireRow.Select '选择连续有数据的行 r = ActiveSheet.Cells(Rows.Count, 1).End(3).Row Range("A1:A" & r).EntireRow.Select End Sub Sub...
Range("c4:f5").EntireRow.Select End Sub '5 表示列 Sub L() 'EntireColumn 属性 ' Columns(1).Select ' Columns("A:B").Select ' Range("A:B,D:E").Select Range("c4:f5").EntireColumn.Select '选取c4:f5所在的行 End Sub '6 表示正在选取的单元格区域 ...
Cells(ActiveSheet.usedrange.Rows.Count + ActiveSheet.usedrange.Row - 1, ActiveSheet.usedrange.Columns.Count + ActiveSheet.usedrange.Column - 1).EntireRow.Select '已使用区域最后一行整行,包括隐藏行 Cells(ActiveSheet.usedrange.Rows.Count + ActiveSheet.usedrange.Row - 1, ActiveSheet.usedrange.Columns.Count...
Cells.Select'选中所有单元 Union(Range(Cells(1, 1),Range(Cells(3, 1))) '范围联合 cells(1,1) ‘单元格A1 EntireRow.Insert'整行插入 Range.CurrentRegion '返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域),该区域为活动单元格附近不为空的单元格范围,该范围截止区域为空行...