VBA学习⼼得⼀:关于获取某个sheet表最后⼀⾏的⾏号获取某个sheet表最后⼀⾏的⾏号,对于使⽤vba进⾏循环查是必经的过程:
通过我最近的学习发现2中⽅法进⾏使⽤,现在分享如下:
如下表格⽰例:
⽅法⼀:
Public Sub test()
Dim lastRow As Long
lastRow = Worksheets(1).Columns(1).Find("*", searchdirection:=xlPrevious).Row
MsgBox lastRow
End Sub
此时lastRow为16
⽅法⼆:
Public Sub test1()
Dim lastRow As Long
lastRow = Worksheets(1).UsedRange.Rows.Count
MsgBox lastRowvba自学好学吗
End Sub
此时lastRow为16
说明下⽅法⼀和⽅法⼆的区别:
⽅法⼀查询到最后⾏的⾮空单元格的⾏数
例如查第⼆列:
Worksheets(1).Columns(2).Find("*", searchdirection:=xlPrevious).Row的结果是15
⽽⽅法⼆是已经⽤的⾏数,即使第16⾏只⽤了⼀个单元格,使⽤的⾏数也是16
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论