エクセルで０を除いて昇順に並べ替えできますか

質問

下記のような表で１月で０を除いて昇順上から５３２と並べ替えが出来ますでしょうか
また、元の表に戻して２月での０を除いて６５と並べ替えしたいのですが教えてください
　 あ　１月計　あ　２月迄累計

あ　0　　0　　5　　　　5
い　2　　2　　4　　　　6
う　5　　5　　0　　　　5
え　3　　3　　2　　　　5
お　5　　5　　1　　　　6
か　0　　0　　0　　　　0

回答No.3

zinchan

１月計の列に、=IF(SUM(「"あ"の行の、１月の各データ範囲」)=0,"",SUM((「"あ"の行の、１月の各データ範囲」))と、式を変更して入力します。
　１月計の列には、範囲内に正の数値が入力されていれば合計値が出力され、合計値が0の場合は表示されなくなります。
　その式を"か"の行までコピーします。
　同様に２月計の列にも、=IF(SUM(「"あ"の行の、２月の各データ範囲」)=0,"",SUM((「"あ"の行の、２月の各データ範囲」))と式を入れ、最下行までコピーしておきます。
　２月迄累計の列には、=IF(SUM(「１月計」のセル番地,「２月計」のセル番地)=0,"",SUM(「１月計」のセル番地,「２月計」のセル番地))の式を入れます。これも最下行までコピーしておきます。

　大きい範囲の場合、範囲をすぐ選べるようにしておきましょう。
　項目、データが入った表のセル範囲を選択して、メニューの中の挿入→名前→定義を選択し、つけたい範囲名をつけ、ＯＫとしておきます。
　もしくは、A1セルを選択しているときにA1と表示されている部分を名前ボックスといいますが、セル範囲を選択しておき、名前ボックスの右の▼印をクリックして、反転した箇所につけたい範囲名をつけても、上記同様に範囲名をつけられます。

　あとは、並べ替えを行いたい範囲を名前ボックスで選択し、メニューのデータ→並べ替え→表示されたダイアログボックスの下の方の「範囲の先頭行」をタイトル行として選択した上で、最優先されるキーに、１月計、２月迄累計など並び替えしたい項目を選択し、昇順としてＯＫすれば、0の行を後回しにして値の小さい順に並び替えてくれます。
　ただし、降順の場合は上記の式では空白が先頭に来てしまいます。
　そこで、上記式の、「""」の部分全てを、「"0"」と置き換えた上で、範囲指定、並び替えを指定してＯＫボタンを押すと、「並び替えの前に」というダイアログボックスが出て、「数値として見えるものは全て数値として並び替えを行う」か、「数値とテキスト形式の数値を分けて並び替えを行う」のどちらか選ばせられるので、降順の場合は前者を、昇順の場合は後者を選ぶと、0をとにかく後回しにした並び替えができます。ただし、これはＥｘｃｅｌ2002で確かめた結果ですので、以前のバージョンではこのようにならないかもしれません。

　式入力後の、上記操作が煩雑で面倒とお考えであれば、マクロを登録して操作を自動化できます。
　ツール→マクロ→マクロの記録を選択し、出てきたダイアログボックスのマクロ名にあとでわかりやすい名前(昇順ソート、降順ソート等）を入力し、ＯＫします。
　あとは範囲の指定、適した並び替えの操作を行い、終了した時点でマクロの記録ボタンを停止させます。
　昇順並び替え、降順並び替えの操作をそれぞれ記録した後、ツール→マクロ→マクロを選択し、操作したい方のマクロを選んでＯＫすれば、煩雑な操作必要なしに並び替えが行えます。

　元の表に戻すには、項目列の覧が元々番号順、50音順ならその列を並び替え条件として並び替えを行えば済みますが、得てして順にならんでいるものではありません。その場合は、並び替えを行う前に、項目名の前に新たに列を挿入して、そこに番号を付けておくのがいいと思います。その上で、並び替えするための範囲をその番号を含めて選択して登録し、並び替えを行った後、番号で並び替えさせれば元の表に戻せます。