[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『並べ替え』(あや)
下記のような並べ替えを、マクロで行いたいです。 全文検索をしてみましたがうまくみつからなくて・・・ 数値には規則性がなく、数値の大きい順等ではなく、 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.