excelのデータで色つき行の抽出方について教えてください

やはりフォントではなくセルの色だったんですね。とんだ回り道をしてしまいました。 で、こんどは新条件登場ですか。 確認です。 データはZ列以降には入っていませんね？ データは4001行以降には入っていませんね？ A～D列のどれか一つでもセルに色がある行は抽出するのですね？ そうであれば以下で試してください。 今度は、上記の条件に合致するものを並べ替えで上にもってくるやり方です。 Sub IROTEST3() For i = 1 To 4000 For x = 1 To 4 If Cells(i, x).Interior.ColorIndex <> xlNone Then Cells(i, 27).Value = 1 Next x Next i Range("A1:AA4000").Select Selection.Sort Key1:=Range("AA1"), Order1:=xlDesc