エクセル 並び替えてコピー

添付の表のように、ファイル１をファイルに２にコピーする場合、
並び替えてコピーする方法はありますか？
現在は、コピーした後に列を入れ替え、必要なセルに関数をコピーして
いる為手間がかかります。何かヒントになる事があれば教えてください。

No.8 回答者： googoo900 回答日時： 2019/04/29 04:38

添付図はハズキルーペを使っても読めないですね。

やりたいことがイマイチわかりませんが、おそらく『マクロの記録』で解決すると思いますよ。

No.7 回答者： mike_g 回答日時： 2019/04/27 12:58

mariangieさん、

「40代の方」ならその添付図を判読できると、貴方自身は思い込んでいるの？

No.6 回答者： ママチャリ 回答日時： 2019/04/27 10:41

No.5です。

列の入れ替えだけですが、ヒントになれば幸いです。
「ユーザー設定の並べ替え」からオプションで「列単位」を指定して、「順序」でユーザ設定リストを指定して並べ替えます。事前に項目名を並べたい順番でユーザ設定リストに登録しておいてください。

No.5 回答者： ママチャリ 回答日時： 2019/04/26 21:38

フィルターオプションが使えるかもしれません。

この機能は、条件を指定することによって、該当データを抽出するものですが、条件を指定しなければ全件コピーできます。それ以外に必要な列だけ抜いたり、列の順番を変えたりもできます。
マニュアル操作でもできますが、マクロにするとこんな感じになります。

Sub sample()
Workbooks("Book1").Sheets("Sheet1").Columns("A:D").AdvancedFilter _
Action:=xlFilterCopy, Unique:=False, _
CopyToRange:=Workbooks("Book2").Sheets("Sheet1").Columns("A:D")
End Sub

No.4 回答者： komugi3333 回答日時： 2019/04/26 17:28

「並び替え」というのは、「列の入れ替え」であって、行方向「縦方向」の並べ替えのこととは違うんですよね？

たぶん・・・

非難されがちな意見だと思いますが・・・、

もし、２つの表が
★本当に添付の図のような規模感で、

かつ、
もし「ファイル２」のほうが
★「新規ファイル」でもいい、あるいは、
★名前が固定のひな型（というか空のファイル）でもいい
ということで、

かつ、
★表コピペ+並べ替え＋数式フィル完了後に名前を付けて保存は手動でやる

・・・ということでよいのでしたら、
私なら「マクロの記録」機能で自動化しちゃいます。
で、それをクイックツールバーか、リボンのアドインタブにボタン化しておきます。

「ファイル１」を開いて、表の範囲をドラッグなどで選択するところまでは手動でやり、
あとの処理は全部マクロの記録機能で自動化します。
最後の名前をつけて保存、も手動でやって、完了です。

VBA作ったりするのも面倒くさいので、もし誰かにご質問のようなことを頼まれたら多分そうすると思います。
で、「なんかおかしく動いたらまた呼んで」と言っておきます。
3分で解決できます。

No.3 回答者： nouble1 回答日時： 2019/04/26 13:28

関数で　実現できると、

思いますが、

現状では、
ビフォー、アフターに、
違いが　認められません。


どういったものを、
どう　ゴールさせたいか、

明確に　可視化しては、
頂けませんか？

No.2 回答者： fujillin 回答日時： 2019/04/26 11:02

こんにちは

状況がわからないので、以下が有効かどうかわかりませんが、ひとつの方法の例として・・・

添付図がよく読めませんが、両ファイルとも1行目はタイトル行でデータは2行目以降に並んでいるものと推測しました。
ファイル2のタイトルはファイル1と項目は同じで並び順が異なり、それに応じてデータの順を変えたいというご質問と解釈しました。

1）ファイル２の項目名を適宜入力（順が固定なら固定で入力しておく）
2）2行目以降のセルに、項目名でファイル1から検索して同じ行の値を参照する式を設定
（HLOOKUPでも可能と思いますが、項目検索のMATCHと同じ行からのINDEXあるいはOFFSETの組み合わせでできると思います、）
3）上式をファイル2の適当なセル範囲にフィルコピーしておく


※ 上記のままだと、ファイル2の内容はセル参照になります。（ファイル1に連動する）
　 値を固定化する必要がある場合は、セル全体をコピー → 値をペースト で可能です。

No.1 回答者： moon-and-star 回答日時： 2019/04/26 10:48

画像が小さくて見えません。