[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『1文字おきに伏字にしたい』(UNI)
セルに入ってる顧客名を
顧客情報保護の観点から1文字おきに伏字(●)にしたく、
(全文字の50%は伏字にしたい)データが大量のため、手作業では困難なため、
関数で対処できないのか検討していますが、よいアイデアが浮かびません。
MID関数など良いかと思いましたが、そこから先のアイデアがありません。
例として、
株式会社 UNI食品販売
↓
●式●社●N●食●販●
●式●社 ●N●食●販●
このように●などで設定したいと思っています。
※株式会社と名前の間の空白は削除されても残っても構いません
VBAを利用しないで関数の組み合わせで対応できればと思っています。
よろしくお願いします。
< 使用 Excel:Excel2016、使用 OS:Windows10 >
A1セルに元の文字があるとして、元の文字が最大20字までとして。 =SUBSTITUTE(" "&TRIM(MID(A1,2,1)&" "&MID(A1,4,1)&" "&MID(A1,6,1)&" "&MID(A1,8,1)&" "&MID(A1,10,1)&" "&MID(A1,12,1)&" "&MID(A1,14,1)&" "&MID(A1,16,1)&" "&MID(A1,18,1)&" "&MID(A1,20,1))&" "," ","●") ではどうだろうか? なお、途中の空白は削除している。
365だと =SUBSTITUTE(" "&TRIM(TEXTJOIN(" ",TRUE,MID(A1,ROW(1:10)*2,1)))&" "," ","●") で。 これも最大20文字まで。 (ねむねむ) 2021/01/27(水) 16:03
ねむねむさん
ありがとうございます。
試させていただき、無事に伏字になりました。
365も別の端末で利用しているためやってみましたところ、
そちらでも対応できました。
お二人ともありがとうございました!
とても勉強になりました!
(UNI) 2021/01/27(水) 18:51
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.