Поиск последней строки массива

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск последней строки массива (Макросы/Sub)

Мурад

Дата: Пятница, 15.09.2023, 18:01 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Всем добрый день!
Подскажите, пожалуйста, что поправить в коде, чтобы правильно рассчитать количество строк в массиве?

[vba]

Код

Range("a2:b2", Range("a2:b2").End(xlDown)).Select
With Selection
For i = 1 To .Rows.Count

[/vba]

Пример во вложении.

К сообщению приложен файл: 9428045.xlsx (9.2 Kb)

Ответить

jun

Дата: Пятница, 15.09.2023, 18:53 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 112

Репутация: 35 ±

Замечаний: 0% ±

Мурад, приветствую!
Можно, например так:
[vba]

Код

Sub find_last_row()
Dim lr As Long, arr As Variant
With ActiveSheet
    lr = .Cells(.Rows.Count, 2).End(xlUp).Row ' определяем последнюю ячейку 2 столбца активного листа
    arr = .Range("B2:B" & lr) ' загоняем второй столбец в массив, начиная со 2 строки
    MsgBox UBound(arr, 1) ' выводим количество строк
End With
End Sub

[/vba]

Ответить

Мурад

Дата: Пятница, 15.09.2023, 19:00 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

jun, спасибо, что откликнулись!
Я направил упрощенный пример. На самом деле надо попытаться определить количество строк по первой колонке, которая выступает "сложным" случаем.

Ответить

Pelena

Дата: Пятница, 15.09.2023, 19:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19028

Репутация: 4363 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Мурад, 15.09.2023 в 19:00, в сообщении № 3 (

)

определить количество строк по первой колонке

замените в предложенном варианте , 2) на , 1)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

jun

Дата: Суббота, 16.09.2023, 09:07 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 112

Репутация: 35 ±

Замечаний: 0% ±

Еще несколько вариантов:
- если нужно посчитать непустые ячейки в столбце:
[vba]

Код

Sub find_not_empty_rows()
Dim lr As Long, arr As Variant, i As Long, iCnt As Long
With ActiveSheet
    lr = .Cells(.Rows.Count, 2).End(xlUp).Row ' определяем последнюю ячейку 2 столбца активного листа
    arr = .Range("A2:B" & lr) ' загоняем таблицу в массив, начиная со 2 строки
    For i = LBound(arr, 1) To UBound(arr, 1)
        If arr(i, 1) <> "" Then iCnt = iCnt + 1 ' если в первом столбце ячейка не пустая, то увеличиваем счетчик
    Next i
    MsgBox iCnt
End With
End Sub

[/vba]
или тот же макрос, что и выше, только в одну строку (-1 означает - заголовок)
[vba]

Код

Sub find_last_row_2()
Dim lr As Long
With ActiveSheet
lr = .Cells(.Rows.Count, 1).End(xlUp).Row ' определяем последнюю ячейку 1 столбца активного листа
MsgBox lr - 1
End With
End Sub

[/vba]

Сообщение отредактировал jun - Суббота, 16.09.2023, 09:09

Ответить

Nic70y

Дата: Понедельник, 18.09.2023, 10:48 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 8396

Репутация: 2098 ±

Замечаний: 0% ±

Excel 2010

[vba]
Код
MsgBox Cells(Range("a2").CurrentRegion.Rows.Count + 1, 1).End(xlUp).Row - Range("a2").Row + 1
[/vba]
[vba]

Код

MsgBox Cells(Range("a2").CurrentRegion.Rows.Count + Range("a2").Row - 1, 1).End(xlUp).Row - Range("a2").Row + 1

[/vba]
или так:
[vba]

Код

    With Range("a2")
        MsgBox Cells(.CurrentRegion.Rows.Count + .Row - 1, .CurrentRegion.Column).End(xlUp).Row - .Row + 1
    End With

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 18.09.2023, 12:13

Ответить

Мурад

Дата: Вторник, 19.09.2023, 20:16 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Спасибо всем за помощь!
С вашей помощью подготовил такой код с целью последующего выделения массива и снятия объединения:
[vba]

Код

    With ActiveSheet
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    arr = .Range("a1:a" & lr - 7)
    End With
    Range("A27:DX" & arr).Select
    Selection.UnMerge

[/vba]
Но по строке [vba]

Код

Range("A27:DX" & arr).Select

[/vba] не происходит выделения массива, т.к. переменная arr почему-то не передает количество строк