Виберіть цілий стовпець мінус рядок заголовка в макросі Excel

8

Як я можу отримати доступ до діапазону, який відповідає цілому стовпцю, починаючи з другого рядка (є заголовок)?

Кінцем виділення має бути остання не порожня комірка у стовпці.

microsoft-excel macros vba

— Дейв
джерело

5

Дивіться статтю служби підтримки Microsoft Як вибрати комірки / діапазони за допомогою процедур Visual Basic в Excel , №19 ( Як вибрати весь стовпчик суміжних клітин у стовпчику ).

— Пітер Мортенсен
джерело

Це вибирає понад мільйон рядків у робочій книжці, яку я використовую, навіть якщо все, що перевищує 300, є порожнім.

— Дейв

як щодо: Sub LastCellBeforeBlankInColumn () / range ("A1"). End (xldown) .Selelect / 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

— Майкл Галос
джерело

2

Посилаючись на цю відповідь ТА , єдиним безпечним методом є .find()метод.
Усі інші методи можуть дати неправильні результати, якщо ви попередньо видалили деякі комірки.

Приклад для отримання останніх комірок

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

І конкретна відповідь на ваше запитання (якщо припустити, що ваші дані є у графі 2, починаючи з другого рядка)

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

введіть тут опис зображення

— nixda
джерело

1

Ви можете використовувати комбінації клавіш Excel. Спробуйте Ctrl+ Home.

Це перенесе вас до комірки A1 (якщо ви не використовували панель заморожування). Спустіть одну клітинку вниз, а потім за допомогою кнопок Ctrl+ Shift+ Down arrowвиберіть до останнього введеного рядка.

Якщо вам потрібно вибрати значення стовпця, використовуйте right arrowкнопку замість down arrowкнопки.

— Пітер Мортенсен
джерело

0

Цей фрагмент коду в середньому містить усе, крім заголовка із заголовком у комірці "B1"

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

— RWB
джерело