on-line-teaching.com

[leoway]

Подскажите я использую печать данных по выделенному диапазону на листе пример ниже

[/code]
Dim r1 As Range
Кол = Selection.Cells.Column - 1

If Кол <> 0 Then
Set r1 = Selection.Offset(0, -Кол)
Else
Set r1 = Selection
End If

r = r1.Rows.Count
c = 8 ' число колонок

' Переборка Цикла
For a = 1 To r
MsgBox (R1.Cells(a, 1)
Next
[/code]

Подскажите как сделать чтобы в выделенный диапазон попадали только значения отобранные автофильтром.