１行複数列の中にある重複数字を削除する方法

質問

どなたかご存じでしたらご回答よろしくお願いします。

【質問】
　エクセルシートＡ列～Ｆ列に１～３１迄の数字が順不同に入っています。
　これをＧ列～Ｌ列に「重複数字は１つにして昇順に並べる」方法が知りたいです。

●エクセルシート

　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　　Ｆ　　Ｇ　　Ｈ　　Ｉ　　Ｊ　　Ｋ　　Ｌ　
　4　　14　　20　　19　　4　　19　　4　　14　　19　　20　←重複数字は１つになる。　　
　15　　5　　9　　　　　　　　　　　　5　　　9　　　15
　6　　12　　12　　24　　　　　　　　6　　　12　　24　　　　←重複数字は１つになる。　
　4　　26　　8　　　6　　　　　　　　4　　　6　　　8　　26　

●注意事項
　　・使用するエクセルは２０１０です。

以上、よろしくお願いします。

回答No.5

kagakusuki · ベストアンサー

まず、G1セルに次の関数を入力して下さい。

=IF(COUNT($A1:$F1),MIN($A1:$F1),"")

　次に、H1セルに次の関数を入力して下さい。

=IF(G1="","",IF(G1=MAX($A1:$F1),"",SMALL($A1:$F1,COUNTIF($A1:$F1,"<="&G1)+1)))

　次に、H1セルをコピーして、I1～L1の範囲に貼り付けて下さい。
　次に、H1～L1の範囲をコピーして、同じ列の2行目以下に貼り付けて下さい。

　これで、Ｇ列～Ｌ列に、重複部分を除いた数字が昇順に並べ替えた形で表示されます。

お礼

ご回答ありがとうございました。
教えて頂いた様に入力して
得たい結果がえられました。
ありがとうございました。

回答No.4

tom04

No.1です。

＞ For i = 1 To UsedRange.Rows.Count
の部分でマクロが止まってしまうということですので・・・。

※　前回のコードはA列最終行に空白ばあった場合最終行の取得をA列で判断できないために
あのようなコードにしてしまいました。

とりあえず
＞ For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
に変更してみてください。
A列最終行までマクロが走ります。
（途中の行にA列に空白があっても構いません）

※　A列最終行が空白の場合は
＞For i = 1 To ActiveSheet.UsedRange.Rows.Count
としてみてください。

後者は検証していませんので、うまく動かなかったらごめんなさいね。m(_ _)m

お礼

今度はうまく動きました。
ありがとうございました。

回答No.3

MarcoRossiItaly

G1　=iferror(small($A1:$F1,small(index(rank($A1:$F1,$A1:$F1,1)+999*(countif(offset($A1,0,0,1,column($A1:$F1)),$A1:$F1)>1),),column(g1)-6)),"")

G1 セルをコピーし、G1:L4 のセル範囲に貼り付け。

本当にこのような操作をする必要があるのか？という点を見直してみるのがお勧め。例えば行に並んでいるのを、行列を入れ替えてコピペすることで列に並べ直し、その列内で、昇順で並べ替えを行ってから重複を削るとかのほうが、ずっと簡単。

お礼

ご回答ありがとうございます。
おっしゃるとおり行列を入れ替えて削除するのが簡単ですね。
今回はそのようなことをせずに並び替える方法が知りたく
質問させて頂きました。

回答No.2

noname#204879

添付図参照
Sheet2!A1: =IF(COUNTIF(Sheet1!$A1:A1,Sheet1!A1),IF(COUNTIF(Sheet1!$A1:A1,Sheet1!A1)>1,"",Sheet1!A1),"")
Sheet1!G1: =IF(ISERROR(SMALL(Sheet2!$A1:$F1,COLUMN(A1))),"",SMALL(Sheet2!$A1:$F1,COLUMN(A1)))

補足

ご回答ありがとうございます。
また実行結果を添付いただきお手数をおかけしました。
添付図を見ましたが、シート１とシート２に分かれている意味がわかりませんでした。
添付図のシート１のＡ列～Ｆ列の内容がＧ列以降に反映されているので
私の質問の回答があった！と思いましたが、
シート２が登場してその役割が理解できませんでした。

回答No.1

tom04

こんばんは！

またまたVBAになってしまいますが・・・
前回同様、シートモジュールです。

Sub 重複削除()
Dim i As Long, j As Long
Application.ScreenUpdating = False
Range("A:F").Copy Range("G1")
For i = 1 To UsedRange.Rows.Count
For j = Cells(i, Columns.Count).End(xlToLeft).Column To 7 Step -1
If WorksheetFunction.CountIf(Range(Cells(i, 7), Cells(i, j)), Cells(i, j)) > 1 Then
Cells(i, j).Delete shift:=xlToLeft
End If
Next j
Range(Cells(i, 7), Cells(i, 12)).Sort key1:=Cells(i, 7), order1:=xlAscending, _
Header:=xlNo, Orientation:=xlLeftToRight
Next i
Application.ScreenUpdating = True
End Sub

※　今回も１行目からデータがあるという前提です。m(_ _)m

補足

早速のご回答ありがとうございます。
早速やってみましたがマクロを実行すると”実行時エラー424”が出ます。
デバッグすると下記部分で止まっています。

＞ For i = 1 To UsedRange.Rows.Count

実行結果？としては、Ａ列の内容がＧ列に入っていますが、
重複数字はそのまま重複しており、また昇順には並んでいません。

何が悪いのでしょうか？