Как посчитать количество строк в Excel с данными?

Мне так нравится:

ActiveSheet.UsedRange.Rows.Count

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

Самый безопасный вариант

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

Не используйте UsedRange, SpecialCells(xlLastCell) или End(xlUp). Все эти методы могут дать неверные результаты, если вы ранее удалили некоторые строки. Excel по-прежнему считает эти невидимые ячейки.

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

Это будет работать независимо от версии Excel (2003, 2007, 2010). В первом листе 65536 строк, а в двух последних - около миллиона строк. Sheet1.Rows.Count возвращает это число в зависимости от версии.

numofrows = Sheet1.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

или эквивалент, но короче

numofrows = Sheet1.Cells(Sheet1.Rows.Count,1).End(xlUp)

Это ищет снизу столбца A первую непустую ячейку и получает номер ее строки.

Это также работает, если у вас есть данные, которые идут дальше вниз в других столбцах. Так, например, если вы возьмете данные своего примера и также напишете что-то в ячейке FY4763, приведенное выше все равно вернет 9 (а не 4763, который любой метод, использующий свойство UsedRange, вернет неправильно).

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

Set rngLastCell = Sheet1.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp)

Обратите внимание, что этот метод не работает в некоторых крайних случаях:

• Последняя строка содержит данные
• Последняя строка (строки) скрыта или отфильтрована

Так что будьте осторожны, если вы планируете использовать для этих целей строку 1 048 576!

Я сравнил все возможности с длинным тестовым листом:

0,140625 сек для

lastrow = calcws.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).row

0 секунд для

iLastRow = calcws.Cells(rows.count, "a").End(xlUp).row

и

numofrows = calcws.Cells.SpecialCells(xlLastCell).row

0,0078125 сек для

lastrow = calcws.UsedRange.rows.count
Do While 1
    If calcws.Cells(lastrow, 1).Value = "" Then
        lastrow = lastrow - 1
    Else
        Exit Do
    End If
Loop

Думаю, фавориты очевидны ...

Dim RowNumber As Integer
RowNumber = ActiveSheet.Range("A65536").End(xlUp).Row

В вашем случае он должен вернуть # 9

Нашел такой подход на другом сайте. Он работает с новыми большими размерами Excel и не требует жесткого кодирования максимального количества строк и столбцов.

iLastRow = Cells(Rows.Count, "a").End(xlUp).Row
iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column

Спасибо мудракеру из Мелборна, Австралия

Они оба будут работать, позволяя Excel определять, когда в последний раз он видит данные.

numofrows = destsheet.UsedRange.SpecialCells(xlLastCell).row

numofrows = destsheet.Cells.SpecialCells(xlLastCell).row

Для большей наглядности хочу добавить наглядный пример и запустив

            openFileDialog1.FileName = "Select File"; 
            openFileDialog1.DefaultExt = ".xls"; 
            openFileDialog1.Filter = "Excel documents (.xls)|*.xls"; 


            DialogResult result = openFileDialog1.ShowDialog();


            if (result==DialogResult.OK)
            {

                string filename = openFileDialog1.FileName;


                Excel.Application xlApp;
                Excel.Workbook xlWorkBook;
                Excel.Worksheet xlWorkSheet;
                object misValue = System.Reflection.Missing.Value;

                xlApp = new Excel.Application();
                xlApp.Visible = false;
                xlApp.DisplayAlerts = false;



                xlWorkBook = xlApp.Workbooks.Open(filename, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0);

                xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1);

                var numRows = xlWorkSheet.Range["A1"].Offset[xlWorkSheet.Rows.Count - 1, 0].End[Excel.XlDirection.xlUp].Row;

                MessageBox.Show("Number of max row is : "+ numRows.ToString());

                xlWorkBook.Close(true, misValue, misValue);
                xlApp.Quit();

            }

Я предпочитаю использовать свойство CurrentRegion, которое эквивалентно Ctrl- *, которое расширяет текущий диапазон до самого большого непрерывного диапазона с данными. Вы начинаете с ячейки или диапазона, который, как вы знаете, будет содержать данные, а затем расширяете его. Свойство UsedRange иногда возвращает огромные области только потому, что кто-то выполнил форматирование внизу листа.

Dim Liste As Worksheet    
Set Liste = wb.Worksheets("B Leistungen (Liste)")     
Dim longlastrow As Long
longlastrow = Liste.Range(Liste.Cells(4, 1), Liste.Cells(6, 3)).CurrentRegion.Rows.Count