| |
▼β さん：
>▼VBA初心者 さん：
> 再掲します。
>
> １．Ａ列を Ｄ列にコピペ
>２．Ｄ列を選択して データタブ 重複の削除（先頭がタイトル行にチェック）
> アップされた例なら D1:D7 に縮まります。
> ３．Ｅ１にＢ１のタイトル項目をコピー
>３．Ｅ２：Ｅ７を選択し =SUMIF(A:A,D2,B:B) これをタイプして Ctrl/Enter。
> ４．Ｄ：Ｅ列を選択して Ctrl/c 。そのまま 形式を指定して【値】貼り付け。
> ５．そのまま Ctrl/x。
> ６．Ａ１を選択して Ctrl/v。
>
>
>この操作をマクロ記録し、それを(かなり）お化粧直ししたのが以下のコードです。
>
>Sub Sample()
> Columns("A").Copy Range("D1")
> Columns("D").RemoveDuplicates Columns:=1, Header:=xlNo
> Range("E1").Value = Range("B1").Value
> With Range("D2", Range("D" & Rows.Count).End(xlUp))
> .Offset(, 1).Formula = "=SUMIF(A:A,D2,B:B)"
> .Offset(, 1).Value = .Offset(, 1).Value
> End With
> Columns("D:E").Cut Range("A1")
> End Sub
>
>
早速の回答ありがとうございます。せっかくコードを教えてくださったのに最初の条件の追加でもうしわけございませんが、DとEコラムの重複も同時に無くしたいのですが、ご教授おねがいしてもよろしいでしょうか？DとEコラムも、Aコラムと同じ状態で両方ともRow2から始まります。
|
|
VBA初心者
- 16/2/17(水) 13:09 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
