エクセルのマクロについて

質問

エクセルのデータ処理で困っています。
A列とB列に8000行記入されており、A列とB列の内容をA列にまとめる処理を行おうとしています。
具体的には、元のデータA1、B1、A2、B2を新たにA1、A2、A3、A4に整理する処理です。

マクロを使えば容易に処理できると思うのですが、当方エクセルに詳しくなく困っています。
お詳しい方、処理方法などをご教授していただけないでしょうか。
よろしくお願いいたします。

回答No.7

Java_Sharp

あー、回答しようと思っていた答がaokiiさんから、すでに出ていますので、ちょっと丁寧に書いてみます。

まず、エクセルに詳しく無い方は、マクロを使わないほうが良いと思います。後で改良しようとしても大変だから。

丁寧にaokiiさんの方法を書いてみます。鍵は、「並び替え」という機能です。
1)まず、ちょっとした仕掛けをわかりやすさのために創ります
見やすさのために1列開けて、D列E列F列を使います。
D1に「No.」、E1に「並び替えキー」、F1に「内容」と入力します。列タイトルになります。
2)次にA列とB列を一緒にしちゃいましょう。どうせ一列にするので。
2-1)A1からA8000までを選択して、F2からF8001にコピーします。
2-2)B1からB8000までを選択してF8002からF16001にコピーします。
これで、F列2行から8001行までの前半にA列の値が並び、D列8002行から16001行までの後半がB列の値が並んでいます。
3)仕掛けに必要な数値を入れていきます
3-1)D2に「1」を入力し、D3に「2」を入力し、其の上でD1D2セルを選択して、右下の■部分をマウス左ボタンクリックしたままびゃーと下向きにドラッグし続けます。数字が小さく出ると思いますが、それが16000になるまで下向きにドラッグしてそこでクリックを外して下さい。オートフィルという操作で、一度に数値入力できます。D2からD16001までのセルが埋まりました。
3-2)今度は、E2に「1」E3に「3」を入力し、同様にオートフィルしてみて下さい。今度は、15999まで。セルで言うとE2からE8001までが奇数で埋まります。E8001の値は「1599」その左隣D8001の値は「8000」です。
3-3)次に、E8002に「2」E8003に「4」を入力し、下向きに同様にオートフィルを16000に達するまでして下さい。E8002からE16001までが偶数で埋まります。E16001の値が「16000」その左隣D16001の値も同じ「16000」です。

あと、2ステップです。
4)まず、テーブル定義をします。
今、入力したセルのどれか、例えばD1のセルを選択しておきます。
ホーム > テーブルとしての書式設定
をクリックします。好みで、色やレイアウトのスタイル選択して下さい。後でいくらでも変更できます。
「テーブルとして書式設定」というポップアップが表示されます。
テーブルに変換する範囲というのが、「=$D$1:$F$16001」になっていて、「先頭行をテーブル見出しとして使用する」にチェックが入っていることを確認します。
「OK」ボタンをクリックして下さい。
鮮やかに、レイアウトが変更されましたね。
色がついた範囲を「テーブル」といいます。

すべての準備が完了しました。
5)E1「並べ替えキー」のセルの右下に下三角▼ボタンがあるのでクリックして下さい。
表示されたメニューから「昇順」を選んで下さい。
「テーブル」の様子がガラッと変わったともいます。内容の列（F列)に求めるものが表示されていると思います。
もとに戻したいときは、D1「No.」のセルの右下に下三角▼ボタンから「昇順」を選ぶと、元の状態に戻すことができます。

お礼

すみません、ベストアンサーを選んだあとに気がつきました。
画像まで貼って丁寧に教えていただきありがとうございます。
確かに並べ替えやソート機能は便利ですね。