エクセルで特定の文字の前や後で半角スペースを一括挿入したい。

解決済

質問者：soynoby
質問日時：2010/06/30 12:35
回答数：7件

エクセルで特定の文字の前や後で半角スペースを一括挿入したい。

特定の文字の前後に半角スペースを一括挿入したいと思うのですが、こういうことって可能ですか？

例えば、「ワールドカップ2010」→「ワールドカップ 2010」みたいな感じです。

「プ」の後か「2」の前に半角スペースを挿入したいです。

教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (7件)

ベストアンサー優先
最新から表示
回答順に表示

No.6ベストアンサー

回答者： Wendy02
回答日時：2010/06/30 21:13

このコードは、数値や英文字との区切りの間に半角スペースを入れるものです。

全角には反応しません。

//コマンドボタンに貼り付けるなら、フォームボタンがよいです。
Sub Main()
　Dim c As Variant
　Dim rng As Range
　If TypeName(Selection) = "Range" Then
　　Set rng = Selection
　　If rng.Count = 1 Then _
　　MsgBox "セルの範囲を選択してください。", vbExclamation: Exit Sub
　　For Each c In rng
　　　c.Offset(, 1).Value = SpaceEnter(c.Value)
　　Next
　End If
End Sub
Public Function SpaceEnter(strVal As Variant) As String
Dim buf As String
If VarType(strVal) = vbString Then
　buf = strVal
Else
　Exit Function
End If
With CreateObject("VBScript.RegExp")
　.Global = True
　.Pattern = "\b(\d|[A-z])"　'パターン
　buf = .Replace(buf, Space(1) & "$1")
End With
SpaceEnter = buf
End Function

- 2
- 件

通報する

No.7

回答者： imogasi
回答日時：2010/06/30 23:36

基本的には関数、ＶＢＡでやるより、操作の「置換」ほうが簡単だ。

置換の操作は常識だが、置換ロジックがうまく行くかどうかは、質問者が（質問者しか）データの情況を知らないのだから、自分で考えるべきだ。
＞、「ワールドカップ2010」→「ワールドカップ 2010」みたいな感じです
＞「プ」の後か「2」の前に半角スペースを挿入したいです
こんな例は質問の例としては大ざっぱ過ぎるのではないか。例えを単純化しすぎでは。
これを機械的に置換して、置換しなくても良いものを置換しないかどうか。
それでよければ
編集ー置換ー検索する文字列　プ、置換後の文字列　（プのあとに１スペースを入れる）
全て置換
ーー
これより
検索する文字列　プ2、置換後の文字列　（プのあとに１スペースを入れ2を続ける）
の方が良い場合もあろう。
ワールドカップ 2010
ワールドカ2011
カップめん
ーー
根本的にこれらではまずい場合があるなら、例示して改めて質問のこと。