下のような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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
WEB上の表の列コピー選択方法は?
-
オートフィルタのリストを順番...
-
一つのシートの中に複数のペー...
-
【エクセル】行挿入で数式もい...
-
エクセルのリストから欠番を拾...
-
Excelピボットテーブルで 総計...
-
エクセルVBAで、行コピーを複数...
-
メモ帳からエクセルに貼り付け...
-
毎回、データの行数が変化して...
-
ピボットテーブル→参照が正しく...
-
Excel 表から値をさがして隣の...
-
地番を順に並べたい。
-
ACCESSのデータをEXCELに貼り付...
-
複数行のセルを行番号を指定し...
-
ワードでアンケートの集計をし...
-
シートの移動が出来ません。
-
Excelの数式のコピーで列移動で...
-
勤続年数の平均を求めたい時の関数
-
Excelでセル参照したとき、書式...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
【エクセル】行挿入で数式もい...
-
オートフィルタのリストを順番...
-
メモ帳からエクセルに貼り付け...
-
エクセルのリストから欠番を拾...
-
エクセルVBAで、行コピーを複数...
-
Excel 表から値をさがして隣の...
-
Excelピボットテーブルで 総計...
-
エクセルの列幅
-
Excelの数式のコピーで列移動で...
-
エクセルの関数の使い方 繰越...
-
ピボットテーブル→参照が正しく...
-
エクセルに詳しい方、助けてく...
-
◆エクセルで行単位で重複検索し...
-
エクセルVBAでメモリ解放するに...
-
エクセルで各ページに同じ文書...
-
ACCESSのデータをEXCELに貼り付...
-
地番を順に並べたい。
おすすめ情報