No.5
- 回答日時:
削除の意味次第ですが、
①元データを完全に消去したい。と言う意味であれば関数でどうこうできるものではありません。
VBAについては分かりませんので、他の方の回答を参考にしてください。
②元データから重複データを除いて抽出(表示)したい。という意味であれば、
COUNTIFによってその列より左に重複データがあるかどうか数え、
IFにより重複データがあった場合は空白とする。なければそのまま表示する。
という式を入れれば、重複データのみ表示を消すことができます。
A2~S15というのは、行・列関係なく、19*14個全てのセルの中に重複データがあるかどうかという意味でしょうか?
先ほどの②と同様の意味でいいのならば、
そのセルより上の行に重複データがあるかをカウントし、あった場合は空白。
なかった場合は、その行のそのセルより左にあるかをカウントし、あった場合は空白。
これも無かった場合は、そのまま表示する。
とすることで、1行目左端→右端→2行目左端→右端→…という順番で優先されて重複データを空白とできます。
1列目上端→下端→2列目上端→下端→…としたければ、最初にそのセルより左の列でカウントし、
無かった場合にその列でそのセルより上にあるかをカウントする。という順番にすれば可能です。
同様に右や下のセルを優先して残すようにもできます。
No.4
- 回答日時:
添付図参照
Sheet2!A1: =IF(COUNTIF(Sheet1!$A1:A1,Sheet1!A1)>1,"",COLUMN(A1))
Sheet2!U1: =IFERROR(INDEX(Sheet1!$A1:$S1,SMALL($A1:$S1,COLUMN(A1))),"")
Sheet1!U1: =IFERROR(SMALL(Sheet2!$U1:$AM1,COLUMN(A1)),"")
No.3
- 回答日時:
こんにちは。
要するに、データ(タブ)のデータツールの重複の削除の横版ということですよね。
横に対しては、うまくいかないようですね。
今のところ、マクロしかないような気もしますが……。汎用性をもたせましたので、できれば、個人用マクロブックで、ショートカットやQATボタンにすると便利かと思います。
'//標準モジュールに入れてください。
Sub UniquedItemLine()
Dim Rng As Range
Dim objDic As Object
Dim c As Variant
Dim vhflg As Integer
Dim i As Long, j As Long
i = 1
If TypeName(Selection) <> "Range" Then Exit Sub
Set Rng = Selection
If Application.CountA(Rng) < 3 Then
MsgBox "データは、2個よりも多くあるところを選択してください。", vbExclamation
Exit Sub
End If
If Rng.Rows.Count = 1 And Rng.Columns.Count > 2 Then vhflg = 1
If Rng.Rows.Count > 2 And Rng.Columns.Count = 1 Then vhflg = 2
If vhflg = 0 Then MsgBox "どちらか1行か1列でないと働きません。", vbExclamation: Exit Sub
Set objDic = CreateObject("Scripting.Dictionary")
For Each c In Rng
If c.Value <> "" Then
If objDic.Exists(c.Value) Then
j = j + 1
Else
objDic.Add c.Value, CStr(i)
End If
End If
Next
If MsgBox(j & "個重複を省きますが、よろしいですか?", vbOKCancel) = vbCancel Then
Exit Sub
End If
Rng.ClearContents
For i = 0 To objDic.Count - 1
Rng.Cells(i + 1).Value = objDic.Keys()(i)
Next
If j > 0 Then
MsgBox Rng.Count & "中で、" & j & "個重複を省きました。", vbInformation
End If
End Sub
No.2
- 回答日時:
>A2からS2までの行内の重複する数値を削除したいのですが・・・
>また 数値が入ったA2からS15の表の中で重複する数値を削除できますか
3行目から15行目に入っている数値もセル単位で重複しているということですか?(要はセルでバラバラ)
2行目だけを基準に列単位で重複列の削除では駄目ということ?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excel 条件付き書式について 1 2022/12/14 20:38
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) RemoveDuplicatesメソッドについて教えてください。 シート1にシート2から値をもってく 1 2023/02/28 22:43
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- au(KDDI) Android Gmail で検索して消す方法 1 2022/11/10 16:10
- Visual Basic(VBA) vbaエクセルマクロについて教えてください A列とD列が下のようになっています B列、C列にも何かし 2 2023/02/20 20:06
- Excel(エクセル) エクセルで重複データから重複を削除して指定の列に抽出したい 11 2022/05/11 11:26
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
100MBとは0.1GBのことですか?
-
「言う通り」と「言った通り」...
-
「仰せの通り」は「仰る通り」...
-
サクラエディタは複数行に渡る...
-
重複しないグループ分けをエク...
-
【VBA】特定の範囲で同じ値を含...
-
重複しない乱数表を作る関数に...
-
VBAを使用した、複数条件での重...
-
「過信し過ぎ」はtoo muchの意...
-
表または行内の重複する数値の削除
-
重複しない組み合わせのプログラム
-
ユニークアクセスとはなにか?
-
OKWebのマナー
-
「**者のかた」って言いますか?
-
「○○極まりないことこの上ない...
-
教えてください。 0〜8の9個の...
-
合唱祭の楽曲紹介 「翔る川よ」
-
4/1000とは、0.4ですか?
-
±10%や±5%ってどうやって計算す...
-
英単語1000個~2000個ってA4用...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「言う通り」と「言った通り」...
-
サクラエディタは複数行に渡る...
-
重複しないグループ分けをエク...
-
「仰せの通り」は「仰る通り」...
-
靖国落書き事件と蘇州の事件は...
-
100MBとは0.1GBのことですか?
-
「**者のかた」って言いますか?
-
異なる色の9個の玉を3個ずつ3つ...
-
chrome起動したら「uBlock Orig...
-
問題文で「傍線部ⓐⓑⓒⓓⓔの主語を...
-
【VBA】特定の範囲で同じ値を含...
-
重複しない組み合わせのプログラム
-
VBAを使用した、複数条件での重...
-
「過信し過ぎ」はtoo muchの意...
-
重複しない乱数表を作る関数に...
-
10個の数字を5個の組み合わ...
-
日曜日 深夜 って土曜と日曜の...
-
「○○極まりないことこの上ない...
-
予定通り… 想定内通り… 思った...
-
斉藤さんって“まとも”な人はと...
おすすめ情報
お手数おかけします。
「重複する数値」を1個だけを残して あとは削除したいのですが・・・