
Excel2003を使っています。
【例】
A1:N530の表の中の一部分D1:I530範囲(6列で530行)部分のみを
列単位で一括で並べ替えしたいと思っております。
D1:I530範囲には6列に23、96、11、106、72、49といったように530行全てランダムに数値が入っております。これを各行毎に全て左から昇順に530行分一括並べ替えしたいということでございます。
エクセル機能の「データ」→「並べ替え」→「現在選択する範囲を並べ替える」→「オプション」→「列単位」を指定して列単位に並べ替えは出来たのですが1行ずつしかソート出来ません。
このやり方では530回並べ替え作業をすることになり、時間的に余裕がないのでこの場合にExcel2003の機能で一括で530行分を列単位でもって左から並べ替えをする方法があるでしょうか?
ちなみにExcel2007もまだ使ったことないですが所持しています。
仕事上緊急でご質問させていただいております。是非助けてください。
No.4ベストアンサー
- 回答日時:
>セル背景色も一緒にソート移動されているかなと思った・・・・・
下記マクロを試してください。
Sub test1()
Dim r As Range
Dim srng As Range
Set srng = Range("D1:D530")
For Each r In srng
'列単位昇順並べ替え
r.Resize(, 6).Sort Key1:=r, _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Next
End Sub
一瞬で解決いたしました。
本当にありがとうございました。
まさかマクロでの御指導が来るとは想像もしていなかったですが、これを機会に自身もマクロの勉強努力いたします。
No.3
- 回答日時:
D E F G H I … O P Q R S T
1 23 96 11 106 72 49 … 11 23 49 72 96 106
2 340 490 351 216 423 477 … 216 340 351 423 477 490
3 239 211 224 448 155 432 … 155 211 224 239 432 448
… … … … … … … … … … … … …
528 423 482 221 491 21 239 … 21 221 239 423 482 491
529 125 334 159 436 185 73 … 73 125 159 185 334 436
530 330 62 438 132 291 448 … 62 132 291 330 438 448
1.セル O1 に次式を入力して、これを右方に5列ドラッグ&ペースト
2.範囲 O1:T1 を下方にズズーッとドラッグ&ペースト
(上表はその結果を示している)
3.そのままの状態で、[コピー]した後で、そのまンま[値の貼り付け]
4.そのままの状態で、Ctrl+Xキーを「エイヤッ!」と叩き付け
5.セル D1 を選択して、Ctrl+Vキーを「エイヤッ!」と叩き付け
No.2
- 回答日時:
一例です。
(1)データシートをsheet1、抽出シートをsheet2として、sheet2のA1に
=SMALL(Sheet1!$D1:$I1,COLUMN(A1))として右方向に6列分コピー
(2)sheet2のA1:F1を選択→下方向に530行分コピー
(3)sheet2の並び替え範囲を選択、コピー→データシートのD1を選択→形式を選択して貼り付け→値を選択→OK
この回答への補足
大変ありがとうございました。
ものすごく参考になり実践してみました。
こちらの関数で並べ替えが出来ました!
一転、補足し漏れておりました問題もございました。
数値データは=SMALL(Sheet1!$D1:$I1,COLUMN(A1))関数で並べ替えられましたが、実はこのデータ類には決められた数字に対して決められたセル色が複数色に渡り全ての数字に塗られております。セル背景色も一緒にソート移動されているかなと思ったのですがソートした時点でセル色だけ各セルバラバラになってしまいました。
解決出来るでしょうか?
助けてください。よろしくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルで2行まとめて並び替えするには?
その他(ソフトウェア)
-
EXCEL で複数行を1単位としてソートかけたいのですが
その他(ソフトウェア)
-
Excelで隣のセルと同じ内容に列を並べ替える方法
Excel(エクセル)
-
4
Excelで2行単位のソートの出来る方法があれば教えてください。
Excel(エクセル)
-
5
excel VBA の条件をつけての列ごと並び替える方法がわかりません。
Excel(エクセル)
-
6
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
7
項目(列)ごとの件数を一気に降順に並べ替える
Excel(エクセル)
-
8
エクセルで2列以上のものを同時に並び替えするには
Excel(エクセル)
-
9
エクセルで長い行を5行ごとに1列にするには?
Excel(エクセル)
-
10
エクセルで1行ごとの数値の並び替えを一度にしたい
その他(ビジネス・キャリア)
-
11
エクセルで、行ごとの並び替えをしたいです。 例えば りんご | 赤 バナナ | 黄 とまと | 赤
その他(Microsoft Office)
-
12
エクセルで、複数の列にまたがった情報を、一つの列の情報を元に並び替えを
Excel(エクセル)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
エクセルで複数のセルをランダムに並べ替えるには?
Excel(エクセル)
-
15
excelで検索値の入っているセル番地を取得するには?
Excel(エクセル)
-
16
Excelでの並べ替えを全シートまとめて処理したい
Excel(エクセル)
-
17
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
18
Excelですべての組合せ(重複組合せ)を出力するには?
Visual Basic(VBA)
-
19
エクセルのソートの繰り返し作業について
Access(アクセス)
-
20
エクセル 2つの表の並べ替え
Perl
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで何種類のデータがあ...
-
5
【エクセル】区切り位置で分割...
-
6
《エクセル2000》重複している...
-
7
値の入っているセルのうち、一...
-
8
ピボットテーブル 0個の行を...
-
9
SUMIFで数値が入力されているセ...
-
10
エクセル、正数のみの集計[(負...
-
11
Excel:合計が一番上になる形で...
-
12
エクセル セル内の重複する文...
-
13
SUMPRODUCT関数 行が増えても...
-
14
エクセル 8ケタの数字から日数...
-
15
Excelで複数列かつ複数行分の一...
-
16
【Excel】数式の参照範囲を可変...
-
17
離れたエリアでVLookupを使いたい
-
18
複数の候補列から、検索値と一...
-
19
VLOOKUP関数で複数のセルが該当...
-
20
エクセルの最小値抽出方法について
おすすめ情報
公式facebook
公式twitter