Перебор всех выделенных столбцов на активном листе.

[AHTOXA]

Проблема такая: нужно перебрать все выделенные столбцы на активном листе. Как лучше сделать?

[alibek]

Циклом по коллекции Selection.Areas, а внутри нее циклом по коллекции .Columns

[AHTOXA]

Так не получится. Мне нужно засасывать по строкам. Т. е., пусть имеется таблица:

A B C
8 2 9
4 5 6

, причем столбцы A и C выделены, а B нет. Мне нужно получить 8 9
и 4 6. Причем мне нужно также знать номер столбца A и C в таблице.
В данном случае это 1 и 3.

Нельзя-ли сделать как-нибудь так:

Sub Test()
Dim i As Long, j As Long
Dim r As Boolean, k As Boolean
i = 1
j = 1
r = True
While r
k = True
While k
If ActiveWorkbook.ActiveSheet.Cells(i, j).Value = "" Then
k = False
Else
j = j + 1
End If
Wend
j = 1
i = i + 1
If ActiveWorkbook.ActiveSheet.Cells(i, j).Value = "" Then
r = False
End If
Wend
End Sub

Только чтобы проверялось выделена данная ячейка или нет?

[alibek]

Код: Выделить всё

For A = 1 To Selection.Areas.Count
  For C = 1 To Selection.Areas(A).Columns.Count
    For R = 2 To 10
      V = Selection.Areas(A).Columns(C).Rows(R).Text
      MsgBox "Столбец " & Selection.Areas(A).Columns(C).Column & _
        Chr$(13) & Chr$(10) & "Значение " & V
    Next R
  Next C
Next A

подойдет?

[AHTOXA]

Ты хотел сказать, так:

For a = 1 To Selection.Areas.Count
For r = 1 To Selection.Areas(a).Rows.Count
For c = 1 To Selection.Areas(a).Columns.Count
V = Selection.Areas(a).Columns(c).Rows(r).Text
MsgBox "Столбец" & Selection.Areas(a).Columns(c).Column & _
Chr$(13) & Chr$(10) & "Значение" & V
Next c
Next r
Next a

[alibek]

Э... Собственно, да

[AHTOXA]

А как сделать, чтобы брались в рассмотрение только выделенные области на активном листе?