☰

複数の行の情報を 1 つの行に集約しようとする

tag-icon • tag-icon microsoft-excel vba
複数の行の情報を 1 つの行に集約しようとする

私は Excel のマクロ/VB の作成に関してはまったくの初心者で、この問題で本当に行き詰まっています。

これは私が持っているもののサンプルです

1

そして私が望んでいるのは

2

ご覧のとおり、各reviewer_idについて、各の個別のスコアとコメントを集計しappl_id、各 の集計スコアも取得したいと考えていますappl_id。スコアにコメントがない場合は複雑になるようです。このテーブルの長さは約 2K 行なので、これを手動で行うことは選択肢ではないようです。

答え1

このマクロは、例に従ってデータを処理します。appl_id ごとに 3 人以上のレビュー担当者がいる場合は、変更する必要がありますmr。REF が参照するシートと範囲を変更することもできます。

Sub marine()

Dim REF As Range
Dim REF2 As Range
Set REF = Sheets("Sheet1").Range("A1") 'location of start of data table set. Set this to the correct reference.

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Processed"

Set REF2 = Sheets("Processed").Range("A1")

' max number of reviewers
mr = 3

' set headers
REF2.Value = "appl_id"
For i = 1 To mr
 REF2.Offset(0, (i - 1) * 2 + 1).Value = "score_" & i
 REF2.Offset(0, (i - 1) * 2 + 2).Value = "comment_" & i
Next i
REF2.Offset(0, mr * 2 + 1).Value = "aggregate_score"

i = 1
a = 0
s = 0
Do While (REF.Offset(i, 0).Value <> "")
 appl_id = REF.Offset(i, 0).Value
 If (appl_id <> REF.Offset(i - 1, 0).Value) Then 'new apple_id
   a = a + 1
   s = 0
   REF2.Offset(a, 0).Value = appl_id 'set new apple_id row
 End If
 If (REF.Offset(i, 1).Value = "AGGREGATE") Then
   REF2.Offset(a, mr * 2 + 1).Value = REF.Offset(i, 2).Value 'set aggregate
 Else
   REF2.Offset(a, s + 1).Value = REF.Offset(i, 2).Value 'set score
   REF2.Offset(a, s + 2).Value = REF.Offset(i, 3).Value 'set comment
   s = s + 2
 End If

 i = i + 1
Loop

End Sub

関連情報