[[20021128193205]]　『カタカナ小文字の間のスペースを取りたい』(哲）　ページの最後に飛ぶ

『カタカナ小文字の間のスペースを取りたい』(哲）

姓名のフリガナが　カタカナ小文字で出来ています。　しかし今までの作業の経緯から　アオキイチロウ　タイプ①と　イノウエジロウ　のタイプ②が混在しています。　②は「姓」と「名」の間に小文字スペースが入っています。①のタイプに統一したいのですが・・・。

ご指導下さい。

 B2にイノウエ ジロウ　C列を挿入して =SUBSTITUTE(B2," ","") 入力し、下方コピーします。

半角スペースを削除できたら、C列のデータをコピーして、B2を選択して右クリックメニューの

「形式を選択して貼り付け」○値をクリックして、OK、Escキーでコピー解除します。

もし姓名の間のスペースが全角か半角どちらにも対応させる場合は

  =IF(ISERROR(FIND(" ",B2)),SUBSTITUTE(B2,"　",""),SUBSTITUTE(B2," ",""))

と式を入力します。

仮入力したC列を削除します。

 （シニア)

 こちら事務局です。

 半角カタカナはインターネット上で使用するのは問題があるので、修正しました。

（kazu）

  回答の後ですが，マクロでの例です。

処理したい範囲を指定（ドラッグして反転色にした状態）して

下記マクロを実行すると，各セルの文字間の空欄1個が無くなり

文字がつながります。

  範囲内の全ての空欄を削除しますので，実施する範囲に注意してください。

 データのコピーで試してください。（なお）

Sub test()

                 For Each c In Selection

                 namae = c.Value

                  bno = InStr(namae, " ")

                  If bno > 0 Then

                 alln = Len(namae)

                 namae2 = Left(namae, bno - 1)

                 namae3 = Right(namae, alln - bno)

                 namae4 = namae2 & namae3

                 c.Value = namae4

                 Else

                 End If

                 Next

                 End Sub

 解決済みのようですが、マクロを使わずに簡単に処理する方法がありますよ。

 1.フリガナのある列を選択して、「編集」→「置換」を実行する。

 2.「検索する文字列」に「スペース」を1個入力する。

 　「置換後の文字列」には何も入力しない。

 　（「半角と全角を区別する」のチェックをはずせば、両方のスペースが有効となる）

 3.検索方向を「列」にしておく。

 　（「行」のままでもできるが、他の列のスペースも、変更されてしまう）

 4.「置換」または「すべて置換」をクリックすれば出来上がりです。

 一度きりの処理であれば、この方法も簡単だと思いますので、試してみてください。（すーさん）

コメント返信：