Активация ячейки, вниз по столбцу, не равной текущей

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

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

Активация ячейки, вниз по столбцу, не равной текущей (Макросы/Sub)

chist3000

Дата: Среда, 27.03.2019, 13:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

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

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

Excel 2010

Здравствуйте форумчане.
Прошу помощи в написании макроса.
Исходные данные: большой список отсортированных повторяющихся данный, записанных в один столбец.
Задача макроса: активация ниже стоящей первой ячейки, не равной текущей.

К сообщению приложен файл: __.xls (28.0 Kb)

Ответить

skais

Дата: Среда, 27.03.2019, 14:22 | Сообщение № 2

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

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

Сообщений: 236

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

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

Excel 2010

[vba]

Код

For i = ActiveCell.Row + 1 To Cells(Rows.Count, "B").End(xlUp).Row
        If Cells(i, "B") <> ActiveCell Then
            Cells(i, "B").Select
            Exit For
        End If
    Next

[/vba]

Сообщение отредактировал skais - Среда, 27.03.2019, 14:23

Ответить

_Boroda_

Дата: Среда, 27.03.2019, 14:30 | Сообщение № 3

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант. Без перебора ячеек на листе
[vba]

Код

Sub tt()
    With Selection(1)
        z_ = .Value
        If IsEmpty(z_) Then Exit Sub
        n_ = Cells(Rows.Count, .Column).End(3).Row - .Row + 1
        If n_ <= 0 Then Exit Sub
        ar = .Offset(1).Resize(n_)
        For i = 1 To n_
            If ar(i, 1) <> z_ Then
                .Offset(i).Select
                Exit For
            End If
        Next i
    End With
End Sub

[/vba]

Или по-простому
[vba]

Код

Sub ee()
    Do
        a = a + 1
    Loop While Selection = Selection.Offset(a)
    Selection.Offset(a).Select
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995