示例Visual Basic for Applications (VBA) 宏 Sub ConcatColumns() Do While ActiveCell <> "" 'Loops until the active cell is blank. 'The "&" must have a space on both sides or it will be 'treated as a variable type of long integer. ActiveCell.Offset(0, 1).FormulaR1C1 =...
示例Visual Basic for Applications (VBA) 宏 Sub ConcatColumns() Do While ActiveCell <> "" 'Loops until the active cell is blank. 'The "&" must have a space on both sides or it will be 'treated as a variable type of long integer. ActiveCell.Offset(0, 1).FormulaR1C1 = _ ActiveCell...
SubSelectDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub '从当前单元格到最右端(等同于xlEnd) SubSelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub '从当前单元格到最左端 SubSelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub 7. 当前...
' 行是注释。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 ' Highlight the active cell Target.Interior.ColorIndex = 36 Application.ScreenUpdating = True End Sub 2. 高亮选中单元格...
一、相关解释和帮助 Window.ActiveCell 属性 返回一个 Range 对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。如果窗口中没有显示工作表，此属性无效。只读。语法 表达式.ActiveCell 表达式 一个代表 Window 对象的变量。说明 如果不指定对象识别符，此属性返回活动窗口中的活动单元格。请仔细区分...
ActiveCell.offset(1, 0).Select Loop While ActiveCell.value <> Empty End Sub Sub SelectActiveColumn() '选择激活的单元格所在的列 If IsEmpty(ActiveCell) Then Exit Sub On Error Resume Next If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell = ActiveCell Else Set TopCell = ActiveCell.End...
vbLf & "please select three cells!" Exit Sub End If 'Call MyFunction by value using the active cell. ActiveCell.Value = MyFunction(rng) End Sub Function MyFunction(rng As Range) As Double MyFunction = rng(1) * rng(2) * rng(3) ...
Range("1:4").Select ' 选择第1到4行 Range("A:C").Select ' 选择A到C列 Range("A:C").EntireColumn.Insert ' 在第1列左边插入三列空白列 使用Cells(row, column)(其中 row 是行号,column 是列标)可返回一个单元格。当工作表激活以后,使用 Cells 属性时不必明确声明工作表(它将返回活动工作表上的...
(-1, 0)) Then Set TopCell = ActiveCell Else Set TopCell = ActiveCell.End(xlUp) If IsEmpty(ActiveCell.Offset(1, 0)) Then Set BottomCell = ActiveCell Else Set BottomCell = ActiveCell.End(xlDown) Range(TopCell, BottomCell).Select End Sub Sub SelectActiveRow() 选择激活的单元格所在的行 ...
一、相关解释和帮助 Window.ActiveCell属性 返回一个Range对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。如果窗口中没有显示工作表，此属性无效。只读。语法 表达式.ActiveCell 表达式一个代表Window对象的变量。说明 如果不指定对象识别符，此属性返回活动窗口中的活动单元格。请仔细区分活动单元格和...