
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で後ろにスペースを入れて文字数を一度に揃えることってできますか?
その他(ソフトウェア)
-
-
4
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
5
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
6
エクセルの文字間スペースを入れる関数ありますか?
その他(Microsoft Office)
-
7
Excelのセル内の文字の頭に半角空白を入れるには
その他(コンピューター・テクノロジー)
-
8
Excel 文字の前にスペースを入れる
Excel(エクセル)
-
9
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
10
EXCELの文字列操作で文字数不足の分をスペースで補う方法
Excel(エクセル)
-
11
Excelでの全通りの組み合わせ出力方法(文字列)
Excel(エクセル)
-
12
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
13
小数点以下を繰り上げたものをそのままコピーするには
Excel(エクセル)
-
14
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
15
エクセルで最初のスペースまでの文字列を削除したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字の前や後...
-
UEFAとFIFAの違いってなんでし...
-
一業一社の意味
-
サッカーの年齢制限について
-
ワールドカップの時の、ウォ~...
-
YAWARA!【恋愛シーン】
-
バボ日本
-
北野、東野、西野、南野 苗字が...
-
Excel VBAで他アプリへのテキス...
-
『SmaSTATION』の小宮悦子さん...
-
○○杯、○○カップのルーツ
-
サッカーグラウンドの広さって?
-
アフリカってテレビ放送ありま...
-
カザフスタンはなぜUEFAへ?
-
「桃色吐息」の意味は???
-
サッカー日本代表について 素朴...
-
サッカーのスタジアムでドーム...
-
ワールドカップ記念?の五百円玉
-
サッカーでよく聞く オーレオレ...
-
やべっちFC『ハーイ!やべっち...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サッカーのスタジアムでドーム...
-
ワールドカップの時の、ウォ~...
-
甲子園とかワールドカップに一...
-
エクセルで特定の文字の前や後...
-
世界選手権とワールドカップの違い
-
アメフトの世界的な人気は、ど...
-
Excel VBAで他アプリへのテキス...
-
UEFAとFIFAの違いってなんでし...
-
○○杯、○○カップのルーツ
-
4月18日のはねとびの短縮鉄道の夜
-
「桃色吐息」の意味は???
-
Jupiterに似た曲
-
アンセミックって何?
-
レプリカと公式球の違い
-
国立競技場と東京体育館について
-
サッカーでよく聞く オーレオレ...
-
サッカーの公式戦と親善試合の...
-
『SmaSTATION』の小宮悦子さん...
-
Yahooサイトのテキストはコピー...
-
何故、トヨタスタジアムでワー...
おすすめ情報