Найти последний использованный адрес ячейки в строке

Question

Я заполняю строки в листе Excel из базы данных, используя VBA. У меня есть более 50 столбцов на листе Excel, в которых я хочу найти адрес последнего столбца для отображения итоговой суммы всех данных. Как я могу пойти по этому поводу?

Answer 1

Код от http://www.ozgrid.com/VBA/ExcelRanges.htm. Там вы найдете другие полезные подпрограммы для поиска «последних» вещей в Excel и несколько предостережений.

Sub FindLastColumn()
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
    'Search for any entry, by searching backwards by Columns.'
     LastColumn = Cells.Find(What:="*", After:=[A1], _
                       SearchOrder:=xlByColumns, _
                   SearchDirection:=xlPrevious).Column
               MsgBox LastColumn
End If 
End Sub