おはようございます。よろしくお願いします。エクセルは2013です。
範囲D5:D36に重複するデータがあれば、
1個だけ残して、他の重複セルに""(空白)を書き込みたいのですが
VBAではどう書けばよいでしょうか
D5:D36に下記のような空白を含むデータがあった時に
山田と書かれたセルは2つあるので、ひとつ残して、もうひとつは空白にしたいです
同じように高橋は3つあるので、ひとつ残して、あとの2つは空白にしたいです
山田
高橋
佐藤
空白
空白
鈴木
山田
空白
高橋
高橋
No.1ベストアンサー
- 回答日時:
詰めないで良いのですね?
この位ならば Dictionary 機能を使わなくてもどうにかなりそうだけど、行が増えた時に圧倒的に早くなりますので覚えておくと便利です。
--------------------------------------------------------------------------------
Sub Sample()
Dim 辞書 As Object
Dim 行 As Long
Application.ScreenUpdating = False
Set 辞書 = CreateObject("Scripting.Dictionary")
For 行 = 5 To 36
If 辞書.Exists(Cells(行, 4).Text) Then
Cells(行, 4).ClearContents
Else
辞書.Add Cells(行, 4).Text, 行
End If
Next
Set 辞書 = Nothing
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------------------------
GooUserラックさん、こんにちは
休日の貴重な時間に教えていただきありがとうございます
重複セルを処理したらソートして詰めます
ソート方法は、gooで皆さんに教えていただいた方法でできます
昨日からずっと、D5:D36の空白セルを探して、別のセルのデータを書き込むことをやってきて
私の腕でどうにかできたのですが、よくよく考えたら、重複セルがあった時の処理ができなくてギブアップしました
重複する行を削除する関数は検索ですぐに見つかったのですが、それはしたくないので質問させていただきました
ありがとうございました
検索で見つからないマクロを作っていただきまして感謝します
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセル 重複 隣の列 一番上だけの数値を残す VBA
Excel(エクセル)
-
VBAで重複データを合算したい
Excel(エクセル)
-
VBAで重複する項目を1つにまとめて金額を合計したい
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
別のシートから値を取得するとき
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
VBAで文字列を数値に変換したい
Excel(エクセル)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
Excelで2つのデータの突合せをしたいです
Excel(エクセル)
-
10
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
11
重複するIDのデータを1行にまとめるvbaのコード
Access(アクセス)
-
12
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
13
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
14
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
17
重複データの合算(VBA)
Visual Basic(VBA)
-
18
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
19
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
20
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
多岐にわたる、は、亘る OR ...
-
「等々」は「とうとう」「など...
-
「以上」と「超」の意味の違い
-
「はや」の表記
-
参考文献の中には辞書や文法書...
-
「一言一句」「一字一句」と「...
-
文量は正しい日本語ですか?
-
合意の上・下の使い分け
-
「拠点」と「拠店」の意味の違...
-
エクセルで「印」のしるしを書...
-
「さびしい」と「さみしい」。...
-
七面六臂(しちめんろっぴ)に...
-
「目的」と「概要」の違いを分...
-
「恩恵にあずかる」は「与る」...
-
「できるか、できないか」を熟...
-
「翔」の字の読み方
-
「~より」と「~から」
-
出費多難と出費多端
-
「終わる」でも良くなったの?...
-
「毎」の読み方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
多岐にわたる、は、亘る OR ...
-
「等々」は「とうとう」「など...
-
「はや」の表記
-
「以上」と「超」の意味の違い
-
経験を活かす?それとも生かす
-
「一言一句」「一字一句」と「...
-
「拠点」と「拠店」の意味の違...
-
文量は正しい日本語ですか?
-
「目的」と「概要」の違いを分...
-
「できるか、できないか」を熟...
-
七面六臂(しちめんろっぴ)に...
-
「恩恵にあずかる」は「与る」...
-
図る?計る?測る?量る?諮る...
-
エクセルで「印」のしるしを書...
-
改鼠
-
出費多難と出費多端
-
「~より」と「~から」
-
参考文献の中には辞書や文法書...
-
「世界を周る」のまわるの漢字...
-
「選択肢」と「選択枝」どちら...
おすすめ情報