4、n = Range(Column & Rows.Count).End(xlUp).Row End Function 注意,要输入新数据的列可能与我们所查找最后一行时所使用的列不同, 例如,在上例中,我们可以修改为在 B列中查找该列的最后一行,而在 A 列相 应行的下一行中输入新的数据。使用 Find 方法Find 方法在当前工作有数据中进行查找,不需要指定列...
Public Function LastRowInColumn(Column As String) As Long LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function 注意,要输入新数据的列可能与我们所查找最后一行时所使用的列不同,例如,在上例中,我们可以修改为在B列中查找该列的最后一行,而在A列相应行的下一行中输入新的数据。
(A) + 1).Select End Sub Public Function LastRowInColumn(Column As String) As Long LastRowInColumn = Range(Column Rows.Count).End(xlUp).Row End Function 注意,要输入新数据的列可能与我们所查找最后一行时所使用的列不同,例如,在上例中,我们可以修改 为在 B 列中查找该列的最后一行,而在 A ...
PublicFunctionLastRowInColumn(ColumnAsString)AsLong LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function 使用Find方法 Find方法在当前工作有数据中进行查找,不需要指定列,也可以确保不会意外地覆盖掉已有数据。其中,参数LookIn指定所查找的类型,有三个常量可供选择,即xlValues、xlFormulas和x...
LastRow = ix EndFunction 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. ref: http:///how-to-find-the-last-row-that-contain-data-in-excel.html http:///get-position-of-last-column-containing-data-with-excel-vba.html
在Excel内部打开VBA 以及在运行之前需要开启一下家开发人员的安全性 打开的页面可能是这样，不要慌 可以...
Public Function LastRowInColumn(Column As String) As Long LastRowInColumn = Range(Column & ).End(xlUp).Row End Function 注意,要输入新数据的列可能与我们所查找最后一行时所使用的列不同,例如,在上例中,我们可以修改为在B列中查找该列的最后一行,而在A列相应行的下一行中输入新的数据。 --- ...
For Each rngRow InRange("A1:C10").Rows '如果是偶数行则将字体加粗 If rngRow.Row Mod 2 = 0 Then rngRow.Font.Bold = True End If Next rngRow End Sub Column属性的用法与Row属性相似,在此不再哆嗦。 --- 如果您...
参数RowAbsolute设置为True,则返回的地址行部分为绝对引用。默认值为True。 参数ColumnAbsolute设置为True,则返回的地址的列部分为绝对引用。默认值为True。 参数ReferenceStyle设置返回的地址的引用样式,可以设置为xlA1(A1样式)或xlR1C1(R1C1样式)。默认值为xlA1。
Row属性 使用Row属性可以返回单元格所在行的行号,或者单元格区域中第一行所在的行号。看看下面的代码: Range('B2').Row 返回数值2,表示单元格B2处于工作表第2行。 Range('C3:E5').Row 返回数值3,表示单元格区域C3:E5的第一行处于工作表的第3行。 咋一看,你可能会疑惑,这不是很明显吗,从单元格的表示就...