ベストアンサー

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

2002/02/12 16:56

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

ponta555
お礼率11% (43/371)

オフィス系ソフト
回答数3
ありがとう数0

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

yasuhide
ベストアンサー率33% (44/131)

2002/02/12 19:44 回答No.2

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

その他の回答 (2)

kenken0001
ベストアンサー率69% (51/73)

2002/02/13 14:01 回答No.3

下のマクロで１列は可能です。色付きセルの列の先頭セルをアクティブにしてください。（Ａ列でＡ３セル以下を処理する時はＡ３を１クリック）マクロを実行すると、色付きセル（文字色ではありません）の行のみを表示して、他の行を非表示にします。止まった時はすでにデータがコピーされているので別のシートなどに移動して貼り付けると色付き行のみペーストできます。 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 '複数行は作成に少し時間がかかりますが・・ 'マクロを実行するまでの準備の '説明が必要な場合は書き込みを。