Excel вставка с пропусками

Question

Есть столбик A с данными, и примененным фильтром. Я хочу скопировать ячейки A5:A6,A15,A30-A35,A100 в столбик B. Как мне скопировать именно выделенные (с учетом работы фильтра названные мною ячейки находятся по порядку, друг за другом) ячейки? Когда я их копирую и вставляю в столбик B они занимают место B5:B8 ячейки, т.е. встают на первую и дальше по порядку. Как мне их вставить также B5:B6,B15,B30-B35,B100?

Answer 1

Вот такой код выполнит эту работу:

Sub DuplicateVusuble()
Dim aRange As Range, oCell As Range
    Set aRange = Application.Intersect(Range("A1").CurrentRegion, Columns(1))
    For Each oCell In aRange
        If oCell.RowHeight > 0 Then oCell.Copy Destination:=oCell.Offset(0, 1)
    Next oCell
End Sub

БЛОГ НА HUSL

Excel вставка с пропусками

Ответы (1 шт):