Excel VBA質問箱 IV

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

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


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

4477 / 76807

←次へ　｜　前へ→


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

β - 16/2/17(水) 6:34 -


	引用なし

	パスワード

▼VBA初心者さん：

トピの目的が、ループ処理の構文を身につけたい、勉強したいということなのか
このテーマを、自分でもわかる方法で実行したいのか、それがわかりませんが
後者で。

１．Ａ列を　Ｄ列にコピペ
２．Ｄ列を選択して　データタブ　重複の削除アップされた例なら D1:D6 に縮まります。
３．Ｅ１：Ｅ６を選択し　　=SUMIF(A:A,D1,B:B)　これをタイプして　Alt/Enter。
４．Ｄ：Ｅ列を選択して　Ctrl/c 。そのまま　形式を指定して【値】貼り付け。
５．そのまま　Ctrl/x。
６．Ａ１を選択して Ctrl/v。

この操作をマクロ記録し、それを(かなり）お化粧直ししたのが以下のコードです。

Sub Sample()
　　Columns("A").Copy Range("D1")
　　Columns("D").RemoveDuplicates Columns:=1, Header:=xlNo
　　With Range("D1", Range("D" & Rows.Count).End(xlUp))
　　　　.Offset(, 1).Formula = "=SUMIF(A:A,D1,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