将范围内的单元格复制到列

Question

我有 MyRange = A1:C3

范围内的当前值如下：

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

范围内的空白单元格可能会有所不同。

我如何从 MyRange 复制（使用 vba）非空白值并将它们全部粘贴到 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