скопировать ячейки в диапазоне в столбец

Question

У меня есть MyRange = A1: C3

текущие значения в диапазоне следующие:

A1 = a, B1 = d, C1 = f A2 = b, B2 = e,C2 = "" A3 = c, B3 = "", C3 = ""

пустые ячейки в диапазоне могут различаться.

как я могу скопировать (используя vba) непустые значенияиз MyRange и вставьте их все вместе, скажем, в столбец AA?

Например: AA1 = a AA2 = b AA3 = c AA4 = d AA5 = e AA6 = f

Еще раз спасибо, ребята :-) Пол

Answer 1

Итерация по всем ячейкам в MyRange, если ячейка не "", скопируйте значение в следующую целевую ячейку

Sub test()
    Dim MyRange as Range
    Dim TargetCell as Range
    Dim rw as Range
    Dime cl as Range

    Set MyRange = ActiveWorkbook.Names("MyRange").RefersToRange
    Set TargetCell = Range("AA1") 
    For each rw in MyRange.Columns
        For each cl in rw.Cells
            If cl.value <> "" then
                TargetCell = cl.value
                Set TargetCell = TargetCell.Offset(1,0)
            End If
        Next
    Next

End Sub