E-VBA单元格操作实例.docVIP

　1. 查找最后一个单元格 Sub　GetLastCell()　　　Dim　RealLastRow　As　Long　　　Dim　RealLastColumn　As　Long　　　　　　Range(A1).Select　　　On　Error　Resume　Next　　　RealLastRow　=　Cells.Find(*,　Range(A1),　xlFormulas,　,　xlByRows,　xlPrevious).Row　　　RealLastColumn　=　Cells.Find(*,　Range(A1),　xlFormulas,　,　xlByColumns,　xlPrevious).Column　　　Cells(RealLastRow,　RealLastColumn).SelectEnd　Sub 　　该示例用来查找出当前工作表中的最后单元，并将其选中，主要使用了Cells对象的Find方法，有关该方法的详细说明读者可以参考Excel自带的帮助文档，搜索Cells.Find，见Range.Find方法的说明。 　　2. 判断一个单元格是否为空 Sub　ShadeEveryRowWithNotEmpty()　　Dim　i　As　Integer　　i　=　1　　Do　Until　IsEmpty(Cells(i,　1))　　　　Cells(i,　1).EntireRow.Interior.ColorIndex　=　15　　　　i　=　i　+　1　　LoopEnd　Sub 　　IsEmpty函数本是用来判断变量是否已经初始化的，它也可以被用来判断单元格是否为空，该示例从A1单元格开始向下检查单元格，将其所在行的背景色设置成灰色，直到下一个单元格的内容为空。 　　3. 判断当前单元格是否为空的另外一种方法 Sub　IsActiveCellEmpty()　　　　Dim　sFunctionName　As　String,　sCellReference　As　String　　　　sFunctionName　=　ISBLANK　　　　sCellReference　=　ActiveCell.Address　　　　MsgBox　Evaluate(sFunctionName　　(　　sCellReference　　))End　Sub 　　Evaluate方法用来计算给定的表达式，如计算一个公式Evaluate(Sin(45))，该示例使用Evaluate方法计算ISBLANK表达式，该表达式用来判断指定的单元格是否为空，如Evaluate(ISBLANK(A1))。 　　4. 一个在给定的区域中找出数值最大的单元格的例子 Sub　GoToMax()　　　　Dim　WorkRange　As　range　　　　If　TypeName(Selection)　　Range　Then　Exit　Sub　　　　If　Selection.Count　=　1　Then　　　　　　　　Set　WorkRange　=　Cells　　　　Else　　　　　　　　Set　WorkRange　=　Selection　　　　End　If　　　　MaxVal　=　Application.Max(WorkRange)　　　　On　Error　Resume　Next　　　　WorkRange.Find(What:=MaxVal,　_　　　　　　　　After:=WorkRange.range(A1),　_　　　　　　　　LookIn:=xlValues,　_　　　　　　　　LookAt:=xlPart,　_　　　　　　　　SearchOrder:=xlByRows,　_　　　　　　　　SearchDirection:=xlNext,　MatchCase:=False　_　　　　　　　　).Select　　　　If　Err　　0　Then　MsgBox　Max　value　was　not　found:　　_　　　　　　MaxValEnd　Sub 　　5. 使用数组更快地填充单元格区域 Sub　ArrayFillRange()　　　　Dim　TempArray()　As　Integer　　　　Dim　TheRange　As　range　　　　CellsDown　=　3　　　　CellsAcross　=　4　　　　StartTime　=　timer　　　　ReDim　TempArray(1　To　CellsDown,　1　To　CellsAcross)　　　　Set　TheRange　=　ActiveCell.range(Cells(1,　1),　Cells(CellsDown,