テキスト値をマージして金額を合計するvbaを作成しようとしています。 たとえば、私は以下のデータを持っています
Date Name Type Amount
1 Jan Test1 A 100
1 Jan Test1 A 150
2 Jan Test1 A 110
2 Jan Test1 A 200
1 Jan Test1 B 130
1 Jan Test1 B 110
1 Jan Test2 B 130
1 Jan Test2 B 160
1 Jan Test3 B 180
結果は次のようになります。
Date Name Type Amount
1 Jan Test1 A 250
2 Jan Test1 A 310
1 Jan Test1 B 240
1 Jan Test2 B 290
1 Jan Test3 B 180
私は以下のVBAを使用しようとしましたが、動作していないようです VBAを使用してExcelで同様の行をSUM /マージする方法は?
回答:
回答№1は0次の方法については、SumIf式を使用し、列Dの値を置き換えて重複を削除することにより、目的の結果が得られます。
Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
"declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
"get the last row with data on Column A
ws.Range("E2").FormulaR1C1 = "=SUMIFS(C[-1],C[-4],RC[-4],C[-3],RC[-3],C[-2],RC[-2])"
"add the sumif formula
ws.Range("E2").AutoFill Destination:=Range("E2:E" & LastRow), Type:=xlFillDefault
"fill the formula down to last cell
ws.Columns("E:E").Copy
ws.Columns("E:E").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
"copy and paste as values
ws.Range("D2:D" & LastRow).Delete Shift:=xlToLeft
"remove column D"s values and bring values from Column E into it
ws.Range("$A$1:$G$" & LastRow).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
"remove duplicates
End Sub