重複数字を削除して表示させるには

質問

またまたお世話になります。

例えば下記のように左のセルから１つずつ数字が入っているとします。

１　２　３　３　４　５

これを下記のように重複数字を削除して並べたいと思っています。

１　２　３　４　５

できれば空白セルがないようにしたいです。

×：１　２　３　　　４　５
○：１　２　３　４　５

関数を使用してできますでしょうか？
空白セルがないようにするのがネックになっています。

アドバイスを御願い致します。

回答No.4

whitepepper

》ただ単に重複文字を削除するだけなら、フィルターを使用すればCSVにして書き出すこともなく、簡単にできてしまいます。

　あなたのお使いのExcelは、行だけでなく列に対してもフィルタが使えるんですか？　私のExcelではできません。ただ、私が知らないだけなら、やり方を教えてほしいですね。

》別の処理で差行列に入力されている数字を、最終的に重複文字を削除してメインの表示欄に出力できれば良いと思ってます。

　こんなことは原質問には書かれていません。

》この処理を実現さえるのは、ちょっと難しいようですね。

　当たり前です。質問に書かれていないのですから、答えようがありません。
》どうやら言葉足らずだったようです。

　そんなカッコいいものではありません。回答者をバカにしています。

》また何かいいアイディアがありましたら、よろしく御願いします。

　あきれて、二の句が出ません。

お礼

おはようございます。
御返答ありがとうございます。

＞あなたのお使いのExcelは、行だけでなく列に対してもフィルタが使えるんですか？
これについてですが、行と列を入れ替えてからフィルター処理すれば可能かと。

＞こんなことは原質問には書かれていません。
そうですね。　すみませんでした。

＞そんなカッコいいものではありません。回答者をバカにしています。
回答者をバカにしているつもりはありません。
素直にお詫びしたのですが、何がお気に触れられたのでしょうか。

＞あきれて、二の句が出ません。
お詫びをしているのに、なぜ納得して頂けないのでしょうか。
whitepepperさんをバカにしているつもりは、もうとうありません。
もちろん他の回答者の方もバカにはしていません。
自分の知識ではいいアイディアが浮かばないから、助言を求めるのは悪くないことではないでしょうか？
自分で調べて分かる程度の質問ならしません。
分からないから、助言を求めているのです。

あとこの質問に対して自己解決致しました。
関数では無理とされていましたが、うまく関数と作業用のスペースを使用すれば、空白セルを作る事なく希望していたような処理をすることができました。

解決したので、この質問は閉めさせて頂きます。

回答No.3

whitepepper

既に何度もこのサイトを利用されているのであれば、ご質問の情報不足をなんとかしてほしいですね。

》関数を使用してできますでしょうか？
》空白セルがないようにするのがネックになっています。

ご自分で考えられた関数とはどんなんですか？
こんなんでしょうか？
　　=IF(B1=A1,"",B1)

すなわち、Excelで１行下に行挿入して関数記載行を作り、そこの各セルに上記の関数を記載します。
すると、
１　２　３　３　４　５
１　２　３　□　４　５
のようになります。

ここまでできれば、後は簡単です。
CSVで書き出せば、
1,2,3,3,4,5
1,2,3,,4,5
となっていますから、テキストエディタで",,"を","に置換すれば、
1,2,3,3,4,5
1,2,3,4,5
となります。
再度Excelで読み込めば、
１　２　３　３　４　５
１　２　３　４　５
と表示されます。

お礼

御回答ありがとうございます。

どうやら言葉足らずだったようです。
すみません。

ただ単に重複文字を削除するだけなら、フィルターを使用すればCSVにして書き出すこともなく、簡単にできてしまいます。

別の処理で差行列に入力されている数字を、最終的に重複文字を削除してメインの表示欄に出力できれば良いと思ってます。

この処理を実現さえるのは、ちょっと難しいようですね。

また何かいいアイディアがありましたら、よろしく御願いします。

回答No.2

imogasi

>関数を使用してできますでしょうか
出来ないと思います。なぜかと言うことを納得して下さい。そうしないと、同じような出来ない質問をＯＫＷＥＢ等にあげることになります。
（１）どのセルに式を入れるとしても、（質問の例で）自分以外のセルの値が、空白かどうかは、判別できます。
しかしＤ１セルでＤ１の値を聞くとおかしくなります。
=IF(D1="",E1,D1)
空白だったとして、となりのＥ１のデータを持ってきて、詰めることは出来ません。
（２）Ｄ１以外（例としてＥ１）のセルに式を入れると
して=IF(D1="",E1,E1)とすると、Ｅ１のセルの値が変ってしまいます。
（３）=IF(D1="",D2=F1,F2)のような書き方も出来ません。これと同じことを出きるのはＶＢＡです。
（４）=IF(D1="",左へ詰める）と言うタイプの関数式はありません。=tumeru(D1="")のタイプの関数式もありません。（マイクロソフトの力を持ってすれば、簡単にこんな関数は作れますが、作らないのだと思います。関数式の分限を守っていて、これなどはＶＢＡでやってくださいとのことだと思います。）
これと同じことを出きるのはＶＢＡです。
下記のことは関数式では出来ません。
集計か計算以外に、元の記録データを表上の別の場所に移動させることは関数式では出来ない。（一セルだけなら簡単ですが、それも自分を動かせない。落ちつき先のセルから取ってもらうイメージ）
（Ａ）セルの削除・セルの挿入
（Ｂ）条件に合うものを探し、該当するレコード（行）を上から詰めてセットする。行き先の場所（行）が、他のレコード（行）の状況により変わるので、不定だから。）
（Ｃ）並べ替えする。（行き先の場所（行）が、他のレコード（行）の状況により変わるから。）
（Ｄ）書式の設定（条件付書式設定以外。表示形式、色
フォント、罫線など）その他メニューから手操作で出来る
ほとんどのこと。
（Ｂ）（Ｃ）（Ｄ）などは手操作かウイザード（フィルタ・ソートなど）ならできます。
ＶＢＡなら
Sub test02()
For i = 1 To 10
For j = 1 To 20
If Cells(i, j) = "" Then
Cells(i, j).Delete Shift:=xlToLeft
End If
Next j
Next i
End Sub
セル削除のＶＢＡです。自動で察知するようにせず、わざと簡単にしてありますので、「To 10」は最下行の行数で置換え、「To 20」は最右列がＡ列から何番目の列かの数字で置換えて実行してください。

お礼

御回答ありがとうございます。

そうですか。
やはり関数だけではできそうにないのですね。
まだエクセルは不馴れなので、私が知らない関数の使い方を御存知の方が、いい方法を教えて頂けたらと思いましたが。

VBAもわざわざ考えて頂き、ありがとうございます。

ぜひ参考にさせて頂きますね。

回答No.1

Hageoyadi

予想するに、ExcelかAccessなのかでしょうけど、これらの関数の中には複数のセルにまたがる表示を移動させたり削除したり上書きさせたりするものは存在しませんので、VBAに詳しい方の登場を待ちましょうね。

お礼

御回答ありがとうございます。
ソフト名を記載しておくのを、忘れていました。
すみません（ー＿ー）

エクセル98を使用しております。

複雑なものになりそうですが、関数を組み合わせて何とか実現できるように試行錯誤中です。
直接結果を出力するのではなく、どこか別の行を作業用として使用して、その結果をメインの部分に表示さえることを考えています。

自分なりに、もうちょっとがんばってみます。

また何かありましたら、よろしく御願いします。