Excel VBA質問箱 IV

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

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


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

4475 / 76807

←次へ　｜　前へ→


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

β - 16/2/17(水) 8:15 -


	引用なし

	パスワード

▼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

1 hits

▼

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