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

Источник

подскажите, пожалуйста, как в документе (см. приложение) похожей структуры (имею в виду наличие пустых ячеек, строк, столбцов) в макросе узнать кол-во строк и столбцов значимой области. под значимой областью имею в виду прямоугольную область, покрывающую все непустые ячейки, в данном случае это область С2:N28, т.е. 27 строк, 12 столбцов

Имеется ли какой-то объект или свойство, которое отвечает за эту информацию?

команды ActiveSheet.Cells.Columns.Count и ActiveSheet.Cells.Rows.Count, показывают кол-во столбцов и строк всего листа, т.е. не подходят. Сейчас я просто пробегаю все ячейки и, если встречается подряд пять пустых строк (обычно больше не бывает) делаю останов.
есть вариант перед запуском макроса, нужную область выделить вручную, но это тоже не всегда удобно

я новичок в VBA поэтому врядли подскажу…
а вот спросить бы очень хотелось:
что значит «пробегаю пять пустых ячеек? «

-можете с макросом выложить пример?

Цитата: polioli от 09.11.2009, 23:56
подскажите, пожалуйста, как в документе (см. приложение) похожей структуры (имею в виду наличие пустых ячеек, строк, столбцов) в макросе узнать кол-во строк и столбцов значимой области.

я знаю как не в макросе узнать — функцией по английски называющейся counta (она из диапазона как раз выдает колличество значимых ячеек)

возможно при помощи макрорекордера можно вытянуть как ее использовать в макросе.

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

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

Sub rrrr()
r1_ = Range(«A1»).SpecialCells(xlLastCell).Row
c1_ = Range(«A1»).SpecialCells(xlLastCell).Column
End Sub

если учитывать:

Sub ttt()
r1_ = Range(«A1»).SpecialCells(xlLastCell).Row
r2_ = Range(«A1»).SpecialCells(xlConstants).Row
r_ = r1_ — r2_
c1_ = Range(«A1»).SpecialCells(xlLastCell).Column
c2_ = Range(«A1»).SpecialCells(xlConstants).Column
c_ = c1_ — c2_
End Sub

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

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

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

Нelg, «пробегаю пять пустых ячеек? » имелось в виду в цикле методом перебора проверяю каждую ячейку, и если, к примеру, встречается пять пустых ячеек подряд, то считать, что информации в файле дальше нет.
выглядит это примерно так
ii = 1
Do
If Len(.Cells(vRow, 1)) = 0 Then
ii = ii + 1
End If
…
vRow = vRow + 1
Loop Until ii > 5
Не красиво, не удобно, но работало.
Теперь буду использовать способ, предложенный Бородой

Тогда так:

Sub yyyyy()
ActiveWorkbook.Save
r1_ = Cells.SpecialCells(xlLastCell).Row
c1_ = Cells.SpecialCells(xlLastCell).Column

End Sub

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Цитата: Нelg от 10.11.2009, 00:15
… пример макроса перебирающего ячейки … [/u]

‘Варианта два:
‘1-й: Количество строк, столбцов заранее известно;
‘2-й: Количество строк, столбцов заранее не известно;

‘Ответ:
‘1-й: (нужно «перебрать ячейки в блоке «b2:f7″, двигаясь по ячейкам строки, а затем на строку ниже»)
Sub pereborIzwestnogoBloka()
Dim i As Long
Dim j As Integer

‘перебрать ячейки в блоке «b2:f7», двигаясь по ячейкам строки, а затем на строку ниже
i = 0
For i = 2 To 7 ‘по строкам
j = 0
For j = 2 To 6 ‘по ячейкам строки
‘в ячейке с координатами очередного шага перебора, выполняем действия = Start
Cells(i, j) = i + j ‘ — пишем в нее сумму координат
Cells(i, j).Select ‘ — делаем ее активной
‘в ячейке с координатами очередного шага перебора, выполняем действия = Stop
Next j
Next i
End Sub

‘2-й: (число строк, столбцов, заранее неизвестно. Но, известно: ячейка старта и _
условие при котором нужно ‘прекратить перебор. Скажем: при обнаружении _
ячейки со словом «Всего:» — по строке в первой колонке перебираемого блока, и _
пустой ячейки по колонке в первой строке перебираемого блока)

‘ Например стартовая ячейка b3
Sub pereborNeizwestnogoBloka()
Dim nR As Long
Dim nC As Integer

nR = 3
nC = 2
Do
Do
‘в ячейке с координатами очередного шага перебора, выполняем действия = Start
Cells(nR, nC) = nR + nC ‘ — пишем в нее сумму координат
Cells(nR, nC).Select ‘ — делаем ее активной
‘в ячейке с координатами очередного шага перебора, выполняем действия = Stop
nC = nC + 1
Loop While Cells(3, nC) <> Empty
nR = nR + 1
Loop While Cells(nR, 2).Text <> «Всего»
End Sub

Путей к вершине — множество. Этот один из многих!

