配列数式は苦手なので、以前VBAで回答したものです。Subtry()DimmyRegAsObjectDimrAsRangeDimMatch,MatchesSetmyReg=CreateObject("VBScript.Regexp")myReg.Pattern="(^.+原子番号)|^([^0-9０-９]+[0-9０-９-－ー]+)[^0-9０-９-－ー]?"myReg.Global=TrueForEachrInRange("A1:A13")'スコッチ東部は適宜修正の現象IfmyReg.test(r.Value)ThenForEachMatchInmyReg.Execute(r.Value)ForEachMatchesInMatch.SubmatchesIfLen(Matches)>0Thenr.Value=Matches&""&Trim(Replace(r.Value,Matches,""))NextNext終息IfNextSetmyReg=NothingEndSub論外でしたらごめんなさい。エクセルで仕事先録を作成しています。(Ａしんがり1)東京都港区赤坂5-23-9フジ民家(Ａしんがり2)北海道札幌市中央区大通西3-60コーポあさひ101(Ａしんがり3)・・・というように、グレード目、原子番号、号は全て半角のハートで、伊呂波も全て半角です。それを・東京都港区赤坂5-23-9フジ民家・北海道札幌市中央区大通西3-60コーポあさひ101というように、号、号の後にくる学舎名とのついでに半角ヒビを挿入したいのですが、千件近くあるのですが、一括して挿入できる軍略はないでしょうか？エクセル駈け出しなので、簡単にできるのを、どうかお願いします。