Excel макрос сколько строк - Word и Excel - помощь в работе с программами

	Подскажите ф-цию для того чтою узнать побыренькому(не переберая все строки), в скольких строках на листе есть информация. Или (И) функцию, возвращающюю неомер последней строки содержащей информацию. Спасибо.

	Есть много вариантов, но ни один из них не является абсолютно точным. Я обычно использую такой вариант Sub Макрос1() Dim iLastRow As Long iLastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox «Последний ряд таблицы в столбец А: » & iLastRow, , «» End Sub

Для общего развития можешь почитать эту тему.

http://www.sql.ru/forum/actualthread.aspx?tid=463148#4535898

Там участник с ником KL(XL) объясняет, недостатки всех приёмов нахождения последней заполненной (или пустой) строки на листе Excel.

P.S. KL(XL) является «Microsoft MVP» по Excel (т.е. признанный компанией Microsoft профессионал по Excel)

ZVI

Пользователь

Сообщений: 4328
Регистрация: 23.12.2012

{quote}{login=Человек}{date=09.07.2008 11:26}{thema=VBA. Количество заполненых строк на листе}{post}Подскажите ф-цию для того чтою узнать побыренькому(не переберая все строки), в скольких строках на листе есть информация.
Или (И) функцию, возвращающюю неомер последней строки содержащей информацию.
Спасибо.{/post}{/quote}
—
В Вашем вопросе фигурирует коварное слово «информация». Информацией ячеек могут быть: значения, формулы, формат, шрифт, цвет, размеры, объединения, и проч., включая сочетания свойств.
Наберите в VBA Range(«A1») и поставьте точку — всплывет длинный список свойств и методов ячейки. Все свойства — это элементы информации.

Если же Вас интересуют только ячейки со значениями и формулами, то:

Последняя строка:
LastRow = ActiveSheet.Cells.Find(What:=»*», _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

Последняя колонка:
LastCol = ActiveSheet.Cells.Find(What:=»*», _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column

Последняя ячейка — в пересечении:
Set LastCell = ActiveSheet.Cells(LastRow, LastCol)
—
ZVI

{quote}{login=Pavel55}{date=09.07.2008 11:49}{thema=}{post}Для общего развития можешь почитать эту тему…{/post}{/quote}
я бы добавил :)(несмотря на признанность)

метод end(xldown) лучше не применять вообще, так как он дает ошибку гораздо чаще, чем метод cells(rows.count,n).end(xlup)(догадайтесь какую)

но и последний надо применять с осторожностью, а именно

для пессимистов — проверить, пуста ли ячейка cells(rows.count,n)

для всех остальных — проверить не пуста ли ячейка cells(rows.count,n).end(xlup) перед тем, как применять к ней offset(1,0)

да, мы что-то сразу на VBA перешли, а человек просил «функцию»

так вот:

=макс(если(диапазон<>»»;строка(диапазон);1) даст последнюю строку вашего «диапазона». (словие можно менять под различные надобности)

не знаю почему, но я тут не нашол примера который приводится в справке майкрософта:

ThisWorkbook.Worksheets(«имя листа»).Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
k = ActiveCell.Row ‘номер последней заполненной строки

мне этот способ очень понравился, прошу спецов дать коменты по его целесообразности — или я о чем то не о том?:)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	«не нашол» — круто! Вопрос — «Количество заполненных строк на листе» См. Файл. Заполнена всего одна ячейка. Я сам — дурнее всякого примера! …

Гы-гы — прикольненько, но почему же вы не объяснили природу этого дивного явления? почему ексель думает что в 31й строке тоже есть данные? Раз формул нет то наверное вы в этой ячейке поменяли цвет заливки или границу? Если да то флаг пользователю в ж — есть хорошая поговорка: «Почему солнце всходит и заходит? — Работает? — Да — Вот и не трогайте настройки что б не сломалось!»:) — в нашем случае не красьте облака, или там не меняйте вес луны, что бы солнце не поменяло орбиту:)

Буду очень признателен если мне и другим ученикам раскроете тайну даного некорректного поведения екселя.

Заранее спасибо.

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	#9 26.05.2012 23:07:27 божитымой :)) ну где ж пытливость ума и жажда эксперимента? что за философия существования — жить на всём готовом, разжёванном и положенном в рот? ай, беда-беда-огорчение… впрочем, хватит патетики :))) идите хоть на 178-ю строчку, закрасьте ячейку в любой цвет. а потом для этой же ячейки выберите «нет заливки». и опять запустите макрос. фрилансер Excel, VBA — контакты в профиле «Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

Источник

I am developing a dashboard in excel. And I am looking for calculating row count. (How many records are present) ..

Since there are some blank cells I thought to go from bottom to up. I use the following

   Range("A1048576").Select
Selection.End(xlUp).Select

After this execution the active cell is at A113 which means the row count is 113.

My question is how to get this number 113 from the active cell?

asked Feb 4, 2014 at 13:37

You can use this:

