Sub specialmacro ()
Тусклое rng1 как ряд
Тусклое rng2 как ряд
Тусклое celle1 как ряд
Тусклое celle2 как ряд
Тусклый colm как длиной
С листами («Sheet1»)
Установите rng1 = ряд (. Клетки (12, «q»). Клетки (. Rows.Count, «q»). Конец (xlUp))
Установите rng2 = ряд (. Клетки (12, «c»). Клетки (27, «c»))
Конец с
Для каждого celle1 в rng1
Для каждого celle2 в rng2
Если celle1 = celle2 после этого
colm = клетки (11, «v»). Значение
celle2.Offset (0, colm) = celle1.Offset (0, 1)
Закончитесь если
Следующее celle2
Следующее celle1
Подводная лодка конца
|