Как подсчитать количество строк в excel vba - Word и Excel

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

Источник

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

Свойство Application.Rows (Excel)

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

Синтаксис

expression. Строк

выражение: переменная, представляющая объект Application.

Примечания

Использование этого свойства без квалификатора объекта эквивалентно использованию ActiveSheet.Rows.

При применении к объекту Range , который является множественным выделением, это свойство возвращает строки только из первой области диапазона. Например, если объект Range имеет две области — A1:B2 и C3:D4, selection.Rows.Count возвращает 2, а не 4.

Чтобы использовать это свойство в диапазоне, который может содержать несколько выделенных элементов, проверьте Areas.Count, чтобы определить, является ли диапазон множественным выбором. Если это так, выполните цикл по каждой области диапазона, как показано в третьем примере.

Пример

В этом примере удаляется третья строка на листе Sheet1.

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

В этом примере отображается количество строк в выделенном фрагменте на листе Sheet1. Если выбрано несколько областей, в примере выполняется цикл по каждой области.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Свойство Range.Rows (Excel)

Возвращает объект Range , представляющий строки в указанном диапазоне.

Синтаксис

expression. Строк

выражение: переменная, представляющая объект Range.

Замечания

Чтобы вернуть одну строку, используйте свойство Item или аналогично включите индекс в круглые скобки. Например, и Selection.Rows(1) Selection.Rows.Item(1) возвращают первую строку выделенного фрагмента.

При применении к объекту Range , который является множественным выделением, это свойство возвращает строки только из первой области диапазона. Например, если объект someRange Range имеет две области — A1:B2 и C3:D4, someRange.Rows.Count возвращает значение 2, а не 4. Чтобы использовать это свойство в диапазоне, который может содержать несколько выделенных элементов, проверьте Areas.Count , чтобы определить, является ли диапазон множественным выбором. Если это так, выполните цикл по каждой области диапазона, как показано в третьем примере.

Возвращаемый диапазон может находиться за пределами указанного диапазона. Например, Range(«A1:B2»).Rows(5) возвращает ячейки A5:B5. Дополнительные сведения см. в разделе Свойство Item .

Использование свойства Rows без квалификатора объекта эквивалентно использованию ActiveSheet.Rows. Дополнительные сведения см. в свойстве Worksheet.Rows .

Пример

В этом примере удаляется диапазон B5:Z5 на листе 1 активной книги.

В этом примере строки в текущем регионе удаляются на листе одной из активных книг, где значение ячейки в строке совпадает со значением ячейки в предыдущей строке.

Поддержка и обратная связь

Источник

Count Rows using VBA in Excel

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.

Count Rows for the Used Range

Count Rows with Data using VBA

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

Источник

Как узнать количество строк в excel vba

Как посчитать количество строк в Excel

Описание функции

Функция =КОЛИЧЕСТВОСТРОК( [ССЫЛКА] ) имеет один необязательный аргумент.

[ССЫЛКА] — Ссылка на любую ячейку листа, в котором необходимо посчитать количество строк. По умолчанию (если аргумент не указан) функция применяется к активному листу.

Ниже приведен пример работы данной формулы.

Пример

Определение количества строк на текущем листе.

Код на VBA

Вы можете самостоятельно использовать код функции на VBA в своих проектах. Он достаточно простой.

Как получить количество строк в EXCEL VBA

Я разрабатываю приборную панель в excel. И я ищу вычисление количества строк. (Сколько записей присутствует)..

Поскольку есть несколько пустых ячеек, я думал, что они идут снизу вверх. Я использую следующие

После этого выполнения активная ячейка находится на A113, что означает, что количество строк равно 113.

Мой вопрос: как получить этот номер 113 из активной ячейки?

Вы можете использовать это:

lastrow будет содержать номер последней пустой строки в столбце A , в вашем случае 113

Вот что я обычно использую для этого:

Это вернет число непустых ячеек в столбце “А”, что, как я думаю, вам нужно. Надеюсь это поможет.

Если есть небольшая вероятность того, что последняя строка рабочего листа не пуста, вы должны добавить проверку IsEmpty() в решение @simoco. Следовательно; следующая – это функция, которая возвращает последнюю использованную строку и проверяет, является ли последняя строка листа пустой:

Источник

Vba excel как определить количество строк

Как подсчитать общее количество строк в таблице в Excel?

В этой статье говорится о подсчете общего количества строк в указанной таблице в Excel. Пожалуйста, сделайте следующее.

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

Приведенный ниже код VBA может помочь вам подсчитать количество строк в указанной таблице в Excel.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: подсчитать общее количество строк в таблице в Excel

3. нажмите F5 ключ для запуска кода.

4. В дебюте Kutools for Excel в диалоговом окне введите имя таблицы, в которой необходимо подсчитать общее количество строк, а затем нажмите кнопку OK кнопка. Смотрите скриншот:

5. Теперь еще один Kutools for Excel появится диалоговое окно, в котором показано, сколько строк существует в этой указанной таблице, щелкните значок OK для завершения.

Источник

Елена Дроздова

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

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

15.06.2022 11:07:12

