表に入力してあるよみがなを並び替えたいのですが、スペースが間に入っているものと入っていないものがあるので、次のような式を使ってスペースをとりました。
=IF(読み仮名データセル="","",IF(ISERROR(LEFT(読み仮名データセル,SEARCH(" ",読み仮名データセル,1))),読み仮名データセル,LEFT(読み仮名データセル,SEARCH(" ",読み仮名データセル,1)-1)&RIGHT(読み仮名データセル,LEN(読み仮名データセル)-SEARCH(" ",読み仮名データセル,1))))
回りくどい式ですが、もし読み仮名のデータがあれば、スペースの位置を検索して、スペースがなければそのまま読み仮名を表示、あればスペースの右と左だけを結合して表示する、というものです。
これを 名簿表のずっと右の方で作業して、スペース無しの読み仮名を書き出しました。
この読み仮名の一覧を、もとの読み仮名のところに「値だけ貼り付け」して、並び替えをしたのですが、なぜか以下のようになってしまいます。
最初のデータ

「    」(スペース)
あおのあおこ
えんどうえつ
うちだうちこ
かきだかきこ
いむらいまこ
「    」(スペース)

これを並び替えしてみると、

「    」(スペース)
「    」(スペース)
あおのあおこ
いむらいまこ
うちだうちこ
えんどうえつ
かきだかきこ

となってしまいます。

本当は、「    」(スペース)には列の一番最後に言って欲しいのですが・・・。
こうなって欲しい・・

あおのあおこ
いむらいまこ
うちだうちこ
えんどうえつ
かきだかきこ
「    」(スペース)
「    」(スペース)

なにかいい方法はあるでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (7件)

計算式が入っている空白のセルをnullにします。


空白セルのある列の最上段のセルを
1クリックしてからマクロを開始してください。

一度でも使用したことのあるセルを最終行と
するので、ごみが下の方にあるとそこまで
処理します。使っていないセルが表外にある
時は削除して、上書保存後に使ってください。
ごみは時間がかかるという程度の問題ですが。

これなら行を指定しなくても全部処理します。
Range("A1").Select
などで開始位置を指定すればマクロから自動です。

ちなみに空白を取り除くものは下の関数もあります。
=SUBSTITUTE(A1," ","")置き換え





Sub 計算式をnullに()

開始位置 = ActiveCell.Address
現在行 = ActiveCell.Row
現在列 = ActiveCell.Column
最終位置 = ActiveSheet.Cells.SpecialCells(xlLastCell).Address
最終行 = ActiveCell.Row
最終列 = ActiveCell.Column

For I = 現在行 To 最終行

If LenB(Cells(I, 現在列)) = 0 Then
Cells(I, 現在列) = Null
End If

Next

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

End Sub


マクロの使い方などは質問ください。
    • good
    • 0
この回答へのお礼

さっそく試してみました。
何故か
Cells(I, 現在列) = Null
ではうまくいきませんでしたが、
Cells(I, 現在列).ClearContents
にしたところ、並び替えが思い通りに動くようになりました。
ありがとうございました。

お礼日時:2002/02/16 16:49

スペースの場合は適当な漢字を入れておくっていうのは、


=IF(読み仮名のセル="","一",SUBSTITUTE(読み仮名のセル," ",""))
のような感じです。「一」は漢数字の1です。
これで、読み仮名のセルに何も入っていない場合は「一」と表示が出ます。
これで並べ替えをすると、「一」の入っているセルは実際にひらがなで
読み仮名が入っているセルより下に行きます。
表示は下のようになります。



あおのあおこ
えんどうえつ
うちだうちこ
かきだかきこ
いむらいまこ

この回答への補足

なるほど~・・。それも一手かもしれませんねぇ。
なるべくシンプルな形で解決したいとは思うのですが、いざとなったらそれですねぇ。

補足日時:2002/02/16 06:20
    • good
    • 0
この回答へのお礼

どうもありがとうございました。

お礼日時:2002/02/16 06:25

毎回あるということでしたら


マクロで作られてはいかがですか。
並べ替えてから、
スペースだけ最下段へ移動
というようなものを。
マクロでも可ですか。
マクロを使ったことはありますか。
作り方は質問ください。

