拷貝的細胞的範圍內，以一列

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