select包含空白的列中的所有数据

我想要select一个范围，该范围需要包含未知数量的空白单元格的列（不包括标题）中的所有数据。 我试过了：

Columns("E:E").Select Range(Selection, Selection.End(xlUp)).Offset(1).Select 

但它似乎并没有工作。 有什么build议么？

Answer 1

考虑：

 Sub dural() Dim cl As String cl = "E" N = Cells(Rows.Count, cl).End(xlUp).Row Range(cl & "2:" & cl & N).Select End Sub 

Answer 2

尝试这个

 Range("E2:E" & Cells.SpecialCells(xlCellTypeLastCell).Row).Select 

当然，如果您愿意的话，您可以添加一个variables来代替E ，但是从第2行开始，只要input了数据，就会突出显示。