Добрый день!
Пытаюсь посчитать количество строк в умной таблице. Подскажите, пожалуйста, почему строка выдает ошибку 438?

Код
LastRow = Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObject("Таблица1").ListRows.Count

Прикрепленные файлы

Книга1.xlsm (15.3 КБ)

Изменено: Елена Дроздова — 15.06.2022 11:13:39

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

15.06.2022 11:13:29

Елена Дроздова, здравствуйте

Цитата
Елена Дроздова: количество строк в умной таблице

без шапки и итогов:
Workbooks(«Книга1.xlsm»).Worksheets(«Лист1»).ListObjects(«Таблица1»).ListRows.Count или
Workbooks(«Книга1.xlsm»).Worksheets(«Лист1»).ListObjects(«Таблица1»).DataBodyRange.Rows.Count

Справка

Изменено: Jack Famous — 15.06.2022 13:29:24

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

	Jack Famous, попробовала — та же ошибка

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Елена Дроздова, значит проблема в имени книги/листа/таблицы
Для таблицы на активном листе: ActiveSheet.ListObjects(1).DataBodyRange.Rows.Count

Изменено: Jack Famous — 15.06.2022 12:24:30

	Jack Famous, не работает. А если мне макросом понадобится открыть другую таблицу и посчитать строки там, то как ссылаться? Все время активировать нужный лист?

RAN

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

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

15.06.2022 11:49:28

Код
Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").ListRows.Count

Изменено: RAN — 15.06.2022 11:50:12

artemkau88

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

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

15.06.2022 11:54:40

Елена Дроздова

, можно еще использовать SQL запрос (добавил в ознакомительных целях)
код:

Код

