Как посчитать количество строк в столбце 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

More Tutorials

Excel VBA Font (Color, Size, Type, and Bold)
Excel VBA Hide and Unhide a Column or a Row
Excel VBA Range – Working with Range and Cells in VBA
Apply Borders on a Cell using VBA in Excel
Find Last Row, Column, and Cell using VBA in Excel
Insert a Row using VBA in Excel
Merge Cells in Excel using a VBA Code
Select a Range/Cell using VBA in Excel
SELECT ALL the Cells in a Worksheet using a VBA Code
ActiveCell in VBA in Excel
Special Cells Method in VBA in Excel
UsedRange Property in VBA in Excel

VBA AutoFit (Rows, Column, or the Entire Worksheet)
VBA ClearContents (from a Cell, Range, or Entire Worksheet)
VBA Copy Range to Another Sheet + Workbook
VBA Enter Value in a Cell (Set, Get and Change)
VBA Insert Column (Single and Multiple)
VBA Named Range | (Static + from Selection + Dynamic)
VBA Range Offset
VBA Sort Range | (Descending, Multiple Columns, Sort Orientation
VBA Wrap Text (Cell, Range, and Entire Worksheet)
VBA Check IF a Cell is Empty + Multiple Cells

⇠ Back to What is VBA in Excel

Helpful Links – Developer Tab – Visual Basic Editor – Run a Macro – Personal Macro Workbook – Excel Macro Recorder – VBA Interview Questions – VBA Codes

Источник

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	Как узнать сколько строк заполнено в 22 столбце, к примеру. Спасибо!

jakim Пользователь Сообщений: 1947 Регистрация: 01.03.2013

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	Примерно так: Прикрепленные файлы 22.xls (27 КБ)

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	а можно код VBA, файл не открывается

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	В файле формула =СЧЁТЗ(ДВССЫЛ(СИМВОЛ(B1+64)&»:»&СИМВОЛ(B1+64))) где в B1 — 22

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013	Мне на VBA в макрос нужно, формула не пойдет

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Rng.Rows.Count Это если известен диапазон Rng Найти последнюю заполненную строку и отнять количество незаполненных сверху: lRws = .Cells(Rows.Count, «V» ) .End(xlUp).Row -5

s_i_d Пользователь Сообщений: 24 Регистрация: 05.02.2013

Михаил Пользователь Сообщений: 27 Регистрация: 01.01.1970	Вставил Вашу формулу в макрос он выдает ошибку на нее. Помогите

Юрий М

Модератор

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

Контакты см. в профиле

#10

01.04.2014 14:43:54

Цитата
Михаил пишет: Вставил Вашу формулу в макрос он выдает ошибку на нее

ЧЬЮ формулу?

Johny

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

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

#11

01.04.2014 14:49:45

Код
Sub CountCells() MsgBox Evaluate("COUNTA(V:V)") End Sub

There is no knowledge that is not power

Scripter

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

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

#12

01.04.2014 14:52:08

Цитата
s_i_d пишет: Как узнать сколько строк заполнено в 22 столбце

VBA:
кол-во не пустых
nNonBlank = WorksheetFunction.CountA(Columns(22))

последняя не пустая
nLastRow = ActiveSheet.Cells(Rows.Count, 22).End(xlUp).Row

Изменено: Scripter — 01.04.2014 22:26:58

olegator13god

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

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

#13

26.11.2015 14:52:07

Цитата
Nic70y написал: =СЧЁТЗ(ДВССЫЛ(СИМВОЛ(B1+64)&»:»&СИМВОЛ(B1+64)))

а как сделать что бы он считал строки начиная со второй, что бы не указывать последнюю ячейку? Я сдел так СЧЁТЗ(А2:А10000), но хочется что бы не было ограничения вовсе.
я хочу счетчик этот в 1 строку столбца вставлять в котором и надо посчитать.

Изменено: olegator13god — 28.11.2015 12:17:40

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#14 28.11.2015 12:07:36 Вставить в соседний столбец — и нет проблемы. Но лучше использовать ограниченный диапазон, ведь будут просматриваться все ячейки диапазона, а это дополнительные вычисления. Вариант — использовть СЧЕТЕСЛИ. Функция сама определяет используемый диапазон: =СЧЕТЕСЛИ(A2:A5000;»>0″)

Источник

Содержание

Свойство Application.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
Свойство Application.Rows (Excel)
Синтаксис
Примечания
Пример
Поддержка и обратная связь
Vba excel количество строк столбце

Свойство 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 и обратная связь.

Источник

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.

Источник

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

Синтаксис

expression. Строк

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

Примечания

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

Пример

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

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

Источник

Vba excel количество строк столбце

Добрый день ! Сразу скажу что я только начинаю изучать VBA и сам понимаю что вопрос детский , но ответа так и не смог найти.

Мне нужно узнать количество записей в колонке (насколько я понимаю это Rows в Columns)

В колонке чего? Какой контрол?

Ответить

Номер ответа: 1
Автор ответа:

Padre

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #1

Добавлено: 19.10.03 04:20

эээ . насколько я понимаю это WorkSheet в Экселе

Ответить

Номер ответа: 2
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #2

Добавлено: 19.10.03 13:24

Вопрос еще такой

Ни у кого нет кода как из Ворда вызывать Ексель

то есть я знаю что надо делать

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Но потом начинается путанница . Не совсем ясно как связать xlBook с WorkBook и xlSheet с WorkSheet . обычно в примерах все заново создают.

Ответить

Номер ответа: 3
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #3

Добавлено: 19.10.03 13:28

по поводу количества записей в колонке что-то типа этого. проверяется i количество ячеек. может есть какой-нибудь более изящный способ, но мне он в голову не приходит.

это всё работает только если записи идут без пустых ячеек в середине

Public Sub checkColumn()

Dim i As Integer

Dim n As Integer

For i = 1 To 100

If ActiveSheet.Cells(n, 1) = vbNullString Then

ActiveSheet.Cells(n, 2) = «Всего записей: » & (n — 1)

Ответить

Номер ответа: 4
Автор ответа:

Padre

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #4

Добавлено: 19.10.03 15:15

Private sub ExcelByWord

dim x1 as excel.application

Ответить

Номер ответа: 5
Автор ответа:

Padre

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #5

Добавлено: 19.10.03 15:23

Начинает проясняться понемногу.

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

Может есть красивый способ ? Property или метод специальный.

Ответить

Номер ответа: 6
Автор ответа:

Spin

Вопросов: 4
Ответов: 11

Профиль | | #6

Добавлено: 19.10.03 18:23

Да всё точно также. Берёшь диапазон проверяемых ячеек, ставишь счётчик непустых ячеек и вперёд.

Public Sub checkColumn()

Dim i As Integer

Dim n As Integer

Dim count As Integer

For i = 1 To 100

If ActiveSheet.Cells(n, 1) <> vbNullString Then

count = count + 1

ActiveSheet.Cells(1, 2) = «Всего записей: » & count

Ответить

Номер ответа: 7
Автор ответа:

Padre

Вопросов: 25
Ответов: 215

Web-сайт: localhost
Профиль | | #7

Добавлено: 19.10.03 18:53

Sub LastCell_1() ‘Определение последних строк, столбцов

‘Sheets(«лист1») — имя листа [можно порядковый номерSheets(n)]
‘с которым работаем (если с активным, то можно не указывать)

‘Cells(2, 4)- любая ячейка в заголовке таблицы,
‘где первая цифра — номер строки, а вторая — номер столбца

‘CurrentRegion — текущая область, т.е. интервал ячеек
‘ограниченный пустыми столбцами и пустыми строками

‘проверим, с чем работаем (выделим итервал), потом удалите
Sheets(«лист1»).Cells(2, 4).CurrentRegion.Select

‘адрес интервала ячеек
adr = Sheets(«лист1»).Cells(2, 4).CurrentRegion.Address

‘начальная строка интервала ячеек
RowBegin = Sheets(«лист1»).Cells(2, 4).CurrentRegion.Row

‘количество строк в интервале ячеек
RowsCount = Sheets(«лист1»).Cells(2, 4).CurrentRegion.Rows.Count

‘начальный столбец интервала ячеек
ColumnBegin = Sheets(«лист1»).Cells(2, 4).CurrentRegion.Column

‘количество столбцов в интервала ячеек
ColumnsCount = Sheets(«лист1»).Cells(2, 4).CurrentRegion.Columns.Count

‘массив, в котором хранятся значения ячеек итевала
ArrayValueCells = Sheets(«лист1»).Cells(2, 4).CurrentRegion

‘значение элемента массива
ValueCells = ArrayValueCells(строка, столбец)
‘строка- номер стоки в массиве (не обязательно совпадает с номером
‘строки рабочего листа), столбец — аналогично

‘объектная переменная, в которой содержится абсолютно все
Set Rng = Sheets(«лист1»).Cells(2, 4).CurrentRegion

‘ValueCells и Rng лучше просмотреть в окне локальных переменных
‘ViewLocals Window пошаговом режиме (клавиша F8)
End Sub

Sub LastRow_1() ‘последняя заполненная строка

With Sheets(«лист1»).Cells(2, 4).CurrentRegion
LastRow = .Row + .Rows.Count — 1
End With

Ответить

Номер ответа: 8
Автор ответа:

valentinvb

Вопросов: 0
Ответов: 5

Профиль | | #8

Добавлено: 26.10.03 12:53

Может я не совсем правильно поняла, вот только сегодня сталкивалась с подобной проблемой.

Источник

Adblock
detector

Номер ответа: 9
Автор ответа:

A n t o n i n a

Вопросов: 6
Ответов: 29

Профиль | | #9

Добавлено: 19.11.03 18:40

Источник

This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters

Show hidden characters

	Function NumRow(thCol) As Integer ‘— количество СТРОК в указанной колонке
	Dim LastRow As Long
	With ActiveSheet
	LastRow = .Cells(.Rows.Count, thCol).End(xlUp).Row
	End With
	NumRow = LastRow
	End Function

Источник