No.1ベストアンサー
- 回答日時:
Sub nnn()
Range("E1") = "区分"
Range("F1") = "SKUコード"
Columns("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:F2"), CopyToRange:=Range("H1"), Unique:=True
For i = 2 To Range("I50000").End(xlUp).Row
ccnt = 0
For ii = 2 To Range("B50000").End(xlUp).Row
If Range("H" & i) & Range("I" & i) = Range("A" & ii) & Range("B" & ii) Then
ccnt = ccnt + Range("C" & ii)
End If
Next
Range("J" & i) = ccnt
Next
Columns("E:G").Delete
End Sub
ですか
No.4
- 回答日時:
仕様がよくわからないのですが、「A列」に同じコードが存在する場合だけ「B列」のコードで合計すれば良いわけですか。
No.3
- 回答日時:
こんにちは!
すでに的確な回答は出ていますが・・・
一例です。
元データはSheet1にあり、Sheet2に表示するとします。
お示しの画像ではA列がすべて同じデータになっていますが、とりあえずA列も考慮してみました。
(A・B列で重複がないものの合計としています)
標準モジュールにしてください。
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myStr As String, wS As Worksheet
Dim myKey, myItem, myR, myAry
Set myDic = CreateObject("Scripting.Dictionary")
Set wS = Worksheets("Sheet2")
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(wS.Cells(2, "A"), wS.Cells(lastRow, "C")).ClearContents
End If
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(.Cells(2, "A"), .Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
myStr = myR(i, 1) & "_" & myR(i, 2)
If Not myDic.exists(myStr) Then
myDic.Add myStr, myR(i, 3)
Else
myDic(myStr) = myDic(myStr) + myR(i, 3)
End If
Next i
End With
myKey = myDic.keys
myItem = myDic.items
myR = Range(wS.Cells(2, "A"), wS.Cells(UBound(myKey) + 2, "C"))
For i = 0 To UBound(myKey)
myAry = Split(myKey(i), "_")
myR(i + 1, 1) = myAry(0)
myR(i + 1, 2) = myAry(1)
myR(i + 1, 3) = myItem(i)
Next i
Range(wS.Cells(2, "A"), wS.Cells(UBound(myKey) + 2, "C")) = myR
Set myDic = Nothing
wS.Activate
MsgBox "完了"
End Sub
※ コードは長いですが、数万行のデータでもほとんど時間を要しないと思います。
こんな感じではどうでしょうか?m(_ _)m
この回答へのお礼
お礼日時:2020/04/14 09:18
教えて頂きまして、ありがとうございました。助かりました。すごすぎてビックリです。
また質問をする際には、どうぞよろしくお願い致します。
No.2
- 回答日時:
一例です。
Sub megu()
Dim myDic As Object
Dim r As Range, v
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In Range("A1", Cells(Rows.Count, "A").End(xlUp))
If Not myDic.Exists(r.Range("B1").Value) Then
myDic.Add r.Range("B1").Value, Application.Index(r.Range("A1:C1").Value, 1, 0)
Else
v = myDic(r.Range("B1").Value)
v(3) = v(3) + r.Range("C1").Value
myDic(r.Range("B1").Value) = v
End If
Next
Cells.ClearContents
Range("A1").Resize(myDic.Count, 3).Value = Application.Transpose(Application.Transpose(myDic.Items))
Set myDic = Nothing
End Sub
この回答へのお礼
お礼日時:2020/04/14 09:10
教えて頂きましてありがとうございました。こんなのが書けるなんて、すごいですね。大変助かりました。ありがとうございました。またご縁がありましたら、どうぞよろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 1の行を固定した上でVBAを用いて日付順に自動並べ替え 2 2022/06/06 15:09
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Visual Basic(VBA) 転記するVBAコードを教えて下さい。 1 2023/03/31 17:22
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) エクセルVBA コードが同じでもファイルによって処理速度が大きく変わるのはなぜ 5 2022/11/06 21:34
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 【VBA】もし、値が0だったら左のセルと合わせて削除したい 3 2023/04/20 10:12
- Visual Basic(VBA) エクセル 2つの列にある値の完全一致を抜き出すVBA 15 2022/12/15 03:22
- Excel(エクセル) エクセルVBA 特殊フォルダのパスを取得の方法を教えてください 3 2022/09/02 13:14
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス 取り込み時に、桁数(...
-
エクセル 1つのシートを日付で...
-
Excel/VBA ステップインと通常...
-
エクセルマクロの組み方
-
エクセルでセル12個間隔で合...
-
【エクセルVBA】任意の画像フォ...
-
エクセルの列をたたむ操作
-
Excelの行数、列数を増やしたい...
-
列方向、行方向の定義
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
あああ..ああい..ああう とい...
-
Excelのマクロについて教えてく...
-
エクセル マクロ オートフィ...
-
Excelのマクロについて教えてく...
-
エクセルで複数のシートのクリ...
-
VBAマクロ実行時エラーの修正に...
-
Excelのマクロについて教えてく...
-
DataGridViewでグリッド内に線...
-
Excel UserForm の表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
エクセルマクロの組み方
-
Alt+Shift+↑を一括で行うには、...
-
えABのある列って
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
VBAで結合セルを転記する法を教...
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロPrivate Subを複...
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
Accessのレポートで繰り返し表...
おすすめ情報