No.3ベストアンサー
- 回答日時:
こんにちは
ご質問の内容は、セル範囲の取得(=最終行の取得)を除けば、ほとんど「マクロの記録」でまかなえる範疇ですね。
Sub Sample()
Dim sh As Worksheet, mRow As Long
Set sh = Worksheets("Sheet2")
Worksheets("Sheet1").Columns("F:I").Copy sh.Columns("A:D")
sh.Range("A1").Resize(sh.Cells(Rows.Count, 1).End(xlUp).Row, 4) _
.RemoveDuplicates Columns:=1, Header:=xlYes
mRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
If mRow < 2 Then Exit Sub
sh.Range("A1").Resize(mRow, 4).Sort key1:=sh.Range("A1"), Header:=xlYes
With sh.Range("C2").Resize(mRow - 1)
.FormulaLocal = "=SUMIF(Sheet1!F:F,A2,Sheet1!H:H)"
.Value = .Value
End With
End Sub
No.2
- 回答日時:
こういう流れ
1.作業用シートを生成
2.作業用シートに転記
3.作業用シートをsort
4.作業用シートを集約
5.作業用シート合計と元シート合計を突合しベリファイ
6.作業用シートから転記
7.作業用シートを削除
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Excel(エクセル) Excelで在庫表(クエリ、ピボット) 2 2022/04/11 17:11
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Visual Basic(VBA) 重複データをまとめて合計を合算する 4 2022/10/25 20:25
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) 「製品研磨」取り代時間設定の計算が複雑 2 2022/07/30 01:12
- 情報・ワイドショー フジテレビ系「めざましじゃんけんキーワード」は4種類あるがどのような仕組みで割り当てられるのか? 2 2023/06/08 08:47
- Excel(エクセル) 生産日報と月間集計 3 2022/06/21 22:32
- その他(ビジネススキル・経営ノウハウ) クラウドファウンディングによる新製品の販売支援要求。「あれ?この商品、もう完成品じゃね?」という疑問 2 2022/08/22 12:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 検索して一致したセル...
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
ユーザーフォームに入力したデ...
-
シートが保護されている状態で...
-
シートをコピーして コピーした...
-
エクセルで通し番号を入れてチ...
-
イベントの違いを教えてください。
-
ExcelVBA シート名を複数セルか...
-
VBA 存在しないシートを選...
-
コマンドボタンをクリックでシ...
-
Excel VBA マクロ あるフォルダ...
-
Excel マクロについての相談
-
特定の文字を含むシートだけマ...
-
XL:BeforeDoubleClickが動かない
-
Excelマクロのエラーを解決した...
-
エクセルのマクロについて教え...
-
エクセルVBA Ifでシート名が合...
-
vbaマクロについて シート1のA...
-
vbaでworksheetfunctionでの複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報