0

D1+D2 のような代替行のデータを Excel に追加する必要があります。mw にその方法を教えてください。

私は大きなExcelを持っており、奇数行のデータを偶数行に追加して奇数行を開発できるようにVBAを探しています。

        Surgical        Surgical
10  $1,800  Unit    8/5/2011    unit
        Surgical        Surgical
10  $4,000  Unit    9/2/2011    unit
        Surgical        Surgical
10  $2,000  Unit    8/12/2011   unit
        Surgical        Surgical
10  $1,250  Unit    8/12/2011   unit
        Surgical        Surgical
10  $1,517  Unit    8/19/2011   unit
        Surgical        Surgical
10  $1,250  Unit    8/19/2011   unit
        Surgical        Surgical
10  $2,000  Unit    8/12/2011   unit
        Surgical        Surgical
10  $2,200  Unit    8/19/2011   unit
        Surgical        Surgical
10  $0  Unit    8/19/2011   unit
        Surgical        Surgical
10  $1,251  Unit    8/12/2011   unit
        Surgical        Surgical
10  $1,500  Unit    8/12/2011   unit
        Surgical        Surgical
10  $1,001  Unit    9/1/2011    unit

これらは2つのセルにあり、データを上のセルに追加したいのですが、助けてください

前もって感謝します

4

1 に答える 1

0

このようなExcel関数を使用するだけでこれを行います（元のデータがA列にあると仮定します）：

=IF(MOD(ROW(),2)=1,A1&" "&A2,"")

これは、元のデータに隣接する任意の列にコピーする必要があります。次に、この数式を含む列に対してフィルターを実行し (macintos では command+shift+F、Windows マシンでは異なります)、空白行のみを表示して削除するように設定します。

VBAでやりたいなら

データが A1:A10 の範囲にあると仮定します。

Sub mergeAndDelete()
    Dim r As Range
    Set r = Range("A1:A10")  'set the range the data resides in

    For i = 1 To r.Rows.Count  'merge step
        If i Mod 2 = 1 Then   'this checkes to see if i is odd
            r.Cells(i, 1).Offset(0, 1).Value = r.Cells(i, 1).Value & " " & r.Cells(i + 1, 1).Value
        End If
    Next i


    For i = r.Rows.Count To 1 Step -1
        ' Check if i is even and delete the row in the next line
        If i Mod 2 = 0 Then    
            r.Cells(i, 1).EntireRow.Delete  
        End If
    Next i
End Sub

また、これにより、偶数行が奇数行に追加されます (提供された例に基づいて、実際に必要であると述べたものとは異なります)。if必要に応じてステートメントを変更します。

于 2012-07-29T05:35:27.460 に答える