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も見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCEL で複数行を1単位としてソートかけたいのですが
その他(ソフトウェア)
-
エクセルで複数行に渡ったセルのソートの仕方
その他(ビジネス・キャリア)
-
excel VBA の条件をつけての列ごと並び替える方法がわかりません。
Excel(エクセル)
-
-
4
Excelで2行単位のソートの出来る方法があれば教えてください。
Excel(エクセル)
-
5
エクセルで2行まとめて並び替えするには?
その他(ソフトウェア)
-
6
エクセルで1行ごとの数値の並び替えを一度にしたい
その他(ビジネス・キャリア)
-
7
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
8
Excel VBA マクロ 複数範囲を並び替えたい
Excel(エクセル)
-
9
文字列の結合を空白行まで実行
Visual Basic(VBA)
-
10
マクロ 2行ごとの並び替えについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで隣のセルと同じ内容に列...
-
Excel関数:「0」を除いた標準...
-
Excel関数で、範囲内の最後のセ...
-
【エクセル】区切り位置で分割...
-
ピボットテーブル 0個の行を...
-
値の入っているセルのうち、一...
-
SUMIFで数値が入力されているセ...
-
Excelのマクロでソートがうまく...
-
エクセルVBA AdvancedFilterの...
-
更新前と更新後の差分をVBAを使...
-
エクセルの最小値抽出方法について
-
【Excel】歯抜けデータの集約
-
エクセル、正数のみの集計[(負...
-
Excelのマクロで行を間引きたい
-
《エクセル2000》重複している...
-
SUMPRODUCT関数 行が増えても...
-
エクセル 8ケタの数字から日数...
-
入力するとかってにセルの色が...
-
エクセルの日付書式を一発置換...
-
Excelで順番を逆に
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで隣のセルと同じ内容に列...
-
Excel関数で、範囲内の最後のセ...
-
Excel関数:「0」を除いた標準...
-
【エクセル】区切り位置で分割...
-
更新前と更新後の差分をVBAを使...
-
ピボットテーブル 0個の行を...
-
値の入っているセルのうち、一...
-
SUMIFで数値が入力されているセ...
-
エクセルで何種類のデータがあ...
-
エクセル、正数のみの集計[(負...
-
エクセル 8ケタの数字から日数...
-
【Excel】歯抜けデータの集約
-
SUMPRODUCT関数 行が増えても...
-
correl関数の範囲指定
-
エクセルに入力された日付「S40...
-
Excelのマクロで行を間引きたい
-
Excelで複数列かつ複数行分の一...
-
Excelで順番を逆に
-
《エクセル2000》重複している...
-
Excelのマクロでソートがうまく...
おすすめ情報