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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(プログラミング・Web制作) linuxで列の挿入 1 2023/08/08 22:11
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- PHP Postgresの特定のカラムからスペースを取る方法 1 2023/02/22 13:18
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) エクセルで数値や日付を入力する際に、自動で頭に半角スペースが付くようにする書式設定はありますか? 3 2022/05/20 08:02
- Excel(エクセル) 【関数】ハイフン(-)を月や日に変えたい。スペースを削除したい。 4 2023/07/12 08:49
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
- PDF C#でfloatを整数部、小数部とも桁数固定で文字表示したい 2 2022/07/28 09:37
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelで、入力文字の後に自動で空白を入れるには
Excel(エクセル)
-
Excelで特定の文字の前だけに空白を挿入したい
Excel(エクセル)
-
Excelで後ろにスペースを入れて文字数を一度に揃えることってできますか?
その他(ソフトウェア)
-
-
4
Excelのセル内の文字の頭に半角空白を入れるには
その他(コンピューター・テクノロジー)
-
5
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
6
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
7
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
8
エクセルの文字間スペースを入れる関数ありますか?
その他(Microsoft Office)
-
9
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
10
エクセルで文字と数字が入っているセルを足すには
Excel(エクセル)
-
11
Excel 文字の前にスペースを入れる
Excel(エクセル)
-
12
EXCELの文字列操作で文字数不足の分をスペースで補う方法
Excel(エクセル)
-
13
スペースとスペースの間の文字を抽出する関数
Excel(エクセル)
-
14
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「桃色吐息」の意味は???
-
エクセルで特定の文字の前や後...
-
サッカーのスタジアムでドーム...
-
2022年に高3だった人に質問、ス...
-
札幌西区(西野、西町、八軒近辺...
-
アンセミックって何?
-
NHK TVerについて
-
Excel VBAで他アプリへのテキス...
-
国立競技場と東京体育館について
-
中学サッカー コートの大きさ
-
○○杯、○○カップのルーツ
-
ワールドカップの時の、ウォ~...
-
ロシアは東西に広いので時差を...
-
ドイツ日本に負けたらしいがボ...
-
韓流について
-
サッカーの公式戦と親善試合の...
-
ワールドカップ予選のイエロー...
-
アディダス
-
大型テレビの離れる距離と高さ...
-
ホーム&アウェイ方式って?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
西野七瀬が秋元真夏をいじめて...
-
サッカーのスタジアムでドーム...
-
元乃木坂の西野ななせって、あ...
-
エクセルで特定の文字の前や後...
-
○○杯、○○カップのルーツ
-
Jupiterに似た曲
-
ワールドカップの時の、ウォ~...
-
Excel VBAで他アプリへのテキス...
-
国立競技場と東京体育館について
-
NHK TVerについて
-
サッカーでよく聞く オーレオレ...
-
乃木坂メンバー、欅坂メンバー...
-
大至急の質問です。 iPhone 13...
-
アンセミックって何?
-
「桃色吐息」の意味は???
-
なぜ日本のPKはへたくそなんだ?
-
4月18日のはねとびの短縮鉄道の夜
-
サッカーの公式戦と親善試合の...
-
サッカー日本代表に詳しい方!...
-
NBA選手になるにはアメリカの学...
おすすめ情報