从ActiveCell选择列中的第一个单元格。 列中的数据包括空白

Question

我有一张工作表中的数据在第一栏中不包含任何空白。 后续列包含空白。 我需要将单个列设置为几个范围变量。 我遇到的问题是使用“ xlUp”在第一个空白处停止。

有什么建议吗？

这是一些示例代码。 我正在注释掉我一直试图使它起作用的行（复制行是这样，所以我可以粘贴到空白表中以查看正在选择的行。）

Sub Test_Subject_Ranges()
    Sheets("Current Day Raw").Select
    ActiveSheet.Range("A1").Select    
    Range("A1").End(xlDown).Select                 'Takes me to the bottom of my data.
    ActiveCell.Offset(0, 11).Select                'Takes me to the column I need here.
==> Range(ActiveCell, ActiveCell.End(xlUp)).Select 'The problem line.
    Dim CurrentDayPALessonsPassed As Range
    Set CurrentDayPALessonsPassed = Selection
    Selection.Copy
End Sub

Answer 1

这将从ActiveCell到它所在的列的顶部选择所有单元：

Sub ToTheTop()
    Range(ActiveCell, ActiveCell.EntireColumn.Cells(1)).Select
End Sub