EXCEL 中 如何用VBA选择数据的最后两行?如何从让光标从B2到B3?_百度知...
发布网友
发布时间：2024-05-14 19:59
共2个回答
热心网友
时间：2024-06-02 05:57
无论你的数据在哪一列，也无论你的数据最后有多少空白行，都能确保选中最后一行数据及其上面一行，也就是选中最后两行了。
如果根本没有数据或只有第一行有数据，则只选中第一行。
Sub 选中最后两行()
On Error Resume Next
Application.ScreenUpdating = False
ActiveCell.SpecialCells(xlLastCell).Select
While WorksheetFunction.CountA(Rows(ActiveCell.Row())) = 0 _
And ActiveCell.Row() > 1
ActiveCell.Offset(-1, 0).Range("A1").Select
Wend
If ActiveCell.Row() > 1 Then
Range(Rows(ActiveCell.Row() - 1), Rows(ActiveCell.Row())).Select
Else
Range(Rows(ActiveCell.Row()), Rows(ActiveCell.Row())).Select
End If
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
有疑问，请Hi我或给我发百度消息
GoodLuck!
热心网友
时间：2024-06-02 05:56
Sub RowsSel()
Dim RowCou
RowCou = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Rows(RowCou - 1 & ":" & RowCou).Select
End Sub
