EXCEL 中 如何用VBA选择数据的最后两行?如何从让光标从B2到B3?

如题目所说。。。我需要复制某个表的最后两行数据,表的行数不是固定的。。。
从B2到B3,是B2下移一格,不要说RANGE(B3).SELECT哦。。。

我写了一个非常通用的。

无论你的数据在哪一列,也无论你的数据最后有多少空白行,都能确保选中最后一行数据及其上面一行,也就是选中最后两行了。

如果根本没有数据或只有第一行有数据,则只选中第一行。

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!
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-11-03
看看这样是否可行:
Sub RowsSel()
Dim RowCou
RowCou = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.Rows(RowCou - 1 & ":" & RowCou).Select
End Sub

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网