最新用VBA在Excel中找寻最后一行的方法

用VBA在Excel中找寻最后一行的方法：使用End属性 在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在

VBAExcel 用在中找寻最后一行的方法： End 使用属性 ExcelVBAEnd(xlUp) 在中，使用查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有 () 数据数字、文本和公式等，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担忧 会覆盖掉已有数据。但该方法有两个缺点： (1) 仅局限于查找指定列的最后一行。 (2) 如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。因此，在最后一行被隐藏时，其数据 可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。 [01] 例如代码 Sub EndxlUp_OneColLastRow() If Range("A" &Rows.Count).End(xlUp) =Empty Then GoTo Finish ' 获取最后一行 MsgBox "" &Range("A" &Rows.Count).End(xlUp).Row &“. Exit Sub 最后一行是第行〞 Finish: MsgBox "! " 没有发现公式或数据 End Sub [02] 例如代码 Sub NextRowInColumnUsedAsSub() ' 包含所有数据和公式，忽略隐藏的最后一行 Range("A" &Range("A" &Rows.Count).End(xlUp).Row +1).Select End Sub [03] 例如代码 Sub NextRowInColumnUsedAsFunction() ' 包含所有数据和公式，忽略隐藏的最后一行 Range("A" &LastRowInColumn("A") +1).Select End Sub '- -- -- -- -- -- -- -- -- -- -- -- -- Public Function LastRowInColumn(Column As String) As Long LastRowInColumn =Range(Column &Rows.Count).End(xlUp).Row End Function 注意，要输入新数据的列可能与我们所查找最后一行时所使用的列不同，例如，在上例中，我们可以修改 BA 为在列中查找该列的最后一行，而在列相应行的下一行中输入新的数据。 -------------------------------------------------------------------------------- Find 使用方法 Find 方法在当前工作有数据中进行查找，不需要指定列，也可以确保不会意外地覆盖掉已有数据。其中， LookInxlValuesxlFormulasxlComments 参数指定所查找的类型，有三个常量可供选择，即、和。 (1) xlFormulas( 常量将包含零值的单元格作为有数据的单元格。当设置零值不显示时，该单元格看起来为 ) 空，但该参数仍将该单元格视为有数据的单元格 (2) xlValues() 常量将包含零值的单元格如果设置零值不显示时作为空白单元格，此时，假设该单元格在最 Find 后一行，那么方法会认为该单元格所在的行为空行，因此，该单元格中的内容可能会被新数据所覆盖。 [Excel“——“““ 注：在中，选择菜单工具〞选项〞，在翻开的选项〞对话框中，选择视图〞选项卡，将 “] 其中的零值〞前的复选框取消选中，那么工作表中的零值都不会显示 LookInxlValuesFind 如果在参数中使用常量的话，还存在一个问题是：如果您将最后一行隐藏，那么方 法会认为倒数第二行是最后一行，此时您在最后一行的下一行输入数据，那么会将实际的最后一行的数据 s e v e r a l g r o u p n u m b e r , t h e n w i t h b ± a , = c , c i s i s m e t h y l b t w o v e r t i c a l b o x b e t w e e n o f a c c u r a t e s i z e . P e r - 2 ~ 3 m e a s u r e m e n t , s u c h a s p r o c e e d s o f c v a l u e s a r e e q u a l a n d e q u a l t o t h e d e s i g n v a l u e , t h e n t h e v e r t i c a l i n s t a l l a t i o n a c c u r a t e . F o r e x a m p l e a , b , a n d c v a l u e s w h i l e o n h o r i z o n t a l v e r t i c a l e r r o r s f o r m e a s u r e m e n t , G e n e r a l i n i r o n a n g l e c o d e b i t a t m e a s u r e m e n t l e v e l p o i n t s g r i d e r r o r s , s p e c i f i c m e t h o d i s f r o m b a s e l i n e t o m e t h y l v e r t i c a l b o x c e n t e r l i n e d i s t a n c e f o r a , , t o b v e r t i c a l b o x d i s t a n c e f o r b , l i s t c a n m e a s u r e d