エクセルでできるでしょうか？

質問

お世話になります。

仮にC1からC30までのC列の範囲で、重複する数値が入力された場合、
一番上（行番号が最小の）のセルのみ残し、他は消す（空欄にする）
ということはできるでしょうか？

例：C1,C2,C3にそれぞれ１、C4，C5，にそれぞれ2、C6に3が入っているき、
　　C1は1、C4は2、C6は3　になり　C2,C3,C5は空欄にする

ちなみに「入っているとき」という表現にしたのは他のところからカット＆ペーストでC1:C30に貼り付けるということを念頭においているためです。

列全体を指定すれば入力規則でできるらしいのですが、あくまでC1からC30まで
というように対象範囲を指定したいのです。ちなみにこの範囲は不変です。

計算式でできたらよいのですが、マクロでもいいです。
よろしくお願いします。

回答No.4

nishi6 · ベストアンサー

Sheet1で行う例でマクロを書いてみました。

質問にある通りに消して（消去して）います。カット＆ペースト、個々のセルへの入力、どちらでも機能するはずです。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。
プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

Excel2000です。ご参考に。

ここから
↓
Const CheckArea = "C1:C30" 'チェックする範囲

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim rgArea As Range '変更セルとチェックする範囲の共通部分
　　Dim rg As Range '単一セル
　　Dim Txt(30) As String 'チェックする範囲の内容(文字列で取得)
　　Dim rw As Integer '行カウンタ
　　Dim c As Integer 'チェック用行カウンタ

　　On Error GoTo ErrorHandler 'エラー対応

　　Set rgArea = Intersect(Range(CheckArea), Target)
　　'チェックする範囲に変更があったら
　　If Not rgArea Is Nothing Then
　　　　'マクロで書き換えても再度このマクロに入らないようにする
　　　　Application.EnableEvents = False
　　　　'どのセルを変更してもチェックする範囲を全て調べる
　　　　For Each rg In Range(CheckArea)
　　　　　　rw = rw + 1: Txt(rw) = rg.Text
　　　　　　'今までのセルと同じ値なら消す
　　　　　　For c = 1 To rw - 1
　　　　　　　　If Txt(rw) = Txt(c) Then
　　　　　　　　　　rg = ""
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　　　Application.EnableEvents = True
　　End If

　　Exit Sub
ErrorHandler:
　　Application.EnableEvents = True 'エラー対応
End Sub

お礼

すばらしかったです。マクロの保存方法すら知らなかったので会社の人に教えてもらいながらやりましたが・・・。ありがとうございまいた。

回答No.3

imogasi

下記は、本日他の質問に答えて、１つしか現われないキーの行を省くテクニックとして考えたものですが、解答を締めきられてしまいました。この逆ですので、後半にダブり行分を省く方法に修正したものを説明します。
－－－－－
私が仕事に使った方法を説明します。
第２行目以下にデータが入っているものとします。（第1行目からデータが始まるときは、第1行目にブラ
ンク行を挿入してください。そうしないと下記関数式がエラーが起こるため。）
何もデータが入って無い列をＸ，Ｙ列と仮定します。
Ａ。（当初データ順序の保存のため付番）
　もし順序が壊れても、復元不要なら下記１、２は省略する。
　１．Ｘ２に１、Ｘ３に２を入力する。
　２．Ｘ２とＸ３を範囲指定し、＋ハンドルで、終わりの行まで引っ張り連番を振る。
Ｂ．（コード列でソート）
　ソート済みのとは下記１は省略する。　
　１．問題にしているコードの入っている列で、ソートをする。仮にＢ列とする。
Ｃ．（単独行のサインをセット）
　１．Ｙ２に「＝ＩＦ（Ｂ２＝Ｂ１，０、ＩＦ（Ｂ２＝Ｂ３，０，１））」と式を入れる。（０，１はなんでも良い）
　２．＋ハンドルでＹ３からデータ最終行まで式を複写する。Ｙ列には０か１が入る。
　　　同じコードで前後が続いている行は０、そうでないコードが単独の行は１が入る。　
　３．Ｙ列でソートする。
　４．複数行あるものは上部へ、単独行はしたに固まって集まる。
　５．単独行の塊は、抹消するか無視する。
抹消していない時、当初のデータの並び順に戻すなら、Ｘ列でソートすれば良い。
－－－－－－－
上記の逆を考えます。
上記Ｃ－１の式をＹ２に「＝ＩＦ（Ｂ２＝Ｂ１，１，０）」と式を入れる。上記Ｃ－４では、Ｙ列が０のもののみ上部に集まるので、１がセットされた行の塊（下部）は無視し０の部分を見れば良い。

お礼

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

回答No.2

mayumayukko

とりあえずＣ２に次のような条件付書式を入れます。
その際に書式設定は白文字にします。
それによって字を見えなくできます。

Ｃ２の条件付書式の数式で「=(MATCH(C2,$C$1:C1,0)>0)」です。

これをＣ３０まで書式だけコピー＆ペーストしましょう

これで見た目上消えた形になります。

お礼

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

回答No.1

wolv

結果をD列に作る，というのでいいのなら，

d1「=c1」
d2「=if(c2=c1,"",c2)」

として，d2セルをD30までコピーすればできます．

ただし，ソートされていることを前提としました．

お礼

ありがとうございます。ソートしているので問題ないです。理想の結果になりました。やっぱりC列のなかでは循環参照になって無理なんでしょうかね。