如何选择活动范围内的最后一个单元格?

Question

我需要选择指定范围内的最后一个单元格。

我正在从数据库中提取数据。 我成功地转到正确的工作表，找到并选择可变数量的经理(从"经理数量"开始两行。 现在我只需要选择活动单元格的最后一行并在下面运行我的 If 语句。

Windows("MCS Cumulative_Data.xls").Activate
Sheets("Sheet 12").Select
Range("A1").Select
Cells.Find(What:="Number of Managers", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(2, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

'代码的一部分，但不容置疑。

ActiveCell.Offset(0, 1).Select
If ActiveCell.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"  
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "0"
Else
End If

我已经尝试了其他问题的大约 15 种不同的 Dim 语句。 他们似乎都接近问我是什么，但不完全是。

Answer 1

">

如何避免选择"(以及其他一些小技巧(的一个可能示例，会将代码"折叠"为以下内容：

With Workbooks("MCS Cumulative_Data.xls").Sheets("Sheet 12")
With .Cells.Find(What:="Number of Managers", After:=.Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Offset(2, 0).End(xlDown).Offset(0, 1)            
If .Value = vbNullString Then .Resize(1, 13).Value = "0"                        
End With
End With

Answer 2

这个怎么样：

lastrow = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count 'gets the last row from active cell
NumRow = ActiveCell.Row 'gets the colum the active cell is in
Cells(lastrow, NumRow).Select 'selects that cell

Answer 3

ActiveCell.End(xlDown(.选择

不会选择所选组中的最后一个卖出，但会抓取我需要的单元格。