0

私は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

みんなありがとう:-)ポール

4

1 に答える 1

0

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
于 2011-02-10T04:54:02.797 に答える