Vba 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 — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

Источник

You ask a couple of different questions in your question and title.

Bottom Row in Column A:

numRow= wb.Worksheets(1).Cells(wb.Worksheets(1).Rows.Count,1).End(-4162).Row
print(numRow)

Starts at the very bottom of Column A of the first Worksheet, then uses End(xlUp) to find the first last non-blank entry. Issues: Will return 1 if EVERY row has data, 65536 rows in a .xls file or 1048576 rows in an .xlsx or .xlsm file

Non-Blank cells in Column A:

numRow = xl.WorksheetFunction.CountA(wb.Sheets(1).Columns(1))
print(numRow)

Uses the Excel COUNTA function to count non-blank cells in the First Column of the First Worksheet

Non-Blank Rows, regardless of which Column is non-blank:

numRow = 0
For RangeArea In Union(wb.Sheets(1).UsedRange.SpecialCells(xlCellTypeConstants, 23), wb.Sheets(1).UsedRange.SpecialCells(xlCellTypeFormulas, 23)).EntireRow.Areas:
    numRow = numRow + RangeArea.Rows.Count

print(numRow)

First, finds all Cells with Values and all Cells with Formula, then gets the rows that they are in.
If there are any blank-rows then this creates a Multi-Area Range, so we have to add up the number of Rows in each Area to get the total number of non-blank Rows in the Worksheet.

Источник

Подсчет количества ячеек в диапазоне в зависимости от их содержимого методами Count, CountA и CountBlank объекта WorksheetFunction из кода VBA Excel.

Метод WorksheetFunction.Count

Определение

Определение метода Count объекта WorksheetFunction в VBA Excel:

Метод WorksheetFunction.Count подсчитывает в заданном диапазоне (массиве) количество ячеек (элементов массива), содержащих числа, и возвращает значение типа Double.

Синтаксис

Синтаксис метода Count объекта WorksheetFunction:

WorksheetFunction.Count(Arg1, Arg2, ..., Arg30)

Параметры

Параметры метода Count объекта WorksheetFunction:

Параметр Описание
Arg1-Arg30 От 1 до 30 аргументов, которые могут содержать различные типы данных или ссылаться на них.

Примечания

  • Метод WorksheetFunction.Count позволяет получить количество числовых значений в диапазоне ячеек или в массиве.
  • При подсчете учитываются аргументы, которые являются числами, датами или текстовым представлением чисел.
  • Логические значения учитываются при подсчете только в том случае, если они введены непосредственно в список аргументов.

Метод WorksheetFunction.CountA

Определение

Определение метода CountA объекта WorksheetFunction в VBA Excel:

WorksheetFunction.CountA — это метод, который подсчитывает в заданном диапазоне количество непустых ячеек, и возвращает значение типа Double.

Синтаксис

Синтаксис метода CountA объекта WorksheetFunction:

WorksheetFunction.CountA(Arg1, Arg2, ..., Arg30)

Параметры

Параметры метода CountA объекта WorksheetFunction:

Параметр Описание
Arg1-Arg30 От 1 до 30 аргументов, которые могут содержать различные типы данных или ссылаться на них.

Примечания

  • Метод WorksheetFunction.CountA позволяет получить количество непустых ячеек в заданном диапазоне.
  • Непустыми являются ячейки, которые содержат любые данные, включая значения ошибок и пустые строки ("").
  • Тесты показывают, что метод WorksheetFunction.CountA в массиве, созданном путем присвоения ему значений диапазона, содержащего пустые ячейки, все равно считает все элементы массива, как содержащие значения.

Метод WorksheetFunction.CountBlank

Определение

Определение метода CountBlank объекта WorksheetFunction в VBA Excel:

WorksheetFunction.CountBlank — это метод, который подсчитывает в заданном диапазоне количество пустых ячеек, и возвращает значение типа Double.

Синтаксис

Синтаксис метода CountBlank объекта WorksheetFunction:

WorksheetFunction.CountBlank(Arg1)

Параметры

Параметры метода CountBlank объекта WorksheetFunction:

Параметр Описание
Arg1 Диапазон, в котором необходимо подсчитать количество пустых ячеек.

Примечания

  • Метод WorksheetFunction.CountBlank позволяет получить количество пустых ячеек в заданном диапазоне.
  • Пустыми являются ячейки, которые не содержат никаких данных.
  • Также подсчитываются, как пустые, ячейки с формулами, которые возвращают пустые строки ("").
  • Ячейки с нулевыми значениями в подсчете не участвуют.

Примеры

Таблица для строк кода VBA Excel со ссылками на диапазон "A1:C5", а также с массивом его значений в качестве аргументов:

Примеры с WorksheetFunction.Count

Sub Primer1()

Dim n As Double, a() As Variant

    n = WorksheetFunction.Count(Range(«A1:C5»))

MsgBox n  ‘Результат: 8

    a = Range(«A1:C5»)

    n = WorksheetFunction.Count(a)

MsgBox n  ‘Результат: 8

    n = WorksheetFunction.Count(«раз», «два», «три», 1, 2, 3)

MsgBox n  ‘Результат: 3

    n = WorksheetFunction.Count(«раз», «два», «три», «1», «2», «3», 1, 2, 3)

MsgBox n  ‘Результат: 6

    n = WorksheetFunction.Count(Empty, Empty, 0, 0, «», «»)

MsgBox n  ‘Результат: 4

    n = WorksheetFunction.Count(True, False, «True», «False»)

MsgBox n  ‘Результат: 2

End Sub

Метод WorksheetFunction.Count можно использовать для подсчета количества числовых значений в массиве, если он создан путем присвоения ему значений диапазона. Тогда логические значения ИСТИНА и ЛОЖЬ, если они встречаются в диапазоне, в подсчете количества числовых значений не участвуют.

Примеры с WorksheetFunction.CountA

Sub Primer2()

Dim n As Double, a() As Variant

    n = WorksheetFunction.CountA(Range(«A1:C5»))

MsgBox n  ‘Результат: 13

    a = Range(«A1:C5»)

    n = WorksheetFunction.CountA(a)

MsgBox n  ‘Результат: 15

    n = WorksheetFunction.CountA(«раз», «два», «три», 1, 2, 3)

MsgBox n  ‘Результат: 6

    n = WorksheetFunction.CountA(Empty, Empty, 0, 0, «», «»)

MsgBox n ‘Результат: 6

End Sub

Примеры с WorksheetFunction.CountBlank

Sub Primer3()

Dim n As Double, a As Range

    n = WorksheetFunction.CountBlank(Range(«A1:C5»))

MsgBox n  ‘Результат: 2

    Set a = Range(«A1:C5»)

    n = WorksheetFunction.CountBlank(a)

MsgBox n  ‘Результат: 2

End Sub

Следующая статья по этой теме: VBA Excel. Методы CountIf и CountIfs.

Источник

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

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

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.

count-rows-with-data-using-vba

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

    Источник

    Вопрос:

    Я разрабатываю приборную панель в 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
    Источник

    Понравилась статья? Поделить с друзьями:
  • Vba excel число или текст
  • Vba excel число дней в месяце
  • Vba excel число в символах
  • Vba excel четная или нечетная
  • Vba excel часы минуты