[[20070702170331]]　『並べ替え』（あや）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『並べ替え』（あや）

 下記のような並べ替えを、マクロで行いたいです。
 全文検索をしてみましたがうまくみつからなくて・・・
 数値には規則性がなく、数値の大きい順等ではなく、
 1a1b2a2b・・・という順で縦一列にしたいのです。
 よろしくお願いいたします。

    a   b
 1 100 150
 2 170 250
 3 300 320 
 4 400 150
 5 590 550

    a
 1 100
 2 150
 3 170
 4 250
 5 300
 6 320
 7 400
 8 150
 9 590

---

 マクロでは、ありませんが、このようなご質問がありました。↓　　(#REF!MAN)
[[20050218140702]]『2列を1列に』（GOM）

---

 Sub TESE1()
 Dim ARR1(1000)
 Dim I, CT1
 CT1 = 1
 For I = 1 To 500
   If (Cells(I, 1) = "") Then Exit For
   ARR1(CT1) = Cells(I, 1): Cells(I, 1) = ""
   CT1 = CT1 + 1
   ARR1(CT1) = Cells(I, 2): Cells(I, 2) = ""
   CT1 = CT1 + 1
 Next I
 For I = 1 To CT1
   Cells(I, 1) = ARR1(I)
 Next I
 End Sub

 これでどうでしょう。
 ご参考まで。

                              (mr_mangoos)

---

 #REF!MANさん
 ありがとうございます。
 私のとまるで一緒ですね・・・
 探し方がいたらず申し訳ありません。反省してます。

 mr_mangoosさん
 わざわざありがとうございます。
 使わせていただきます。親切にありがとうございました。

 (あや)

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.