エクセルの降順について困ってます。

質問

エクセルで、空白を多数含む、降順に困ってます。
６００件ほどの売り上げデータが入力されており、その中には、空白のセル（その時に売り上げがなく、未入力）があり、金額が入力されているセルがあり。の状態です。
一例として、画像が乗ってあります。

そして、フィルターもかかっています。
そのフィルターで空白を選択から消して、降順をしたらうまくいくのですが、ほかの用途でも使うので、ずっとそのままというわけにはいかなく。

そのため、LARGEで、降順で別シートにに抜き出そうとしても上手く動作しません。（VLOOKUPと組み合わせて、A列の番号を抜きだそうとしてます。）

ＬＡＲＧＥにこだわりはなく、売上金額を降順で選び、Ａ列の番号を別シートに抜き出せればそれでいいのですが、なにかいい方法はないでしょうか？

申し訳ありませんが、よろしくお願いします。

回答No.1

ushi2015 · ベストアンサー

こんにちは
マクロでもいいのでしょうか？
Sub test()
　　Dim sh1 As Worksheet
　　Dim sh2 As Worksheet
　　Set sh1 = Worksheets("Sheet1")
　　Set sh2 = Worksheets("Sheet2")
　　'A、B列にデータがあるとして
　　With sh1
　　　　.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="<>"
　　　　.AutoFilter.Range.Copy sh2.Range("A1")
　　End With
　　sh2.Range("A1").CurrentRegion.Sort _
　　　　Key1:=sh2.Range("B1"), Order1:=xlDescending, _
　　　　Key2:=sh2.Range("A1"), Order2:=xlAscending
End Sub
列位置とかシート名とか分からないので適当です。
同じ売上金額の時のNoは昇順にしてあります。

お礼

ご回答ありがとうございます。
しかしながら、マクロの方は不勉強で、あまりわからずです。
申し訳ありません。ありがとうございました。

回答No.3

kkkkkm

シートそのものをコピーして、そのコピーしたシートで作業すればいかがでしょう。
B列の空白部分に半角スペースか全角スペースが入っていると思いますので
置換で半角スペースもしくは全角スペースを検索する文字列にして置換後の文字列は何も入力せずにすべて置換した後に並び替えをするとデータのある部分が上部にくると思います。

また、そのままの状態でB列優先で降順で並び替えたら空白が上部に来た場合には下の方に売り上げが降順で並んでいると思います

データが降順で並んでいれば以下の式で取り出せると思います。

=INDEX(A:A,MATCH(LARGE(B:B,ROW($1:$1)),B:B,0)+ROW(1:1)-1,1)
必要なだけ下方向にコピーしてください。

お礼

ご回答ありがとうございます。
シートをコピーするのは現状難しいので、取り出して活用する方法で試してみます。
ありがとうございます。

回答No.2

msMike

添付図のように[並べ替え]のための「作業列」(添付図では列Ｃ)を設けては如何かと。
１．式 =0-B2 を入力したセル C2 を下方にズズーッとオートフィル
２．列Ｃを[昇順]に[並べ替え]

お礼

ご回答ありがとうございます。
マイナス表記にして、０を表記させてやるやり方は初めて知ったので、試してみたいと思います。
ありがとうございます。