Excelに、2つの異なる値の年間顧客データで構成されるデータダンプがあります。データには、毎年および顧客の値の個別の行が提供されました。つまり、次のようになります。
2009年の顧客Aの値Aの行と、同じ年の同じ顧客の値Bの別の行で止まっています。
場合によっては、値Aも値Bもありません。上の例では、顧客1には2011年に値Bがないため、その行は生成されていません。また、例には示されていませんが、一部のクライアントには1年のいずれの値のデータもありません（したがって、その年のその顧客の行はありません）。そのような状況では、その年にその顧客の列がなくても問題ありません。
私はありますワークシートにこれを取得したい1行がために両方毎年、顧客のための値。つまり、データを次のようにする必要があります。
その結果を生み出す最も効果的な方法は何ですか？
回答:
これはVBA、またはシートで実行できるマクロです。あなたがヒットしなければならないalt+ F11プロンプトアプリケーション用のVisual Basicを起動するには、ワークブックに行くとright click - insert - module、そこには、このコードを貼り付けます。次に、を押して、VBA内からモジュールを実行できますF5。このマクロの名前は「テスト」です
Sub test()
'define variables
Dim RowNum as long, LastRow As long
'turn off screen updating
Application.ScreenUpdating = False
'start below titles and make full selection of data
RowNum = 2
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A2", Cells(LastRow, 4)).Select
'For loop for all rows in selection with cells
For Each Row In Selection
With Cells
'if customer name matches
If Cells(RowNum, 1) = Cells(RowNum + 1, 1) Then
'and if customer year matches
If Cells(RowNum, 4) = Cells(RowNum + 1, 4) Then
'move attribute 2 up next to attribute 1 and delete empty line
Cells(RowNum + 1, 3).Copy Destination:=Cells(RowNum, 3)
Rows(RowNum + 1).EntireRow.Delete
End If
End If
End With
'increase rownum for next test
RowNum = RowNum + 1
Next Row
'turn on screen updating
Application.ScreenUpdating = True
End Subこれにより、並べ替えられたスプレッドシートが実行され、顧客と年の両方に一致する連続した行が結合され、空になった行が削除されます。スプレッドシートは、提示した方法、顧客、年を昇順に並べ替える必要があります。この特定のマクロは連続した行を超えて表示されません。
編集-私with statementが完全に不要である可能性は十分にありますが、それは誰にも害を与えていません。
誰かが別の質問でこの回答を使用し、戻ったとき、私はこのVBAが悪いと思いました。やり直しました-
Sub CombineRowsRevisited()
Dim c As Range
Dim i As Integer
For Each c In Range("A2", Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1))
If c = c.Offset(1) And c.Offset(,4) = c.Offset(1,4) Then
c.Offset(,3) = c.Offset(1,3)
c.Offset(1).EntireRow.Delete
End If
Next
End Subもう一度尋ねました複数の行の値を1つの行に組み合わせる方法は？モジュールがありますが、変数を説明する必要があり、繰り返しになりますが、かなり貧弱です。
Sub CombineRowsRevisitedAgain()
Dim myCell As Range
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each myCell In Range(Cells("A2"), Cells(lastRow, 1))
If (myCell = myCell.Offset(1)) And (myCell.Offset(0, 4) = myCell.Offset(1, 4)) Then
myCell.Offset(0, 3) = myCell.Offset(1, 3)
myCell.Offset(1).EntireRow.Delete
End If
Next
End Subただし、問題によっては、step -1何もスキップされないように行番号を指定する方がよい場合があります。
Sub CombineRowsRevisitedStep()
Dim currentRow As Long
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For currentRow = lastRow To 2 Step -1
If Cells(currentRow, 1) = Cells(currentRow - 1, 1) And _
Cells(currentRow, 4) = Cells(currentRow - 1, 4) Then
Cells(currentRow - 1, 3) = Cells(currentRow, 3)
Rows(currentRow).EntireRow.Delete
End If
Next
End Sub別のオプション：
Special-> Blanks->を押します。OK=プレス↑と入力し、CTRL+ENTERSpecial-> Blanks->を押します。OK=IF(プレス←タイプ=プレス←プレス↓タイプ,プレス↓タイプ,0)その後CTRL+ENTERCopy、Paste Special as Values編集：
説明：GoTo Blanksオプションを使用しようとしています。空白を選択したら、選択したすべての空白セルに同じ数式を入力できます。OPの質問に関して、データには一貫した空白があるように見えます。つまり、Value A列の空白はCustomerID上記の非空白行と同じです。同様に、Value B列の空白はCustomerID下の非空白行と同じです。
これを行う最も効果的な方法は、すべてのデータをピボットテーブルにダンプし、「顧客」を行ラベルにドロップしてから、他の列をフォローアップすることです。年ごとの内訳を表示したい場合は、「年」を列ヘッダーにドロップできます。
ピボットテーブルはExcel 2010の[挿入]にあります
以下は、圧縮されたデータを含む別のテーブルを作成する手順です。
CustomerとYear。これにより、圧縮されたテーブルのフレームワークが提供されます。B2（の最初のエントリValue A）に次のように入力します。
=IFERROR(INDEX(Sheet1!B$1:B$11,MIN(IF(Sheet1!$A$1:$A$11=$A2,IF(Sheet1!$D$1:$D$11=$D2,IF(Sheet1!B$1:B$11<>"",ROW(Sheet1!$A$1:$A$11),1000000),1000000),1000000))),"")
Ctrl+ Shift+を押して、数式を配列数式として入力しEnterます。
列に数式を入力します。次に、Value B列を埋めるために塗りつぶします。出来上がり！
いくつかのメモ：
1000000は、数式のを行数よりも大きいものに変更します。誰もがこのために多くのVBAコードまたは複雑な関数を使用しています。私は実装に1秒かかる方法がありますが、他のさまざまな可能性に応じて、はるかに理解しやすく、調整が非常に簡単です。
上記の例では、次の（4）関数をセルE2、F2、G2、H2にそれぞれ貼り付けます（上記のF＆G関数はセルを参照します）。
=IF(D2=D3, A2, IF(D2<>D1, A2, ""))
=IF(D2=D3, MAX(B2:B3), IF(D2<>D1, B2, ""))
=IF(D2=D3, MAX(B2:B3), IF(D2<>D1, IF(C2=0,"",C2),""))
=IF(D2=D3, D2, IF(D2<>D1, D2, ""))これらの数式を必要に応じて下にドラッグします。2行が存在するたびに1行のデータが生成され、1行は影響を受けません。（数式を削除するために）列EFGHの特別な値を別の場所に貼り付け、顧客別に並べ替えて余分な行をすべて削除します。