Как прописать относительное выделение строк?

[Ogeris]

Доброго времени суток, о наездники клавиатуры!

Вопрос у меня возник следующий: есть большая-большая табличка. В 7ой строке и далее в каждой 12ой стоят числа до 14 столбца включительно. Макрос должен выполнить следующее:

1. Пройтись по каждому числу в строчке с числами, и если число <> нулю, то выделить область в 6 строк над этим числом, и 5 строк под этим числом. (Например, если число стоит в ячейке A7, то выделить нужно диапазон A1:A12)

2. Закончив с одной строкой с числами, перейти к следующей, расположенной на 11 строк ниже.

Итого, глобальная задача - выделить все диапазоны, в которых есть число не равное нулю.

[alex77755]

Ну если я правильно понял задание:

Public Sub VYD()
Dim V As Range
Dim S
Dim R, C
S = Лист6.Columns(1).Rows(65536).End(xlUp).Row
  Set V = Range("A1")
For R = 7 To S Step 12
    For C = 1 To 14
        If Cells(R, C).Value <> 0 Then
                Set V = IIf(V.Count = 1, Range(Cells(R - 6, C), Cells(R + 5, C)), Union(V, Range(Cells(R - 6, C), Cells(R + 5, C))))
        End If
    Next C
Next R
V.Select
End Sub

[nilem]

Вариант:

Sub ertert()
    Dim poz As Range, adr As String, rng As Range
    Set rng = Range("A1:N" & Cells(Rows.Count, 1).End(xlUp).Row + 5)
    rng.Interior.Color = xlNone
    Set poz = rng.Find(0, LookIn:=xlFormulas)
    If poz Is Nothing Then Exit Sub
    adr = poz.Address
    Do
        Range(poz.Offset(-6), poz.Offset(5)).Interior.ColorIndex = 36
        Set poz = rng.FindNext(poz)
    Loop While poz.Address <> adr
End Sub

[IgorGO]

см.вложение. (условное форматирование)

[Ogeris]

2 alex77755
Точно! То, что нужно! Спасибо!