Sub Macro()
Dim myConnect As String, mySQL As String, myRecord As Object

    DataRange = "[" & ActiveWorkbook.Sheets(1).Name & "$" & strAddress & "]"
        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ActiveWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=YES"""
    
    Set myRecord = CreateObject("ADODB.Recordset")
    mySQL = "SELECT COUNT(*) FROM [Лист1$]"
    myRecord.Open mySQL, myConnect
    
[E1].CopyFromRecordset myRecord
End Sub

в ячейку E1 выводит количество строк.
или использовать Ваш макрос:

Код

Sub Макрос1()
Dim myTable As ListObject
Set myTable = Worksheets(1).ListObjects("Таблица1")
MsgBox myTable.DataBodyRange.Rows.Count
' или: (можете раскомментировать)
'    LastRow = Range("Таблица1").Rows.Count
'    MsgBox (LastRow)
End Sub

Прикрепленные файлы

Книга1(1).xlsm (17.21 КБ)

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

RAN, значит точно не в методах дело, раз ListRows.Count у вас работает — в 1ом сообщении тоже самое

UPD: ListObjects — у меня на базе ТСа та же ошибка была — поправил везде

Изменено: Jack Famous — 15.06.2022 12:26:27

Елена Дроздова

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

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

15.06.2022 13:09:05

Сработало вот так:

Код
Set myobj = Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1") LastRow = myobj.ListColumns(1).DataBodyRange.Count MsgBox (LastRow)

По-другому никак не работает.

Ігор Гончаренко

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

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

#10

15.06.2022 13:21:46

прямо уж никак))

Код
Debug.Print myobj.ListRows.Count Debug.Print myobj.DataBodyRange.Rows.Count Debug.Print myobj.Range.Rows.Count - 1

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#11

15.06.2022 13:28:28

Цитата
Ігор Гончаренко: прямо уж никак

да она явно что-то не то пробовала

Цитата
Ігор Гончаренко: myobj.Range.Rows.Count — 1

если есть итоги, то -2

Елена Дроздова Пользователь Сообщений: 106 Регистрация: 14.04.2021	#12 15.06.2022 14:07:43 Вы, скорее всего, правы, но у меня не получалось

Источник

dimusiko

0 / 0 / 0

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

Сообщений: 5

16.07.2014, 00:59. Показов 29779. Ответов 8

Метки нет (Все метки)

доброго времени суток!
есть небольшая проблема, не знаю в чем загвостка. хочу вывести количество строк из таблицы excel в text box (количество строк все время изменяется)

Visual Basic

Private Sub CommandButton4_Click()
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
i = TextBox1.Text
Loop
End Sub

почему то не выводит и ругается на 2ую строку и еще

если кому не сложно опишите пожалуйста простейший цикл для вывода количества повторяющихся ячеек в 1 колонке excel
тоесть мне нужно ввести в textbox допустим дату, нажать на кнопку и в другом текстбоксе должна появиться цифра обозначающая сколько раз эта дата встречалась в данном столбце excel

~~Апострофф~~

Заблокирован

16.07.2014, 08:56

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

почему то не выводит и ругается на 2ую строку

А как именно ругается — это секрет?
Могу лишь предположить, что второй строкой должно быть

Visual Basic

1	dim i as long

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

Visual Basic

1	i = TextBox1.Text

Может быть, наоборот надо

Visual Basic

1	TextBox1.Text=i

И вынести эту строку из цикла, зачем нужен лишний тормоз.
А если хочется анимировать процесс счета, тогда в цикл надо вставить doevents для обновления формы

Аксима

6076 / 1320 / 195

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

Сообщений: 1,023

16.07.2014, 09:14

Апострофф, с возвращением !

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

если кому не сложно опишите пожалуйста простейший цикл для вывода количества повторяющихся ячеек в 1 колонке excel

Можно и без цикла:

Visual Basic

Private Sub CommandButton5_Click()
    Dim s As String, c As Range, rng As Range, rnC As Range, rnF As Range
    'Находим ячейки со значениями в первом столбце листа.
    On Error Resume Next: Set rnC = Columns(1).SpecialCells(xlCellTypeConstants, 3): Set rnF = Columns(1).SpecialCells(xlCellTypeFormulas, 3): On Error GoTo 0
    'Если в первом столбце листа нет значений, возвращаем нулевое количество совпадений.
    If rnC Is Nothing Then If rnF Is Nothing Then TextBox2 = 0: Exit Sub Else Set rng = rnF Else If rnF Is Nothing Then Set rng = rnC Else Set rng = Union(rnC, rnF)
    'Смотрим, что находится в TextBox1, и подбираем нужный шаблон для функции Find.
    If IsDate(TextBox1) And InStr(TextBox1, Format(0, ".")) = 0 Then s = Format(CDate(TextBox1), "m/d/yyyy") Else If IsNumeric(TextBox1) Then s = Replace(TextBox1, Format(0, "."), ".") Else s = TextBox1
    'Ищем в первом столбце активного листа нужное значение.
    Set c = rng.Find(What:=s, LookIn:=xlFormulas, LookAt:=xlWhole)
    'Если значение найдено, подсчитываем количество всех совпадений с помощью свойства ColumnDifferences, иначе возвращаем нулевое количество совпадений.
    If Not c Is Nothing Then TextBox2 = rng.Count - rng.ColumnDifferences(c).Count Else TextBox2 = 0
End Sub

С уважением,

Aksima

~~Апострофф~~

16.07.2014, 09:18

Не по теме:

Aksima, Вас тоже!:friends:
И с назначением!:drink:

8 / 8 / 3

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

Сообщений: 19

16.07.2014, 09:36

C текстбоксом не работал, но скорее всего должно быть что-то вроде того:

Visual Basic

Private Sub CommandButton4_Click()
  x_row = 1
  Do
    If Cells(x_row, 1) = "" Then
      Exit Do
    End If
    x_row = x_row + 1
  Loop
  TextBox1.Text = x_row
End Sub

Hedge-Hog

81 / 18 / 1

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

Сообщений: 32

16.07.2014, 09:46

Эта функция вернёт номер последней занятой строки на листе:

Visual Basic

Function getMaxRow(Optional sh As Worksheet = Nothing)
    If sh Is Nothing Then Set sh = ActiveSheet
    getMaxRow = sh.Cells.Find("*", sh.Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
End Function

А эта — номер последней занятой строки в конкретном столбце:

Visual Basic

1	maxRow = Cells(ActiveSheet.Cells.Rows.Count, curColumnNum).End(xlUp).Row

Hugo121

6875 / 2807 / 533

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

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

16.07.2014, 10:03

Количество занятых в первом столбце (по Вашему алгоритму, но может быть нужно как уже подсказано чуть выше):

Visual Basic

1	MsgBox [A1].End(xlDown).Row

А с «цифра обозначающая сколько раз эта дата встречалась» чуть сложнее — но нужно видеть файл.
В моём работает так:

Visual Basic

1 2	s = "16.07.2014" 'это что взяли из текстбокса MsgBox Application.CountIf(Range("A:A"), CDate(s))

Hedge-Hog

81 / 18 / 1

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

Сообщений: 32

16.07.2014, 10:06

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

Количество занятых в первом столбце:

Поправочка: это номер последней строки в сплошном диапазоне.
Будете идти от верхней ячейки — остановитесь на первой пустой ячейке. Лучше идти снизу.

А, вообще, количество

занятых

лучше получить через

Visual Basic

1	numOfNonBlankCells = WorksheetFunction.CountA(Range(...))

6875 / 2807 / 533

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

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

16.07.2014, 10:39

Ну так ведь ТС так и идёт — вероятно ему именно так и нужно!
И я там указал — это по его алгоритму.

А количество занятых вроде вообще никого не интересовало, это возможно я так неудачно выразился…

Источник

Use VBA to Count Rows

Count Rows for the Used Range

Count Rows with Data using VBA

More Tutorials

Свойство Application.Rows (Excel)

Синтаксис

Примечания

Пример

Поддержка и обратная связь

Свойство Range.Rows (Excel)

Синтаксис

Замечания

Пример

Поддержка и обратная связь

Count Rows using VBA in Excel

Use VBA to Count Rows

Count Rows for the Used Range

Count Rows with Data using VBA

Как узнать количество строк в excel vba

Как посчитать количество строк в Excel

Описание функции

Пример

Код на VBA

Как получить количество строк в EXCEL VBA

Vba excel как определить количество строк

Как подсчитать общее количество строк в таблице в Excel?

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!