Редкие ячейки

[FiataliS]

Добрый день, товарищи программеры.

В общем столкнулся с такой задачей:

для того чтобы VBA смог работать со стракой выделенной ячейки нужно написать
x = ActiveCell.Row

и др. манипуляции

Если это у нас диапазон ячеек
x = ActiveCell.Row
Y = Selection.Row + Selection.Rows.Count - 1

А как же быть если ячейки выделены через Ctrl как бы через одну. Как прописать в VBA чтобы он вернул номер(а) строки? Их же может быть некоторое множество...

[Казанский]

Если выделено не более одной ячейки в одной строке (они могут быть в разных столбцах), то таким циклом:

Dim c As Range, x
For Each c In Selection.Cells
  x = c.Row
  Debug.Print x 'например
Next

[Aleksandr H.]

...более 1 ячейки в строке

Dim c As Range, x, y

For Each c In Selection.Cells
  x = c.Row
  If x <> y Then
    Debug.Print x 'например
    y = x
   End If
Next

[Казанский]

Aleksandr H., попробуйте перед запуском макроса выполнить такую команду в Immediate

range("a1:a3,b2:b4").Select

Уникальные строки лучше выделять с помощью коллекции/словаря.

[Step_UA]

    Dim R As Range
    For Each R In Application.Intersect(Columns(1), Selection.EntireRow)
        Debug.Print R.Row
    Next

[Aleksandr H.]

Казанский, да, косяк.