この回答への補足

今回もマクロを使っているのですが、VBAは使ったことがないので マクロの編集は手探り状態です。
  (^_^; アハハ…

もし 「 値の貼り付け 」をした後の ""を貼り付けたセルだけ、もう一度選択して、「デリート」をかけられたら、解決するのですが、そういうこともできますでしょうか?(手作業で そういうセルを選択して「デリート」をすると、並び替えがうまくいくことがわかったので)

補足日時:2002/02/16 06:25
    • good
    • 0
この回答へのお礼

ありがとうございます。教えていただけたら幸いです。

お礼日時:2002/02/16 06:31

最初に降順で並び替えて空白データを後ろに持っていって、次に空白以外のデータを昇順で並び替えるってのはどうでしょう?

この回答への補足

エクセル初心者でも 直感的に扱えるよう、なるべく手作業を排除したいのです。

補足日時:2002/02/14 22:44
    • good
    • 0
この回答へのお礼

ありがとうございます。ほかにも何かアイデアがありましたら教えていただけますか?

お礼日時:2002/02/14 22:46

どうしても文字よりもスペースが上に来てしまうので、



 1.あとで自分で入れ替える
 2.スペースの場合は適当な漢字を入れておく
 3.スペース部分には全角のスペース1つ、読み仮名が入力されている場合は
   読み仮名の前に半角スペースを入れて
    データ→並べ替え→オプション→大文字と小文字を区別するにチェック

などしか無いと思います。

あと、スペースを除くには、
 =SUBSTITUTE(読み仮名データセル," ","")
で簡単に出来ます。

この回答への補足

データ量が多く、かつエクセル初心者が扱えるように、なるべく手作業は減らしたいのです。
名簿用のスペースは毎月150件ほどを用意してあり、毎回漢字をいれたり 入れ替えをするのは避けたいと思っています。
また、私の立てた式をごらんいただきましたように、スペース部分には""、つまり空白を指定してあるので、何も入っていないはずなのに、上記のような結果になってしまうのです。何もない=""セルをコピーして「値を貼り付け」すると、どうも何かがセルに代入されてしまうのでしょうか・・?教えていただいた、=SUBSTITUTE(読み仮名データセル," ","") という式も試してみましたが やはり同じ結果になりました。

補足日時:2002/02/14 22:42
    • good
    • 0
この回答へのお礼

ありがとうございます。ほかにも何かアイデアがありましたら教えていただけますか?

お礼日時:2002/02/14 22:49

これはスペースだけ(スペースのデータが存在する)のセルがあるということですよね?


それならば、このスペースだけのセルを空セルにすればいいです。
具体的には、スペース(” ”)をヌル(””)にすれば可能です。

この回答への補足

私の立てた式をごらんいただきましたように、参照先の読み仮名データセルが空白セルの場合には、""つまり空セルとするように指定してあるのです。
普通の空白セルは並べ替えの時には最後尾にいくのに、なぜか この場合は最前列にきてしまうのです。

補足日時:2002/02/14 22:50
    • good
    • 0
この回答へのお礼

ありがとうございます。ほかにも何かアイデアがありましたら教えていただけますか?

お礼日時:2002/02/14 22:53

並び替えの列を


=IF(LEN(TRIM(参照セル))=0,"ん",参照セル)
なんてしてはいかがでしょうか?

この回答への補足

名簿に使う表は毎月150件ほど用意してあるのですが、なにかもっと・・・スマートな方法はないでしょうか・・・?

補足日時:2002/02/14 22:35
    • good
    • 0
この回答へのお礼

早速のお返事をありがとうございます。ほかにも何かアイデアがありましたら教えていただけますか?

お礼日時:2002/02/14 22:53

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル2003で並べ替えする場合で、空白行を先頭ではなく末尾に表示し

エクセル2003で並べ替えする場合で、空白行を先頭ではなく末尾に表示したい。
IF文で計算結果が「空白」となる計算式が入っているセルを含めて並べ替えした場合、先頭に表示されます。 これを末尾に表示されるようにするにはどうしたら良いのでしょうか。教えて下さい。

Aベストアンサー

限定的に出来る事としては,
手順:
いまスペースが「上」にある状態で,ともかく並べ替えます
実際のデータのセル範囲を選びます
ユーザー設定リストに追加します
 (2003までのエクセルではツールメニューのオプションのユーザー設定リスト)
(2003までのエクセルでは)データメニューの並べ替えを開始し,
  オプションを開き,
  いま登録したリストを指定して,
そして並べ替えさせます。




>並べ替えると

「昇順」で並べ替えると,
数値の昇順 → ”” → 文字の昇順 → エラー値
の順になります。

「降順」で並べ替えると,
エラー値 → 文字の降順 → ”” → 数値の降順
の順で並びます。

特別なオプションで,「文字で記入されているけど数値に読み替え可能」な数字文字列については,数値の並びに入れる事も出来ます。


どんなデータをどっち順で並べたいのかご相談に書かれていませんが,こういった特性を生かしてデータや並び順を作成すれば対応できるかも?しれません。たとえば,""を計算させずNA()などを入れておき,書式によってエラー値が表示されないようにしてみるなどの手立ても可能かも知れません。

限定的に出来る事としては,
手順:
いまスペースが「上」にある状態で,ともかく並べ替えます
実際のデータのセル範囲を選びます
ユーザー設定リストに追加します
 (2003までのエクセルではツールメニューのオプションのユーザー設定リスト)
(2003までのエクセルでは)データメニューの並べ替えを開始し,
  オプションを開き,
  いま登録したリストを指定して,
そして並べ替えさせます。




>並べ替えると

「昇順」で並べ替えると,
数値の昇順 → ”” → 文字の昇順 → エラー値
の順になります。...続きを読む

Q空白セルのあるエクセル表の並び替え

空白セルのあるエクセル表の並び替え

エクセル2002を使用しています。
エクセルの表で空白セルがたくさんあるのですが、
並び替えをしようとすると、行全体ではなく、行の一部しか並び変わってくれません。
空白行も含めて、行全体を並び替えるようにする方法はありますでしょうか?

宜しくお願い致します。

Aベストアンサー

一般的に対象物を選択しないで特定の編集操作をすると(例えばデータ範囲を選択しないで並べ替えやフィルタなどの操作を実行すると)、エクセルが自動的に操作対象(並べ替え)範囲を認識しますが、このとき空白列や空白行があるとその位置までしか認識されません。

確実に並べ替えを行いたい場合は、最初に空白セル(行)を含む並べ替え対象を選択してから、「データ」「並べ替え」で実行してください。

Qエクセルの並び変えで、空白セルを一番上にもってくる方法を教えてください。

いつもこちらで大変お世話になっています。

エクセルで、ある列を対象に並び替えをする時、空白セルを一番最初にもってきたいのです。

ユーザー設定リストに登録する時に、どのようにしたら良いのでしょうか?

すみませんが教えてください。
よろしくお願いします。

Aベストアンサー

こんにちは。代案です。
ある列がA列の場合、未使用列を作業用に
=ISBLANK(A1)
と入力して、必要行数コピー。
この列をまず降順で最優先キーに指定する。

Qエクセル 空白を無視して並び替える方法を教えてください。

エクセル 空白を無視して並び替える方法を教えてください。

こんにちわ。
下記のようにしたいのですが、方法が思いつきません。ぜひアドバイスをお願いします。


   A    B    C    D    E
1 あああ 空白 いいい ううう 空白
2 空白  えええ 空白 おおお かかか
3 ききき 空白 くくく 空白  けけけ

このように空白がところどころに混ざっている状況で

   F   G   H
1 あああ いいい ううう
2 えええ おおお かかか
3 ききき くくく けけけ

のように空白を除き並び替えたいです。

私の頭で思いつかなかったため、アドバイスをお願いします。
今回はできればマクロを使用しないで行いたいです。
ちなみに使用しているのはOffice2003です。

Aベストアンサー

一例です。
F1に以下の数式を貼り付け→shift+ctrl+enterキーを同時押下→縦横にコピー
=IF(COUNTA($A1:$E1)>=COLUMN(A1),INDEX($A1:$E1,SMALL(IF($A1:$E1<>"",COLUMN($A1:$E1),999),COLUMN(A1))),"")

Q「並び替えとフィルター」を使って空白以外を抽出

シート1に別のシートから抽出した人名が並んでいます。
シート2にも別のシートから抽出した数字が並んでいます。
人名と数字は同じ行/列に格納されます。
シート1もシート2も空白が含まれています。
シート3に人名と数値を隣り合わせで格納したいのです。

シート1とシート2共に、「並び替えとフィルター」を使って空白以外を
抽出したいのですが、「昇順/降順」を使うと、人名と数字の関連が崩れる
ので困っています。
「並び替えとフィルター」で不可能ならば、別な方法でも構いません。
ご教示いただけますようお願い致します。

シート1                 シート2
  A   B   C   D         A   B   C   D
1 太郎     次郎         1 100       10
2 三郎 花子     春子     2   5  200       50
3         秋子 夏子     3         500  100
4 四郎 五郎 六郎         4  80  300  400
5 七郎         冬子     5 300            60

シート3
  A   B   C   D   E   F   G   H
1 太郎 100  花子 200  次郎 10  春子 50
2 三郎   5  五郎 300  秋子 500  夏子100     
3 四郎  80          六郎 400  冬子 400   
4 七郎 300     
5                 

シート1に別のシートから抽出した人名が並んでいます。
シート2にも別のシートから抽出した数字が並んでいます。
人名と数字は同じ行/列に格納されます。
シート1もシート2も空白が含まれています。
シート3に人名と数値を隣り合わせで格納したいのです。

シート1とシート2共に、「並び替えとフィルター」を使って空白以外を
抽出したいのですが、「昇順/降順」を使うと、人名と数字の関連が崩れる
ので困っています。
「並び替えとフィルター」で不可能ならば、別な方法でも構いません。
ご教示いただ...続きを読む

Aベストアンサー

No8の回答の補足です。

質問の流れを見ると、元データがすべて数式で表示されているのでしょうか。
この場合は、NO8の回答では数式セルがすべて選択されてしまう可能性が高いので、空白に見えるセルだけ選択するには、以下のような手順でデータ処理する必要があります。

すなわち、元データを選択して右クリック「コピー」、シート3で右クリック「形式を選択して貼り付け」で「値」で貼り付けて数式をすべて値に変更しておきます。
このようにすると空白に見えるセルには空白文字列が入力されていますので(実際の空白セルではないので)、以下のような手順で空白文字列セルをすべて選択して、No8の回答の手順で空白文字列セルを一括削除することができます。

すなわち、1つの空白文字列セルを選択して、右クリックコピー、Ctrl+Fで検索ダイアログを出して、そのまま検索する文字列の欄にCtrl+Vで空白文字列を貼り付けてから「すべて検索」してCtrl+Aで該当セルをすべて選択して右クリックから「削除」してください。

Q(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?

こんにちは。
質問内容はタイトルのとおりです。

あるワークシートのあるセルに文字を入力すると、ほかのワークシートのセルにも同じ文字が自動的に書き込まれる方法を知りたいです(ブックは同じ)。複数のワークシートを制御するには、やはりマクロを使うのでしょうか?

よろしくお願いします。

Aベストアンサー

clam_chowderさん、こんにちは。

Sheet1のA1にたとえば「100」と入力しますね。
Sheet2のA1に、これと同じ数値を表示するには、
 =Sheet1!A1
でOKです。

数式をいれるのが苦手なら、
Sheet2のA1セルで「=」を入力すると、数式入力状態に入りますから、
ここでSheet1のシートタブをクリックし、
リンクしたいA1セルをクリックしてEnterすると、
自動的にさきほどと同じ式が入ります。

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Qエクセルで空白セル”” と未入力セルの違い

関数で セルA1 に=if(B1=0,"","入力済")
としました。
セルの選択を素早くするためにショートカットキー「Ctrl+↓」を
利用しています。
通常の未入力空白セルは上記のショートカットで飛ばされて選択
されません。
これに対して上記関数で ""  として入力されたものを
コピーして値だけを貼り付けたとしても
上記ショートカットキーで飛ばされず選択されてしまいます。
見た目は 全く同じ 空白セルです。(関数も値貼り付けをしているので消えています。)
未入力の空白セルと 関数で""と入力されて値貼り付けを受けたセルではどこが違うのでしょうか。
また、未入力の空白セルに 戻すには関数でどのように入力させればいいのでしょうか。もちろんDeleteKeyを使って未入力の空白セルに
戻るのですがそれではショートカットキーでとばせるメリットがなくなります。関数で大量に処理したいのです。
おわかりの方お教えください。

Aベストアンサー

>未入力の空白セルと 関数で""と入力されて値貼り付けを受けたセルではどこが違うのでしょうか。

未入力の空白セルは「ISBLANK関数」で「真」を返します。

一方、値としての""が貼り付けられたセルは「ISBLANK関数」で「偽」を返します。

>また、未入力の空白セルに 戻すには関数でどのように入力させればいいのでしょうか。
不可能です。「式」は「値」を返すので「空白セル」と言う「状態」を返す事は出来ません。

>もちろんDeleteKeyを使って未入力の空白セルに
>戻るのですがそれではショートカットキーでとばせるメリットがなくなります。関数で大量に処理したいのです。

つまり「セルを1つづつ選択してDeleteキーで1つづつ空白セルに戻すのが面倒」なので「全部を一気に空白セルに戻す良い方法は無いか?」と言う事ですね?

だったら簡単です。

すべての式を
=if(B1=0,"","入力済")
ではなく
=if(B1=0,1/0,"入力済")
にしておきましょう。

すると、未入力の所は、空白("")にならず「#DIV/0!」になります。

そう表示されたら、シート全体を選択し「CTRL+G」を押して「ジャンプ」を出します。

「ジャンプ」のダイアログが出たら「セル選択」を押し、セル選択のダイアログを出します。

セル選択のダイアログが出たら「数式」を選び、その下のチェックは「エラー値」だけにします。

「OK」を押してダイアログを閉じると「#DIV/0!」の表示になったセルのみが選択状態になります。

「#DIV/0!」の表示になったセルのみが選択状態になったら、Deleteキーを押して、それらのセルを一気に「空白セル」にして下さい。

もちろん、大量にあっても、手順は変わりません。

>未入力の空白セルと 関数で""と入力されて値貼り付けを受けたセルではどこが違うのでしょうか。

未入力の空白セルは「ISBLANK関数」で「真」を返します。

一方、値としての""が貼り付けられたセルは「ISBLANK関数」で「偽」を返します。

>また、未入力の空白セルに 戻すには関数でどのように入力させればいいのでしょうか。
不可能です。「式」は「値」を返すので「空白セル」と言う「状態」を返す事は出来ません。

>もちろんDeleteKeyを使って未入力の空白セルに
>戻るのですがそれではショ...続きを読む

Q[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。

VBAで指定列からAを検索し、発見したら隣のセルに0を入れるマクロを組みたいのですが、組み方がVBA初心者の為わかりません。
(例)
L列に、A、B、C、D、E、Fとランダムに文字が入っていて、
文字Aを検索し、発見したら隣のI列に値0を入れるというマクロです。

Sub Search()
Dim A As String
Set A = Worksheets("Sheet1").Cells.Find("A")
If A Is Nothing Then
ActiveCell.Offset(0, 1).Value = 0

End If
End Sub
と過去の質問で考えてみたのですが、Aがあった時、、、、
とコードが書けないです。
大変困っているので、ご教授頂けないでしょうか?
出来れば、そのままマクロに出来るコードを教えて頂けないでしょうか?
宜しくお願い致します。

Aベストアンサー

こんばんは。

#3さんのおっしゃっていることも、もっともなのですが、気になる点がありましたので、自分のことを踏まえて、書かせていただきます。

いずれ、また、同じようなケースが出会うと思います。こんな原則を考えてみたらどうでしょうか?それは、私も自身も同じなのですが、ワークシートのコマンドで行われるものは、記録マクロから作ってみるということです。他にも、「統合」とか、「置換」とか「オートフィルタ」「フィルタオプション」とかは、みんなパターンが決まっています。
その中の代表格が、この「Find」 です。

>Set A = Worksheets("Sheet1").Cells.Find("A")

>過去の質問で考えてみたのです

どうも、Find メソッドは、あるレベル以下の人は、省略する傾向があるようです。何が大事で、何が大事でないかというのは、やってみなければ分かりませんが、検索語だけを入れる書き方は、実務では、あまりしないほうがよいと思います。

だいたい、以下のTestFind2 ぐらいまでに、省略は、とどめたほうがよいです。

それは、Find は、必ずしも自分が思っているデフォルトとは違うことがあるので、「明示的(意図的に)」にオプションは入れたほうがよいです。
例えば、大文字小文字の違いを付けるなら、MatchCase:=True, 数式まで探すなら、LookIn:=xlFormulas

なお、Find メソッドは、5年経っても、たぶん完全に覚えられません。面倒なコードのひとつです。ですが、これはパターンが決まっているので、ひとつパターンが決まったら、それに当てはめればよいだけです。

#3さんで示されているMougのサンプルコードと似てはいるのですが、Mougのサンプルコードでは、Verionによって、失敗することがあります。

'--------------------------------------
'記録マクロをそのまま使う方法
Sub TestFind1()
Dim c As Range
 Set c = Columns("L:L").Find(What:="A", _
           After:=ActiveCell, _
           LookIn:=xlValues, _
           LookAt:=xlPart, _
           SearchOrder:=xlByRows, _
           SearchDirection:=xlNext, _
           MatchCase:=False, _
           MatchByte:=False, _
           SearchFormat:=False)
 c.Offset(0, 1).Value = 0
End Sub
'--------------------------------------
'TestFind1 をアレンジしてみる
Sub TestFind2()
Dim c As Range
'検索語
Const MYTXT As String = "A"
 Set c = ActiveSheet.Columns("L:L").Find(What:=MYTXT, _
           LookIn:=xlValues, _
           LookAt:=xlPart, _
           MatchCase:=False)
 If Not c Is Nothing Then
    c.Offset(0, 1).Value = 0
 End If
End Sub

'---------------------------------------
'複数ある場合(パターンを使った方法)
'---------------------------------------
Sub TestFind3()
  Dim c As Range
  Dim FirstAdd As String
  Const MYTXT As String = "A"
  Set c = ActiveSheet.Columns("L:L").Find( _
    What:=MYTXT, _
    LookIn:=xlValues, _
    LookAt:=xlPart, _
    MatchCase:=False)
  
  If Not c Is Nothing Then
    FirstAdd = c.Address
    Do
      c.Offset(, 1).Value = 0
      Set c = ActiveSheet.Columns("L:L").FindNext(c)
      If c.Address = FirstAdd Then Exit Sub
    Loop Until c Is Nothing
  End If
End Sub

こんばんは。

#3さんのおっしゃっていることも、もっともなのですが、気になる点がありましたので、自分のことを踏まえて、書かせていただきます。

いずれ、また、同じようなケースが出会うと思います。こんな原則を考えてみたらどうでしょうか?それは、私も自身も同じなのですが、ワークシートのコマンドで行われるものは、記録マクロから作ってみるということです。他にも、「統合」とか、「置換」とか「オートフィルタ」「フィルタオプション」とかは、みんなパターンが決まっています。
その中の代表...続きを読む

Q日付を昇順で並び替えし、空白は最後にしたいです。

ファイルメーカープロ11についての質問です。
日付を昇順で並び替えしたいのですが、入力していない空白フィールドが先頭にきてしまいます。
入力してある日付のみを昇順で並び替えを行い、空白フィールドはその下に並び替える方法はありますか?
教えていただける方いらっしゃいましたら、お願いします。

Aベストアンサー

こちらのスレッドが参考になりそうです。
http://www.russ.jp/stepbbs/step.cgi?mode=view&no=60281

もしくは空白のみソートして、未来の日付を入れて非表示にしておく(空白に見せる)…くらいしか簡単なものは思いつかないです。
手間でなければ是非(^^)


人気Q&Aランキング

おすすめ情報