
No.6ベストアンサー
- 回答日時:
このコードは、数値や英文字との区切りの間に半角スペースを入れるものです。
全角には反応しません。//コマンドボタンに貼り付けるなら、フォームボタンがよいです。
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
No.7
- 回答日時:
基本的には関数、VBAでやるより、操作の「置換」ほうが簡単だ。
置換の操作は常識だが、置換ロジックがうまく行くかどうかは、質問者が(質問者しか)データの情況を知らないのだから、自分で考えるべきだ。>、「ワールドカップ2010」→「ワールドカップ 2010」みたいな感じです
>「プ」の後か「2」の前に半角スペースを挿入したいです
こんな例は質問の例としては大ざっぱ過ぎるのではないか。例えを単純化しすぎでは。
これを機械的に置換して、置換しなくても良いものを置換しないかどうか。
それでよければ
編集ー置換ー検索する文字列 プ、置換後の文字列 (プのあとに1スペースを入れる)
全て置換
ーー
これより
検索する文字列 プ2、置換後の文字列 (プのあとに1スペースを入れ2を続ける)
の方が良い場合もあろう。
ワールドカップ 2010
ワールドカ2011
カップめん
ーー
根本的にこれらではまずい場合があるなら、例示して改めて質問のこと。
No.5
- 回答日時:
抜けてた、
Sub Tikan()
ActiveCell.Value = Replace(ActiveCell.Value, "ワールドカップ", "ワールドカップ ")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
新生活!引っ越してから困らないように注意すべきことは?
新しい職場や学校で元気いっぱいのスタートを切るためにも快適な生活環境を整えておきたい! >>
-
Excelで特定の文字の前だけに空白を挿入したい
Excel(エクセル)
-
Excelで、入力文字の後に自動で空白を入れるには
Excel(エクセル)
-
Excel 文字の前にスペースを入れる
Excel(エクセル)
-
4
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
5
Excelのセル内の文字の頭に半角空白を入れるには
その他(コンピューター・テクノロジー)
-
6
Excel 文字列の前後に、特定の文字を付加したい
Excel(エクセル)
-
7
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
8
Excelで後ろにスペースを入れて文字数を一度に揃えることってできますか?
その他(ソフトウェア)
-
9
エクセル・文字列の先頭に空白を挿入する
Excel(エクセル)
-
10
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
11
Excel セル内の文字と数字をわけるには??
Excel(エクセル)
-
12
文字列間にスペースを入れる関数はある?
Excel(エクセル)
-
13
EXCELで文字列の後ろに同じ文字列を追加するには?
Excel(エクセル)
-
14
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
15
エクセルの文字間スペースを入れる関数ありますか?
その他(Microsoft Office)
-
16
エクセルの改行時、2行目の頭にスペースを入れる方法
その他(パソコン・スマホ・電化製品)
-
17
エクセル、マクロで「末尾を1文字削除」したいのですが
Windows Vista・XP
-
18
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
19
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
20
Excel 文字列の中から数字だけを削除したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
ワールドカップと世界選手権の...
-
5
結局この3人で誰が一番可愛い...
-
6
「M」から始まるバンドを知っ...
-
7
やべっちFC『ハーイ!やべっち...
-
8
恋愛ソング歌っている歌手でお...
-
9
類似ファイル名検索ツール
-
10
世界選手権とワールドカップの違い
-
11
○○杯、○○カップのルーツ
-
12
アンセミックって何?
-
13
Excel VBAで他アプリへのテキス...
-
14
現代文について1から教えてく...
-
15
日本代表の応援歌
-
16
ドーハの悲劇っておかしくない...
-
17
ホーム&アウェイ方式って?
-
18
メキシコの強さ
-
19
レプリカと公式球の違い
-
20
サッカーのスタジアムでドーム...
おすすめ情報