Найти последний столбец

Question

У меня есть следующий код:

Last_Column = 0
On Error Resume Next
Last_Column = Sheets("Combined").Cells.Find("", [a1],, , _
                           xlByColumns, xlPrevious).Column

Если на листе нет данных, он возвращает ошибку времени выполнения '91': переменная объекта или переменная блока не задана,

Как можноЯ продолжаю, или что мне делать?

Answer 1

[обновление: и вы должны искать "*" не '""'

Вам лучше использовать объект диапазона, а затем проверить, существует ли он, т.е.

Dim rng1 As Range
Dim Last_Column As Long
Set rng1 = Sheets("Combined").Cells.Find("*", [a1], , , xlByColumns, xlPrevious)
If Not rng1 Is Nothing Then
    Last_Column = rng1.Column
Else
    MsgBox "No data", vbCritical
End If

Answer 2

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