A 回答 (5件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんばんは!
VBAでの一例です。
おそらくないとは思いますが・・・
A列重複会社に同じ商品が重複していても対応できるようにしてみました。
元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, lastRow As Long, lastCol As Long
Dim c As Range, myRng As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
Application.ScreenUpdating = False
wS.Cells.Clear
With Worksheets("Sheet1")
If .Range("A1") = "" Then
.Range("A1") = "ダミー"
End If
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(2, Columns.Count).End(xlToLeft).Column
Range(.Cells(1, "B"), .Cells(2, lastCol)).Copy wS.Range("B1")
Set myRng = Range(wS.Cells(3, "B"), wS.Cells(lastRow, lastCol))
With myRng
.Formula = "=SUMIF(Sheet1!$A:$A,$A3,Sheet1!B:B)"
.Value = .Value
End With
For Each c In myRng
If c = 0 Then
c.ClearContents
End If
Next c
If .Range("A1") = "ダミー" Then
.Range("A1") = ""
wS.Range("A1") = .Range("A1")
End If
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub
※ データ変更があるたびにマクロを実行する必要があります。m(_ _)m
No.2
- 回答日時:
何のことはない、お茶の子です。
1.「0;;」に書式設定した Sheet2!B3 に次式を入力して、此れを右端まで
 ̄ ̄ズズーッとオートフィル
 ̄ ̄ =SUMPRODUCT((Sheet1!$A$3:$A$5000=$A3)*(Sheet1!B$3:B$5000))
2.範囲 B3:M3 のフィルハンドルを「エイヤッ!」とダブルクリック
No.1
- 回答日時:
会社名をクリックして、データ 並べ替え (昇順でも降順でもよい)
データ - 小計
グループの基準 : 会社名
集計するフィールド 商品のすべて(会社名を除くすべて)
OK (小計機能を戻すときは[すべて削除])
画面左にできたグループナンバー[2]をクリック
場合により
A2セルクリック [Ctrl]+[Shift]+[*]
[Alt]+[;]
[Ctrl]+[C]
別のシートなどに貼り付け[Ctrl]+[V]
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- 統計学 t検定について教えてください 2 2023/02/23 16:35
- 統計学 どの統計を使えばいいのか教えてください(EZ-Rを使用) 5 2022/10/11 13:28
- Excel(エクセル) エクセルデータの集計、一つのセルに複数のデータがある場合 7 2022/12/28 20:19
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) エクセルで最初に値が入っているセルを見つける方法はありますか? 2 2023/07/18 14:58
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) VBA 毎日取得するデータを順番に反映していく方法 6 2023/08/26 16:22
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
F9キーについて。
-
Excel 小さくなったスクロール...
-
Excel関数について教えてくださ...
-
計算能力
-
Excelセルを跨いで合計を出す方法
-
Excelに詳しい方! B列が「日...
-
エクセルでファイルの最終更新...
-
Excelのピボットグラフの作り方...
-
Excelファイルが開けません
-
Excel 2019 [オプション]の[リボンのユ...
-
【EXCEL】画像の黄色部分の抽出...
-
スプレッドシートの関数につい...
-
エクセルで 自動的に◯や数字を...
-
excel2013 MonthDays 関数が使...
-
シフト表をエクセルで作るとき...
-
EXCELの散布図で日付が1900年に...
-
特定の文字列を含む、住所を抽...
-
Excel分数の表示について
-
エクセルの関数について教えて...
-
マイクロソフトのPADを使ってい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報