Excel の初心者です

質問

Excel　の初心者です。

下記のような横に多数の各セルに数字があります。
同じ数字を無視して左側から順に並び変えたいのですが
うまくできません。

4 5 1 9 3 3 3 3 8 1 4 10 9 9 9 9
4 10 7 1 9 11 5 8 4 1 9 13 8 7 16 2
9 4 8 6 12 5 11 2 13 8 6 4 10 12 2 7
5 3 7 6 2 8 1 4 3 16 10 1 15 8 11 14
7 6 8 5 3 1 2 4 8 3 12 4 2 10 5 6

例えば、セル１からセル16
4 5 1 9 3 3 3 3 8 1 4 10 9 9 9 9
は、
4 5 1 9 3 8 10
のように、左側からのセル１からセル７に数字を重複しないようにしたいのです。

宜しくお願いします。

回答No.2

mu2011 · ベストアンサー

一例です。
ワークシート関数では出来ない事は無いが非常に厳しいと思いますのでマクロでは駄目でしょうか。
データをSheet1、並び替えをSheet2としています。
（１）Sheet1タブ上で右クリック→コードの表示→以下のサンプルコードを貼り付け→F5キー押下
（２）サンプルコード
Sub sample()
Sheets("sheet2").Cells.ClearContents
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set Db = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(j, Columns.Count).End(xlToLeft).Column
Db(Cells(j, i).Value) = 1
Next
wk = Db.keys
For i = 0 To Db.Count - 1
Sheets("sheet2").Cells(j, i + 1).Value = wk(i)
Next
Next
End Sub

お礼

別シートに作成できました。
早速、使用させて頂きます。
ありがとうございました。

回答No.4

MackyNo1

どのような目的で重複のない数字を表示したいのかわかりませんが、単純に表示するだけで良いなら（この数字を計算などに使用しないなら）以下の数式を入力し、右方向にオートフィルコピーしてください（１行目のA列からZ列の重複のない数字を表示する場合）。

=INDEX(1:1,SMALL(INDEX((MATCH($A1:$Z1&"",$A1:$Z1&"",0)<>COLUMN($A1:$Z1))*100+COLUMN($A1:$Z1),),COLUMN(A1)))&""

なお、表示する数字を小さい順に並べたい場合は、別の数式を利用する必要があります。

お礼

丁寧な、ご回答ありがとうございました。

回答No.3

kagakusuki

今仮に、元データがＳｈｅｅｔ1のA1セルから始まっていて、並べ替えた結果をＳｈｅｅｔ2に表示するものとします。
　又、Ｓｈｅｅｔ3を作業用のシートとして使用するものとします。

　まず、Ｓｈｅｅｔ3のA1セルに次の数式を入力して下さい。

=IF(COUNTIF(INDEX(Sheet1!1:1,1):INDEX(Sheet1!1:1,COLUMN()),INDEX(Sheet1!1:1,COLUMN()))=1,COLUMN(),"")

　次に、Ｓｈｅｅｔ3のA1セルをコピーして、Ｓｈｅｅｔ3のA1セルよりも右側にあるセルに貼り付けて下さい。
　次に、Ｓｈｅｅｔ3の1行目全体をコピーして、2行目以下に貼り付けて下さい。

　次に、Ｓｈｅｅｔ2のA1セルに次の数式を入力して下さい。

=IF(COLUMNS($A$1:A$6)>COUNT(Sheet3!1:1),"",INDEX(Sheet1!1:1,SMALL(Sheet3!1:1,COLUMNS($A$1:A$6))))

　次に、Ｓｈｅｅｔ2のA1セルをコピーして、Ｓｈｅｅｔ3のA1セルよりも右側にあるセルに貼り付けて下さい。
　次に、Ｓｈｅｅｔ2の1行目全体をコピーして、2行目以下に貼り付けて下さい。

　以上です。

お礼

丁寧な、ご回答ありがとうございました。

回答No.1

tom04

こんにちは！
VBAになってしまいますが・・・
一例です。
データはSheetの1行目からあるとします。

画面左下にあるSheet見出し（Shee1・Sheet2・・・）の部分の操作したいSheet見出し上で右クリック
→　コードの表示　→　VBE画面が出ますので、↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です。）

Sub test() 'この行から
Dim i, j As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = Cells(i, Columns.Count).End(xlToLeft).Column To 2 Step -1
If WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, j)), Cells(i, j)) > 1 Then
Cells(i, j).Delete (xlToLeft)
End If
Next j
Next i
End Sub 'この行まで

※　尚、一旦マクロを実行すると元に戻せませんので、別Sheetで試してみてください。m(__)m

お礼

初めてVBAをしようしました。

ご回答ありがとうございました。