エクセルでの並び替えについて教えてください

質問

アクセルの表に数字が入っています
この数字の一部を赤字に変更しました
この赤字部分だけを抽出もしくは並び替えは可能なんでしょうか
どなたか教えて下さい

回答No.2

yasuhide · ベストアンサー

一つの簡便法として、その数字の入っているセルの横のあいているセルに赤の数字の入っている段だけ「１」を入れていく、という方法があります。
こうしておくと、それをキーとして並べ替えも抽出もできますよ。

回答No.3

kenken0001

下のマクロで１列は可能です。
色付きセルの列の先頭セルをアクティブにしてください。
（Ａ列でＡ３セル以下を処理する時はＡ３を１クリック）
マクロを実行すると、色付きセル
（文字色ではありません）
の行のみを表示して、他の行を非表示にします。
止まった時はすでにデータがコピーされているので
別のシートなどに移動して貼り付けると
色付き行のみペーストできます。

Sub 着色されているセルのみを表示()
Dim 現在行 As Integer
Dim 現在列 As Integer
Dim 最終行 As Integer
Dim I As Integer
Dim 現在行退避 As Integer
'Dim 色番号 As Integer 'この行と次の行を生かし
'色番号 = ActiveCell.Interior.ColorIndex

現在行 = ActiveCell.Row
現在列 = ActiveCell.Column
最終行 = ActiveCell.SpecialCells(xlLastCell).Row

現在行退避 = 現在行

For I = 現在行 To 最終行
If Cells(I, 現在列).Interior.ColorIndex = xlNone Then
'「<> xlNone」を「=色番号」に修正すると、特定の色のセルのみ非表示に
Cells(I, 現在列).EntireRow.Hidden = True
End If
Next

Cells(最終行 + 3, 現在列) = "1"

Range(Cells(最終行 + 2, 現在列), Cells(最終行 + 3, 現在列)).Select

Selection.AutoFilter
Selection.AutoFilter Field:=1, _
Criteria1:="=", Operator:=xlAnd, _
Criteria2:="<>"

Cells(最終行 + 3, 現在列) = ""

Range(Cells(現在行退避, 現在列), Cells(最終行, 現在列)).Select
Selection.Copy

End Sub

'戻す場合は下のマクロを実行ください。

Sub すべてを表示()
Selection.AutoFilter
Cells.Select
Cells.EntireRow.AutoFit
End Sub

'複数行は作成に少し時間がかかりますが・・

'マクロを実行するまでの準備の
'説明が必要な場合は書き込みを。

回答No.1

k_eba

エクセルの基本機能では出来ません。
でもやり方は
http://cgi.fuji.ne.jp/~fj2094/cgi-bin2/wwwlng.cgi?print+200102/01020011.txt
http://oshiete1.goo.ne.jp/kotaeru.php3?q=212717
を参考にして下さい。
ちょっと山は高いです。がんばれ

参考URL：

http://cgi.fuji.ne.jp/~fj2094/cgi-bin2/wwwlng.cgi?print+200102/01020011.txt,http://oshiete1.goo.ne.jp/kotaeru.php3?q=212