在Excel宏中选择整个列减去标题行

8

我将如何访问与从第2行（存在标题行）开始的整个列相对应的范围？

选择的结尾应为该列中的最后一个非空单元格。

microsoft-excel macros vba

— 戴夫
source

5

请参阅Microsoft支持文章如何在Excel＃19（如何在列中选择一个连续单元格的整个范围）中如何使用Visual Basic过程选择单元格/范围。

— 彼得·莫滕森
source

即使超过300左右的所有内容都是空白，这也会在我正在使用的工作簿中选择超过一百万行。

— 戴夫

怎么样：Sub LastCellBeforeBlankInColumn（）/ Range（“ A1”）。End（xldown）.Select / End Sub

2

尝试这个：

Range(Range("A2"),Range("A2").End(xldown)).Select

或这个：

Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select

— 迈克尔·加洛斯
source

2

引用此SO答案，唯一安全的方法是.find()方法。
如果您以前删除了某些单元格，所有其他方法可能会给出错误的结果。

获取最后一个单元格的示例

Lastrow =  Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Lastcol =  Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

以及针对您问题的特定答案（假设您的数据位于第2列，从第2行开始）

Range([B2], [B:B].Find("*", [B1], , , xlByRows, xlPrevious)).select

在此处输入图片说明

— 尼克斯达
source

1

您可以使用Excel键盘快捷键。尝试Ctrl+ Home。

这会将您带到单元格A1（如果尚未使用冻结窗格）。向下移动一个单元格，然后使用Ctrl+ Shift+ Down arrow按钮进行选择，直到最后输入的行。

如果必须选择列值，请使用right arrow按钮而不是down arrow按钮。

— 彼得·莫滕森
source

0

这段代码平均除单元格“ B1”中的标头和标头外的所有内容

Dim GG as Long
GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))

— RWB
source