拷贝的细胞的范围内，以一列

Question

我有MyRange = A1：C3

在范围的电流值如下：

A1 = A，B1 = d，C1 = F A2 = b的，B2 = e，C2 =“” A3 = c，B3 =“”，C3 =“”

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

我如何从MyRange中复制（使用vba）非空值并将它们粘贴在一起让我们来看AA列？

例如： AA1 =一个 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