Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63 / 76735

←次へ　｜　前へ→


	【82343】セル内重複文字削除

マクロ勉強中です。。 - 24/8/18(日) 18:17 -


	引用なし

	パスワード

素人なので、至らない点あればすみません。

選択したセル内に含まれる、重複した文字を、１文字のみ残して
その他の重複文字を削除する方法を教えていただきたいのです。

例）
うさぎ　ねこ　いぬ　　（←これで１セル）
いぬ　とり　さる　　（←これで１セル）
いるか　さかな　ハムスター　　（←これで１セル）
うさぎ　ハムスター　　（←これで１セル）
カエル　いぬ　パンダ　　（←これで１セル）

↓実行後

例）
うさぎ　ねこ　いぬ　　（←これで１セル）
とり　さる　　（←これで１セル）
いるか　さかな　ハムスター　　（←これで１セル）
カエル　パンダ　　（←これで１セル）

うさぎからパンダまでの５行✖️５セルのを選択した状態で、マクロを実行すると、
例の重複した文字の、うさぎ、いぬ、ハムスター　の、文字それぞれ一つを残して
その他は削除される。といった感じのコードは作れますでしょうか？

また、削除後にセル内に文字が無くなった場合は、上の行に繰り越したいです。

（※例で挙げた動物は、実際の消したい文字とは異なります）

3 hits

▼

【82343】セル内重複文字削除 マクロ勉強中です。。 24/8/18(日) 18:17