一、相关解释和帮助 Window.ActiveCell 属性 返回一个 Range 对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。如果窗口中没有显示工作表，此属性无效。只读。语法 表达式.ActiveCell 表达式 一个代表 Window 对象的变量。说明 如果不指定对象识别符，此属性返回活动窗口中的活动单元格。请仔细区分...
一、相关解释和帮助 Window.ActiveCell属性 返回一个Range对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。如果窗口中没有显示工作表，此属性无效。只读。语法 表达式.ActiveCell 表达式一个代表Window对象的变量。说明 如果不指定对象识别符，此属性返回活动窗口中的活动单元格。请仔细区分活动单元格和...
Worksheets("sheet1").Range("A1").CurrentRegion.Value=Worksheets("sheet1").Range("A1").CurrentRegion.Value End Sub 执行之后,工作表中单元格A1所在当前区域中的空白单元格被相应数据填充,如下图。 ‚如下图,对第三列进行降序排序。 代码如下: SubtestSort() DimrngAsRange Setrng=Worksheets("sheet1"...
ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub Sub SelectCurrentRegion() 选择激活的区域 ActiveCell.CurrentRegion.Select End Sub Sub SelectActiveArea() 选择激活的特定区域 Range(Range(A1), ActiveCell.SpecialCells(xlLastCell)).Select End Sub Sub ActivateNextBlankDown() 说明:假定A1...
, "Error" Exit Sub End If Selection.PrintOut From:=startpage, _ To:=endpage, Copies:=1, Collate:=True End Sub 您可以使用此代码来打印自定义页面范围,而不是使用打印选项中的设置。假设您要打印从 5 到 10 的页面。您只需要运行此VBA代码并输入起始页和结束页即可。工作表代码 这些宏代码将帮助您...
Sub ActivateNextBlankToRight() '选择本行的第一个空单元格 ActiveCell.Offset(0, 1).Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(0, 1).Select Loop End Sub Sub SelectFirstToLastInRow() '选择有数据的本行 Set LeftCell = Cells(ActiveCell.Row, 1) Set RightCell = Cells(ActiveCell...
Set rng = Application.InputBox("Range:", Type:=8) If rng.Cells.Count <> 3 Then MsgBox "Length, width and height are needed -" & _ vbLf & "please select three cells!" Exit Sub End If 'Call MyFunction by value using the active cell. ...
xlCellTypeSameValidation 有相同数据校验准则的单元格。 xlCellTypeVisible 所有可见单元格。 第二个参数为可选参数。如果xlCellType为xlCellTypeConstants或xlCellTypeFormulas 之一,该参数用于确定结果中应包含哪些类型的单元格。将某几个值相加可使此方法返回多种形态的单元格。默认情况下将指定所有常数或公式,对其形态则...
Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells(i, 1).Value = Sheets(i).Name Next i '本示例将第十行移到窗口的最上面? Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 10 '当计算工作簿中的任何工作表时,本示例对第一张工作表的 A1:A100 区...
在下拉菜单中选择“Go To Special…” ,在对话框中选择“Current region”。 有关使用CurrentRegion的一些例子: 在下图中,要使用空白单元格上方的有数据的单元格中的数据来填充空白单元格。 代码如下, SubFillBlankCells() Worksheets("sheet1").Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1...