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

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

1 个答案: