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ランキング
-
Excel関数-文字列で自動作成さ...
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシート、Excelでの数...
-
Microsoft Officeの中古は信用...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシートで使う数式を...
-
エクセルでの特別な文字を上に...
-
エクセル日付 文字列の関数がエ...
-
A列とB列を参照してC列に連番を...
-
エクセルVBA、別ブックへ転記す...
-
各ページの1番上の表示について
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
【マクロ】アクティブセルにブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報