第4章Range(单元格)对象选取单元格[A1].Select[A1:D8].Select[A1:D8,A20:C25,F6:G10].Select[A:A].Select[A:D].Select[A:A,C:C,H:H].Select[1:1].Select[5:20].Select[1:1,3:3,5:5].SelectCells.Select选取与某值不同的单元格Sheets(1).Columns("A").ColumnDifferences(Comparison:=Sheets(1).[A1]).Select合并单元格区域 Union(Range("A1:B10"),Range("D1:E10"),Range("G1:G10"))Range(Range("A1:B10"),Range("D1:E10"),Range("G1:G10"))活动单元格ActiveCell已用的单元格ActiveSheet.UsedRange空行围成的单元格[a1].CurrentRegion.Rows.Cells可视单元格区域 ActiveWindow.VisibleRange公式引用的单元格[a1].PrecedentsApplication.Evaluate([a1].Formula)从属单元格[a1].Dependents特殊单元格选取 Activesheet.cells.SpecialCells(x,y).Selectx为:xlCellTypeAllFormatConditionsxlCellTypeAllValidationxlCellTypeBlanksxlCellTypeCommentsxlCellTypeLastCellxlCellTypeVisible可见xlCellTypeSameFormatConditionsxlCellTypeSameValidationxlCellTypeConstantsxlCellTypeFormulas当x为xlCellTypeConstants或xlCellTypeFormulas时y为:xlErrorxlLogicalxlNumbersxlTextValues偏移单元格[a1].Offset(x,y)调整单元格Resize(x,y)单元格总数Sheet(1).Cells.CountA列最后非空一行Range("A65536").End(xlUp).Row第一行最后非空一列Range("IV1").End(xlToLeft).Column隐藏行列[a1].EntireRow.Hidden=True/False[a1].EntireColumn.Hidden=True/FalseRows(1).Hidden=True/FalseColumns(1).Hidden=True/FalseRows.Hidden=True/FalseCells.Rows.Hidden=True/FalseColumns.Hidden=True/False设置行高列宽[A1].RowHeight=n[A1].ColumnWidth=n设置列宽行高(厘米) Application.CentimetersToPoints(1)Application.CentimetersToPoints(2)设置列宽行高(英寸) Application.InchesToPoints(1)Application.InchesToPoints(0.5)自动调整单元格[A1].EntireColumn.AutoFit[A1].EntireRow.AutoFit设置滚动区域Sheets(1).ScrollArea=[a1]Sheets(1).ScrollArea=""输入公式[a1].Formula="=TODAY()"是否有公式单元格[a1].HasFormula=True/False是否有数组公式单元格[a1].HasArray=True/False设置为数组公式[A1].FormulaArray="数组公式"单元格引用样式[A1].Address[A1].Address(False,False)[A1].Address(RowAbsolute:=False)[A1].Address(ColumnAbsolute:=False)[A...