工作表中的单元格区域的vba小结.doc

《工作表中的单元格区域的vba小结.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、工作表中的单元格区域的vba小结杨绍宣整理引用当前工作表中的整行或整列？(1)Range("C:C").Select，表示选择C列。Range("C:E").Select，表示选择C列至E列。(2)Range("1:1").Select，表示选择第一行。Range("1:3").Select，表示选择第1行至第3行。(3)Range("C:C").EntireColumn，表示C列；Range("D1").EntireColumn，表示D列。同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。在VBA代码中，如何引用当前工作表中的所有单元

2、格？(1)Cells，表示当前工作表中的所有单元格。(2)Range(Cells(1,1),Cells(Cells.Rows.Count,Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。在VBA代码中，如何引用工作表中的特定单元格区域？回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：(1)Worksheets("sheet1").Cells.Special

3、Cells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可

4、，例如：(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。其它的一些情形回答：列举如下：(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。(2)Cells(,256)，表示单元格IV1，但是如果C

5、ells(,257)，则会返回错误。找到最后一行的一些方法探讨使用End属性在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担心会覆盖掉已有数据。但该方法有两个缺点：(1)仅局限于查找指定列的最后一行。(2)如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。因此，在最后一行被隐藏时，其数据可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。[示例代码01]SubEndxlUp_OneColLastRow()IfRan

6、ge("A"&Rows.Count).End(xlUp)=EmptyThenGoToFinish'获取最后一行MsgBox"最后一行是第"&Range("A"&Rows.Count).End(xlUp).Row&“行.”ExitSubFinish:MsgBox"没有发现公式或数据!"EndSub[示例代码02]SubNextRowInColumnUsedAsSub()'包含所有数据和公式，忽略隐藏的最后一行Range("A"&Range("A"&Rows.Count).End(xlUp).Row+1).SelectEndSub[示例代码03]SubNextRowInC

7、olumnUsedAsFunction()'包含所有数据和公式，忽略隐藏的最后一行Range("A"&LastRowInColumn("A")+1).SelectEndSubPublicFunctionLastRowInColumn(ColumnAsString)AsLongLastRowInColumn=Range(Column&Rows.Count).End(xlUp).RowEndFunction注意，要输入新数据的列可能与我们所查找最后一行时所使用的列不同，例如，在上例中，我们可以修改为在B列中查找该列的最后一行，而在A列相应行的下一行中输入