Переместить на край области данных, игнорируя пустые формулы

У меня есть таблица Excel, которая имеет 100000 строк формулы ( колонка С ), который будет применяться, ссылаясь на данные, которые я вставляю на колонка А , Когда я хочу скопировать список результатов, я выбираю ячейку С1 а также Ctrl + сдвиг + вниз выбрать весь диапазон, а затем я Ctrl + с ,

Проблема, с которой я сталкиваюсь, заключается в том, что пустые ячейки с формулой по-прежнему считаются имеющими значение Так что, если я вставлю только 97000 строк на колонка А когда я хочу выбрать данные из колонка С Я не могу использовать Ctrl + сдвиг + вниз правильно, так как он выбирает все вплоть до C100000. Есть ли способ игнорировать ячейки с формулами, где вычисленное значение является пустым или не существует при перемещении ячеек или выбора диапазона ?

Вы могли бы использовать Find инструмент для Find All Значения в столбце. затем Ctrl-A выбрать их всех. Но с 100 000 предметов (или 97 000) это займет довольно много времени Или вы можете использовать короткий макрос VBA для выбора диапазона.

Или вы можете использовать приведенный ниже макрос, который написан так, чтобы расширить любую ячейку, в которой находится курсор, чтобы включить все ячейки в столбце от первой до последней ячейки, в которой отображаются данные.

Он может быть жестко запрограммирован для определенного столбца, и вы можете даже включить последовательность копирования / вставки значений в макрос, если хотите.

Option Explicit

Sub SelectWithValues()
    Dim R As Range
    Dim LastRow As Long

With Columns(Selection.Column)
    Set R = .Cells.Find(what:="*", after:=.Cells(1, 1), _
                        LookIn:=xlValues, searchorder:=xlByRows, _
                        searchdirection:=xlPrevious)
    If Not R Is Nothing Then
        Set R = Range(Cells(1, R.Column), R)
        R.Select
    End If
End With

End Sub

Чтобы ввести этот макрос (Sub), alt-F11 открывает редактор Visual Basic. Убедитесь, что ваш проект выделен в окне Project Explorer. Затем в верхнем меню выберите «Вставить / Модуль» и вставьте приведенный ниже код в открывшееся окно.

Чтобы использовать этот макрос (Sub), убедитесь, что курсор находится в столбце, который вы хотите выбрать. alt-F8 открывает диалоговое окно макроса. Выберите макрос по имени и RUN,