• ベストアンサー

マクロで数値の小さい順に並べたい。

マクロで数値の小さい順に並べたい。 すみません、教えてください。B列に数値が順不同で記述されているのですが、その数値をA列に数値の 小さい順に並べ変えたいと思っています。それを、マクロで記述する方法を教えて頂けませんでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

B列のデータの途中に空白がないなら Sub test01()   Range(Range("B1"), Range("B1").End(xlDown)).Copy Range("A1")   Range(Range("A1"), Range("A1").End(xlDown)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo End Sub でOKです。

konekos
質問者

お礼

merlionXX様 有難うございます。解決できました。

関連するQ&A

  • Excel 順不同数値の検索

    | A | B |   100 115   110   120   130   120   110   120 このように数値が順不同で並んでいるA列を上から検索して、 B1の値と同じ値かそれ以上になる行番号(かその値)をB2に表示させるには どのようにすればよろしいでしょうか。 (上記の場合ですと、3行目の120の値をB2に表示させたい。) 出来ればVBAは使わず関数だけで実現したいと考えています。 VLOCKUP、MATCH等々、検索関数を調べましたが出来そうで出来ません。 ご教示頂けますでしょうか。

  • Excel 順不同数値の検索 2

    | A | B |   100 101   102   101   100   101   102   103 このように数値が順不同で並んでいるA列を上から順に検索して、 一番最初にB1の値と同じ値かそれ以上になる値をB2に表示させるには どのようにすればよろしいでしょうか。 (A列にはB1と同じ値かそれ以上になる値が必ず存在するものとします。) 前回質問の結果、B2に下記のように入力したところ、 「=SMALL(A:A,COUNTIF(A:A,"<"&B1)+1)」 B2には「101」が表示される結果となりました。 (期待結果としては一番最初にB1「101」を超える2行目の「102」を表示したい) QNo.7625709 http://okwave.jp/qa/q7625709.html で質問させてもらい回答を得ましたが、 期待とは違う結果となる場合があることがわかったため、 再質問になります。  ※前回質問ではわかりづらかったため少し内容を変えています。 ご教示頂けますでしょうか。

  • 数値の大きい順にソート

    数値の大きい順にソートするにはどのようにしたらよろしいでしょうか? 例えば、 @A = ("10","5","18","6","9"); という配列があるとします。 これを @B = sort @A; とすると、 10,18,5,6,9 となってしまいます。 これを 18,10,9,6,5 のように数値の大きい順に配列Bに代入したいのですが、どうしたらよいでしょうか?よろしくお願いします。

    • ベストアンサー
    • Perl
  • エクセルマクロで重複数値と以外の数値を抽出する

    数値の表を作成しておりますが、 重複数値で困っております。マクロで教えてください。 A列11~20まで1.2.2.4.5.6.6.8.9.10とあるデータに 2と6が重複しています 重複数値2.6をB列2行目以降に、C列2行目以降にはそれ以外の1.4.5.8.9.10 を抽出したいのですが、マクロで教えてください。 (offsetを使ってできますか?) また、重複数値を抽出する自作関数ってできるでしょうか? よろしくお願いいたします。

  • スペースで別れたセル内の数値を若い順に並び替える

    A1= b62 3d 6e b7f A2 = s6c 2d 6e s7f とA列内の各セルに、2桁ないし3桁の文字列(左はsかbもしくはブランク、 真ん中は1から7までの整数、右はアルファベットaからfまで)が各4つ~6つ程あります。これを以下の規則に従って、セル内で並び替えることはできますか?マクロだと助かります。 規則は (1)真ん中の数字が若い順に並び替え (2)真ん中の数字が同じものが複数ある場合は右のアルファベットが若い順に並び替え (3)真ん中と右の数字が同じものが複数ある場合はb、ブランク、sの順に並び替え。 つまり A64= s7b b7b 7b 7c だったら A64=b7b 7b s7b 7c このように並び替えられるようにしたいのですが、可能でしょうか。

  • 1分ごとの数値のマクロ

    エクセルのVBAで、楽天RSSから1分ごとに株価が入るようにするマクロを作りたいのですが、初心者なので手が出ません。 作成したいものは以下のようなものです。 1分ごとに、1001行のA列に時間が入り、1001行のB列からIV列に、1行上の1000行の数値(この数値はあらかじめ入っていて変化します)が入るようにします。 新しい株価が1001行に入るようにして、時間が前の株価は1分ごとに1行ずつ下に下がっていくことになります。 10時に最初の株価が入ったのが例1でして、1分経ちますと例2のように1行繰り下がり、もう1分経ちますと例3のようにまた1行繰り下がります。 どうぞよろしくお願いします。 例1        A         B        C ・・・・ 1000            100       50 1001  10:00:00     100      50 1002    1003 例2        A         B        C ・・・・ 1000             105      45 1001  10:01:00     105      45 1002  10:00:00     100      50 1003 例3        A         B        C ・・・・ 1000             110      40 1001  10:02:00     110      40 1002  10:01:00     105      45 1003  10:00:00     100      50

  • エクセルについて(初歩)

    A1列に 1 5 18 29 4 7 ・ ・ ・ と順不同で数値が入っています。 1から順に大きくなっていく様に並べ代えたいのですが 教えてください

  • エクセルマクロで条件に該当する数値を探す

    エクセル初心者です。 シート1のA1~A18に1~18の数値がランダムに入っています。(重複した値は無し) シート2の3行目C3~T3にも1~18の数値がランダムに入っています。(空欄あり、重複した数値は無し) シート2の2行目C2~T2までは左から順に1~18の数値が入っています。(順位表示) 以上の条件下で下記の作業をマクロで実行させる式を教えてください。 シート1のA1~A18の値と同じ値を、 シート2の3行目C3~T3の中からどのセル(列)に入っているかを確認して、さらに該当する列の2行目C2~T2の値を、シート3の1行目A1~R1に表示させる。 例:シート1のA1=3、A2=2、A3=1の時、 シート2のC3=3、D3=1、E3=2でした。 シート2のC2=1、D2=2、E2=3です(この行の数値は毎回同じ) 上記の時シート3にはA1=1、B1=3、C1=2となります。 *シート1のA列A1~A18とシート3の1行目A1~R1の位置関係はリンクしています。(列→行) シート1 A列 1 3 2 シート2   A列 B列 C列 D列 E列 2行見出し見出し1  2  3 3行見出し見出し3  1  2 シート3 A列 B列 C列  2  1  3 ご理解頂けたでしょうか? 初心者ですので分かりやすい回答を宜しくお願いいたします。

  • 不規則な数値を一覧表にしたいのですが

    たとえば    A B    3 6    4 2    1 5    5 8    9 9    1 5 と言う感じに縦にA列B列の不規則な数字が並んでいるものを       B列   123456789 A1    2 列2  3     1  4 1  5       1  6  7  8  9        1 と言う感じに関数で並び替えることは可能でしょうか?? 数値は20位まで有り、同じ数値が2~3つになることも有ります。 関数が無理ならマクロでもかまいませんが、 マクロは素人なので丁重に指導していただくと幸いです。 宜しくお願いします。

  • Excelの住所録を「あいうえお」順にならべるには?

    Excelで住所録を編集しました。 名前が順不同になっているので 「あいうえお」順にしたいのですが出来ますか? 住所録にはB列にカタカナのふりがながとC列に漢字名付いています。 よろしくお願いします。

専門家に質問してみよう