查找选定列数的最后一行,不能使用end(xldown)

时间:2014-08-23 13:09:10

标签: vba excel-vba excel

我有一组列(excel表上的列:“C:I”),我想选择最后一个单元格。问题是我不能使用xldown,因为列的开头有一些空白单元格......

如何有效地选择最后一行?我正在尝试Range(“C1:I1”)。rows.end(xldown)但它在空的那个之后的最后一个非空单元格的开头就被卡住了。

2 个答案:

答案 0 :(得分:2)

适用于单个列的示例:

Sub findLastCellInColumnA()

Dim lstRow As Integer
lstRow = Cells(Rows.Count, 1).End(Excel.xlUp).Row
Cells(lstRow, 1).Select

End Sub

答案 1 :(得分:2)

如果以不规则的方式填充列,则:

Sub qwerty()
    Dim N As Long, M As Long, mm As Long
    M = 0
    For N = 3 To 9
        mm = Cells(Rows.Count, N).End(xlUp).Row
        If mm > M Then
            M = mm
        End If
    Next N
    Cells(M, 1).EntireRow.Select
End Sub

例如:

see

请注意吸引力:

Sub dural()
    Range("C:I").Cells.SpecialCells(xlCellTypeLastCell).Select
    Selection.EntireRow.Select
End Sub

错误地选择第18行!