Макрос подсчета строк 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?

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

1

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

2

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

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

Тогда так:

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

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