_Boroda_ , спасибо!
теперь, что называется «дошло».
при сохранении программа видимо обновляет информацию о последней ячейке (Ctrl+End).
в моем случае еще важно было обратить внимание на отсутствие форматирования в пустых ячейках в конце документа,
так как они тоже влияют на значение послед. ячейки.
еще раз спасибо, что помогли решить задачу и разобраться.

Источник

Владимир Самара

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

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

29.05.2019 01:44:48

Добрый день,
Прошу помочь с решением следующего вопроса… Нужно через макрос записать в ячейке (AS3) формулу, подсчитывающую количество строк в таблице (чстрок) по одному конкретному столбцу, начиная с ячейки AS5 и ниже…
Пробовал много вариантов… В таблице 5 строк, а на выходе получалось: 2, 4, 8, 15… Не знаю, где косяк…

Код
Sub Макрос1() X = Range("AS5" & Cells(Rows.Count, 1).End(xlDown)).Row Range("AS3").FormulaR1C1 = "=ROWS(R[2]C:R[" & X & "]C)" End Sub

— значение 4.

Код
Sub Макрос2() Dim lLastRow As Long lLastRow = Cells(Rows.Count, 1).End(xlUp).Row Range("AS3").FormulaR1C1 = "=ROWS(R[2]C:R[" & lLastRow & "]C)" End Sub

— значение 2. И здесь вроде логично — 2 получается, если считать от AS5 до AS3. Но стоит исправить xlUp на xlDown — выходит ошибка 1004.
Благодарю!

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

Диапазон.xlsm (17.74 КБ)

Изменено: Владимир Самара — 29.05.2019 01:45:52

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

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

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

29.05.2019 02:32:05

Код
Sub Макрос1() Cells(3, 45) = Cells(Rows.Count, 45).End(xlUp).Row - 4 End Sub Sub Макрос2() Cells(3, 45) = Range(Cells(5, 45), Cells(5, 45).End(xlDown)).Rows.Count End Sub

Изменено: Ігор Гончаренко — 29.05.2019 02:32:28

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

ocet p

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

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

29.05.2019 03:19:47

Цитата
Владимир Самара написал: Не знаю, где косяк

… под забором … там где дед сидит и ждёт караван … , попробуйте:

Код

Sub Makros1()
    'X = Range("AS5" & Cells(Rows.Count, 1).End(xlDown)).Row
    X = Cells(Rows.Count, "AS").End(xlUp).Row - 3
    Range("AS3").FormulaR1C1 = "=ROWS(R[2]C:R[" & X & "]C)"
End Sub

Sub Makros2()
    Dim lLastRow As Long
    'lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lLastRow = Cells(Rows.Count, "AS").End(xlUp).Row - 3
    Range("AS3").FormulaR1C1 = "=ROWS(R[2]C:R[" & lLastRow & "]C)"
End Sub

	Благодарю за помощь! Работает… Я только не могу понять, почему обязательно нужно отнимать определённое кол-во строк? Почему он сразу конечную строку не находит, например, как это делает Shift+Ctrl+Вниз?

Sanja

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

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

29.05.2019 08:27:28

В Ваших макросах ошибка в том, что Вы ищите последнюю строку с данными в ПЕРВОМ столбце
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row ,а он (первый столбец) в Вашем примере пустой

Цитата
Владимир Самара написал: не могу понять, почему обязательно нужно отнимать определённое кол-во строк?

Вам же нужно, в итоге, посчитать

Цитата
Владимир Самара написал: количество строк в таблице (чстрок) по одному конкретному столбцу

поэтому от последней найденной строки с данными нужно вычесть количество строк находящиеся над Вашей таблицей.
Последняя строка — 9, таблица начинается с 5ой строки, отсюда КОЛИЧЕСТВО строк в таблице будет 9 — 4 = 5
Что и требовалось доказать

Изменено: Sanja — 29.05.2019 08:42:23

Согласие есть продукт при полном непротивлении сторон.

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

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

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

29.05.2019 11:42:48

Цитата
Владимир Самара написал: Я только не могу понять, почему обязательно нужно отнимать определённое кол-во строк?

см. макрос2, где там отнять?

ocet p

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

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

29.05.2019 13:59:32

Цитата
Владимир Самара написал: почему обязательно нужно отнимать определённое кол-во строк?

Потому что в вашей формуле «R1C1″ вы используете относительную адресацию (это те квадратные скобки: R[» & X & «]C), и поетому ориентиром для расчетов — это ячейка с формулой («AS3»). Она сама в третьей (3) строке. Последний ряд таблицы находится в девятой (9) строке. Девятый ряд листа это 9 — 3 = 6 строк от ячейки «AS3», а начало подсчёта диапазона у вас есть 2 строки от «AS3», это дает вам 5 строк — всё начинается с неё-AS3 в этом случае.

Владимир Самара Пользователь Сообщений: 78 Регистрация: 09.09.2013	#8 29.05.2019 18:01:15 Ясно, благодарю!

Источник

Вопрос:

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

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

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

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

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

Лучший ответ:

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

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

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

Ответ №1

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

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

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

Ответ №2

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

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

Источник