Excel VBA質問箱 IV

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

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


4404 / 76734 ←次へ | 前へ→

【77953】Re:重複処理、合計計算
発言  β  - 16/2/17(水) 6:34 -

引用なし
パスワード
   ▼VBA初心者 さん:

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

1.A列を D列にコピペ
2.D列を選択して データタブ 重複の削除 アップされた例なら D1:D6 に縮まります。
3.E1:E6を選択し  =SUMIF(A:A,D1,B:B) これをタイプして Alt/Enter。
4.D:E列を選択して Ctrl/c 。そのまま 形式を指定して【値】貼り付け。
5.そのまま Ctrl/x。
6.A1を選択して 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

8 hits

【77952】重複処理、合計計算 VBA初心者 16/2/17(水) 4:18 質問[未読]
【77953】Re:重複処理、合計計算 β 16/2/17(水) 6:34 発言[未読]
【77954】Re:重複処理、合計計算 β 16/2/17(水) 8:09 発言[未読]
【77955】Re:重複処理、合計計算 β 16/2/17(水) 8:15 発言[未読]
【77956】Re:重複処理、合計計算 VBA初心者 16/2/17(水) 13:09 発言[未読]
【77957】Re:重複処理、合計計算 β 16/2/17(水) 14:41 発言[未読]
【77958】Re:重複処理、合計計算 VBA初心者 16/2/17(水) 14:59 お礼[未読]

4404 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free