Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4474 / 76807

←次へ　｜　前へ→


	【77956】Re:重複処理、合計計算

VBA初心者 - 16/2/17(水) 13:09 -


	引用なし

	パスワード

▼β さん：
>▼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から始まります。

1 hits

▼

【77952】重複処理、合計計算 VBA初心者 16/2/17(水) 4:18