Excelで
1 2 3 4 5 6 7 8 9 10 ・・・100
A班 B班 C班 D班 E班 F班 G班 H班 I班 J班
50 20 23 22 10 35 62 21 16 15
という並びのものを列を入れ替えて、
1 2 3 8 5 16 17 4 9 10 ・・・100
A班 B班 C班 H班 E班 P班 Q班 D班 I班 J班
50 20 23 21 10 55 41 22 16 15
というように毎回指定の順序で列の並び替えを行いたいと考えています。
それぞれの列には100行程度データがぶら下がっています。
手作業で入替を行うと毎回時間がかかるため、一回フォームを作って
自動化したいのですが、方法がわかりません。
VBAかプログラムを使えばできそうな気がするのですが、
何か参考になるものがあれば教えていただけるとありがたいです。
Excelの列の入れ替えツールを探したところ、「入替え君」「DB構造変更「そよ風」」
といったツールがありましたが、自動化できるものはありませんでした。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
検証してみましたが、特にVBAを使わなくてもできると思います。
VBAも、簡単なコードで済みますが、指定順序を100個ともなると、ユーザー設定で、コードを入れるのにも、間違えずに入れていただくにも大変です。毎回の指定順序があるなら、まず、その指定順序番号をどこかに用意してください。(ワークシート上です)
ただし、文字列でなくてはいけませんから、数字は、書式で、「文字列」にしておいてください。1度、設定したら、毎回設定する必要ありません。
その文字列の行を、ツール-オプション-ユーザー設定リストを開けて、
リストの取り込み元範囲で、その範囲を決定して、「インポート」してください。
(不要になったら、リストの中から選んで、削除できます)
*正しく設定されたかリストの中を確認してください。
次に、並び替えする範囲を選択してから、
データ-並べ替え-オプション-
並べ替え順序 の指定で、
先ほどの数字を選んでください。
方向は、列単位
「OK」
で並び替えが終了します。
(並べ替えデータは、特に、数字が、文字列になっていなくてもよいようです)
**
それを、マクロ化されたいのでしたら、記録マクロで十分だと思います。
既に設定された順序があれば、おそらく専門的なプログラムよりも、はるかに良いものが出来上がるはずです。
おおっ、こんな方法があったんですね。
できました!すばらしい。
目からウロコ状態です。
ありがとうございました。
お礼が遅くなってすみません。
(一週間前に書き込んだのですが、反映されていなかったのに今日気づきました)
No.2
- 回答日時:
毎回全く同じ列を入れ替えるのでしょうか?
それならば下記方法が簡単です。
ツールメニュー→マクロ→新しいマクロの記憶を選択します。
その状態で手作業で入替を行ってください。
入替が終わったら記憶の終了。
これで手作業で行った入替がマクロ化されます。
後はツール→マクロ→マクロで同じ操作が行われます。
回答、ありがとうございました。
マクロも検討してみたのですが、
No.3の方の方法が一番融通がききそうですので
そちらで対応することにしました。
ありがとうございました。
お礼が遅くなってすみません。
(一週間前に書き込んだのですが、反映されていなかったのに今日気づきました)
No.1
- 回答日時:
並べ替えをするためのルールのようなものは
毎回定まっているのでしょうか?
それがあればなんとかVBAを使用して自動化できるかもしれません。
決められたルールが定まっていないようであれば、
結局手作業ではありますが、一番最後の行に並び順の
数字を1から入力して、それをキーに並べ変えれば
少しは手間が省けると思います。
ルールがあるのであれば、差し支えない程度に
教えていただければ何か助言ができるかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルのマクロについて教え...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
Excel VBAからAccessマクロを実...
-
特定文字のある行の前に空白行...
-
Excel_マクロ_現在開いているシ...
-
エクセルで別のセルにあるふり...
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
マクロ実行時、ユーザーフォー...
-
EXCELマクロでのThisisWor...
-
ダブルクリックで貼り付けた画...
-
Excelで特定の文字のところで自...
-
wordを起動した際に特定のペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
-
【EXCEL VBA】オートシェイプを...
-
エクセルのマクロをセルの値に...
おすすめ情報