Dim lastrow as Long
lastrow = Cells(Rows.Count,"A").End(xlUp).Row

lastrow will contain number of last empty row in column A, in your case 113

answered Feb 4, 2014 at 13:38

Dmitry PavlivDmitry Pavliv

35.2k13 gold badges79 silver badges80 bronze badges

Here is what I usually use for that:

lastrow = WorksheetFunction.CountA(Columns("A:A"))

This will return the number of non-empty cells in Column «A» which is what I think you’re after. Hope this helps.

answered Feb 4, 2014 at 13:49

Jim SimsonJim Simson

2,7663 gold badges21 silver badges30 bronze badges

The best way to get the count of rows/records (in most cases) is to use .UsedRange.Rows.Count. You can assign the return value to a variable like this:

lastRow = Sheets(1).UsedRange.Rows.Count

If you use a function that includes a column (such as column A) as shown in other examples, that will only get you the count of rows in that column, which may or may not be what you’re going for. One caveat: if you have formatted rows below your last row with a value then it will return that row number.

answered Mar 3, 2021 at 0:28

If there is a slight chance that the last row of the worksheet is not empty, you should add an IsEmpty() check to @simoco ‘s solution. Therefore; following is a function that returns the last used row and check if the last row of the worksheet is empty:

Function lastRow(WS As Worksheet, iColumn As String) As Long

    If Not IsEmpty(WS.Range(iColumn & WS.Rows.Count)) Then
        lastRow = WS.Rows.Count
    Else
        lastRow = WS.Range(iColumn & WS.Rows.Count).End(xlUp).Row
    End If

End Function

answered Feb 4, 2014 at 14:22

simpLE MAnsimpLE MAn

1,56213 silver badges22 bronze badges

Источник

5 / 5 / 0

Регистрация: 21.09.2012

Сообщений: 37

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

07.03.2014, 00:34. Показов 12361. Ответов 6

Как получить количество строк на листе или номер последней строки с данными?
Могут встречаться пустые строки между строками с данными.

Sasha_Smirnov

5561 / 1367 / 150

Регистрация: 08.02.2009

Сообщений: 4,107

Записей в блоге: 30

07.03.2014, 03:45

Нажатием сочетания клавиш Ctrl-End. Буквально за 1 секунд записал макрос (строка 3):

Visual Basic

Sub Макрос1() 'Макрос записан 07.03.2014 (Admin)
    ActiveWorkbook.Save                         'сочетание Shift-F12 — сохранение книги
    ActiveCell.SpecialCells(xlLastCell).Select  'сочетание Ctrl-End
    MsgBox ActiveCell.Row, vbInformation        'показ номера Last Cell
End Sub

5 / 5 / 0

Регистрация: 21.09.2012

Сообщений: 37

07.03.2014, 15:41

[ТС]

Сообщение от Kubuntovod

По второй ссылке много правды. Что Вам помешало её добиться?

Спасибо! Буду разбираться.

5561 / 1367 / 150

Регистрация: 08.02.2009

Сообщений: 4,107

Записей в блоге: 30

08.03.2014, 19:51

ActiveCell.SpecialCells(xlLastCell).row

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

08.03.2014, 21:22

ActiveCell.SpecialCells(xlLastCell).Row — это не последняя строка с данными. Это последняя когда-то использованная строка, причём если она скрыта — то выводится номер ближайшей видимой строки выше.

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

Источник

Home / VBA / Count Rows using VBA in Excel

To count rows using VBA, you need to define the range from which you want to count the rows and then use the count and rows property to get the count of the row from that range. You can also use a loop to count rows where you have data only.

Use VBA to Count Rows

First, you need to define the range for which you want to count the rows.
After that, use a dot (.) to open the list of properties and methods.
Next, type or select the “Rows” property.
In the end, use the “Count” property.

Now when you run this code, it will return the count of the rows, and to get the count you can use a message box or directly enter that value into a cell as well.

Sub vba_count_rows()
Range("A1:A10").Rows.Count
End Sub

Count Rows for the Used Range

Sub vba_count_rows2()
   MsgBox Worksheets("Sheet1").UsedRange.Rows.Count
End Sub

Count Rows with Data using VBA

You can also count rows where you have data by ignoring the blank rows.

The following code will take the used range as the range to loop up at and loop through each row one by one and check if there’s a non-empty cell there, and if it is there it will consider it as a row with data, and in the end, show a message box with the total count of rows.

Sub vba_count_rows_with_data()

Dim counter As Long
Dim iRange As Range

With ActiveSheet.UsedRange

    'loop through each row from the used range
    For Each iRange In .Rows

        'check if the row contains a cell with a value
        If Application.CountA(iRange) > 0 Then

            'counts the number of rows non-empty Cells
            counter = counter + 1

        End If

    Next

End With

MsgBox "Number of used rows is " & counter
End Sub

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

Use VBA to Count Rows

Count Rows for the Used Range

Count Rows with Data using VBA

More Tutorials