Поиск последней ячейки в Excel

[uhm]

Это мысль, если есть гарантии, что в последней строчке с данными нет пустых ячеек.

[Annushka]

Спасибо. Кажется, то, что надо. Сейчас попробую

[Annushka]

Только тогда прийдется это вычислять по всем колонкам, где есть данные и брать мах.
Например,

Код: Выделить всё

    Max = 1
    For  lCol = 1 To 17 ' количество колонок
        Cells(65536, lCol).End(xlUp).Select
        If Max < ActiveCell.Row Then Max = ActiveCell.Row
    Next  lCol
    MsgBox (Max)


[Avtopic]

Код: Выделить всё

Max = 1
For lCol = 1 To 17 
    a = Cells(65536, lCol).End(xlUp).Row
    If Max < a Then Max = a
Next lCol
MsgBox (Max)

ибо, Select это плохо

[smaharbA]

Set ws = ThisWorkbook.Worksheets(1)
arr = ws.Application.WorksheetFunction.Transpose(ws.UsedRange)

[GSerg]

smaharbA, ты и правда очень, очень далёк от мысли.

[smaharbA]

GSerg - внимательно погляди, это какраз самое быстрое решение вопроса...
...
ОФФ: И лучче взгляни тут http://bbs.vbstreets.ru/viewtopic.php?t=24979 (вот тут твоя помощь может и поможет)

[smaharbA]

И еще если уж ненравится массив

Код: Выделить всё

    Set ws = ThisWorkbook.Worksheets(1)
    For i = ws.UsedRange.Rows.Count To 1 Step -1
        s = ""
        For Each cc In ws.Range(ws.Rows(i).Address)
            s = s & cc
        Next
        MsgBox s
    Next


[Annushka]

Чем вот это

Set ws = ThisWorkbook.Worksheets(1)
arr = ws.Application.WorksheetFunction.Transpose(ws.UsedRange)

лучше, чем

Код: Выделить всё

ActiveSheet.UsedRange.Rows.Count

в данном случае?

[Annushka]

И еще если уж ненравится массив

Код: Выделить всё

    Set ws = ThisWorkbook.Worksheets(1)
    For i = ws.UsedRange.Rows.Count To 1 Step -1
        s = ""
        For Each cc In ws.Range(ws.Rows(i).Address)
            s = s & cc
        Next
        MsgBox s
    Next


Тогда уж

Код: Выделить всё

    Set ws = ThisWorkbook.Worksheets(1)
    For i = ws.UsedRange.Rows.Count To 1 Step -1
        s = ""
        For Each cc In ws.Range(ws.Rows(i).Address)
            s = s & cc
        Next
        If Len(s) > 0 Then Exit For
    Next
    MsgBox ("Последняя заполненная строка=" & i)


Только работает намноооооооооого дольше, чем поиск мах по колонкам

[smaharbA]

Ты не путаешь ? Ты макс то с чем будешь с равнивать с текстом и датой тогда и тут просче

Код: Выделить всё

Set ws = ThisWorkbook.Worksheets(1)
For i = ws.UsedRange.Rows.Count To 1 Step -1
  MsgBox ws.Application.WorksheetFunction.Min(ws.Rows(i))
Next


если даст не ноль значит заполненна, но текст и даты побоку

[Annushka]

Если читать обсуждение внимательно, то можно вообще то понять, что речь идет вот об этом максимуме:

Код: Выделить всё

Max = 1
For lCol = 1 To 17
    a = Cells(65536, lCol).End(xlUp).Row
    If Max < a Then Max = a
Next lCol
MsgBox (Max)


[smaharbA]

А ну да, приношу извенения, вы кнопочки "симитировали",

[Annushka]

Да это не я , а Nicky [/code]

[Nicky]

Хм, таки я начал?
Я, так сказать, развил!

Если в таблице нет пустых ячеек, то может помочь что-то вроде

Код: Выделить всё

Range("A1").End(xlDown).End(xlToRight).Select


А так - наверное, макросом только.

[Nicky]

Код: Выделить всё

Function GetLastRow(sh As Worksheet) As Long
  On Error Resume Next
  GetLastRow = WorksheetFunction.Max(sh.Cells.SpecialCells(xlCellTypeConstants).Areas( _
    sh.Cells.SpecialCells(xlCellTypeConstants).Areas.Count).Row, sh.Cells.SpecialCells( _
    xlCellTypeFormulas).Areas(sh.Cells.SpecialCells(xlCellTypeFormulas).Areas.Count).Row)
End Function


[sergeyvg]

http://www.sql.ru/forum/actualthread.aspx?tid=286860

[kminas]

Спасибо!

[pshik]

Public Function LastCellsWithData(SheetName As String)
Dim xlApp As Object, xlBook As Variant
Dim sFileCopy As String

sFileCopy = frmSetup.txtPath.Text & "\" & frmSetup.txtLabour.Text
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open(sFileCopy)
'xlApp.Visible = False

' ExcelLastCell is what Excel thinks is the last cell
Set ExcelLastCell = xlBook.Worksheets(SheetName).Cells.SpecialCells(xlLastCell)

' Determine the last row with data in it (must also copy above para for this to work)
LastRowWithData = ExcelLastCell.ROW
ROW = ExcelLastCell.ROW
Do While Application.CountA(xlBook.Worksheets(SheetName).Rows(ROW)) = 0 And ROW <> 1
ROW = ROW - 1
Loop
LastRowWithData = ROW ' Row number

LastColWithData = ExcelLastCell.Column
col = ExcelLastCell.Column
Do While Application.CountA(xlBook.Worksheets(SheetName).Columns(col)) = 0 And col <> 1
col = col - 1
Loop
LastColWithData = col ' Column number

Set ExcelLastCell = Nothing
xlBook.Close
xlApp.Application.Quit
Set xlApp = Nothing

End Function