
下のような2つの表を日付順に並び替え1つの表に表示したいのですが、教えてください。
簡単な方法でお願いします。
(1) A B C D (2) H I J K
日付 名前 金額 内容 日付 名前 金額 内容
9/10 や 100 g 9/25 た 250 g
9/5 か 200 g 9/15 みか 200 g
9/30 ゆ 500 s 9/30 こ 300 s
結果
A B C D
日付 名前 金額 内容
9/5 か 200 g
9/10 や 100 g
9/15 みか 200 g
9/25 た 250 g
9/30 こ 300 s
みたくしたいのですが。よろしくお願いします。
9/30 ゆ 500 s
No.2ベストアンサー
- 回答日時:
こんばんは!
元データはSheet1にあり、Sheet2に並び替えて表示するとします。
一番簡単なのは手を動かして、
A1~D列最終行をSheet2のA1セルにコピー → H2~K列最終行をSheet2のデータが表示されている次の行にコピー
→ Sheet2をA列の昇順で並び替え!
とコツコツやることだと思います。
それを一気にやりたい!となればVBAで上記の操作をやれば可能です。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
尚、Sheet1のデータは1行目が項目行で2行目以降にあるという前提です。
Sub 並び替え() 'この行から
Dim endRow1 As Long, endRow2 As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
wS2.Cells.Clear
endRow1 = wS1.Cells(Rows.Count, "A").End(xlUp).Row
Range(wS1.Cells(1, "A"), wS1.Cells(endRow1, "D")).Copy wS2.Range("A1")
endRow2 = wS1.Cells(Rows.Count, "H").End(xlUp).Row
Range(wS1.Cells(2, "H"), wS1.Cells(endRow2, "K")).Copy wS2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
wS2.Range("A1").CurrentRegion.Sort key1:=wS2.Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
ご回答ありがとうございました。
お礼をしたつもりでおり遅くなり申し訳ありませんん。
やはりコピーするのが一番面倒くさくないとのことですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 行の"〇" を検索して見出し(日付)を表示させたい 1 2022/04/04 18:35
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) エクセルの数式で教えてください。 4 2023/06/27 09:56
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- 経済学 <助けてください> 1 2022/07/09 20:12
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
エクセルで作成した縦に長い表...
-
エクセルのリストから欠番を拾...
-
Excelピボットテーブルで 総計...
-
オートフィルタのリストを順番...
-
WEB上の表の列コピー選択方法は?
-
メモ帳からエクセルに貼り付け...
-
エクセルVBAで、行コピーを複数...
-
【エクセル】行挿入で数式もい...
-
エクセルの関数の使い方 繰越...
-
Excelの数式のコピーで列移動で...
-
至急!人名漢字について
-
エクセルで各ページに同じ文書...
-
エクセル シートのコピーをリ...
-
PDFからExcelに変換する時に「...
-
エクセルの列幅
-
ピボットテーブル→参照が正しく...
-
Excel 表から値をさがして隣の...
-
地番を順に並べたい。
-
エクセルで文字色がついている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
【エクセル】行挿入で数式もい...
-
Excelピボットテーブルで 総計...
-
メモ帳からエクセルに貼り付け...
-
オートフィルタのリストを順番...
-
Excelの数式のコピーで列移動で...
-
エクセルVBAで、行コピーを複数...
-
ピボットテーブル→参照が正しく...
-
エクセルのリストから欠番を拾...
-
エクセルの関数の使い方 繰越...
-
Excel 表から値をさがして隣の...
-
エクセルの列幅
-
エクセルに詳しい方、助けてく...
-
ワードでアンケートの集計をし...
-
ACCESSのデータをEXCELに貼り付...
-
Excelで検索結果をテキストボッ...
-
◆エクセルで行単位で重複検索し...
-
VBA csvを100万行ずつ各...
おすすめ情報