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も見ています
-
餃子を食べるとき、何をつけますか?
みんな大好き餃子。 ふと素朴な疑問ですが、餃子には何をつけて食べますか? 王道は醤油とお酢でしょうか。
-
一回も披露したことのない豆知識
あなたの「一回も披露したことのない豆知識」を教えてください。 「そうなんだね」と「確かに披露する場所ないね」で評価します。
-
【お題】引っかけ問題(締め切り10月27日(日)23時)
【大喜利】 「日本で一番高い山は富士山……ですが!」から始まった、それは当てられるわけ無いだろ!と思ったクイズの問題
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
好きな「お肉」は?
牛肉、豚肉、鶏肉、ラム肉、クマやシカの狩猟肉……。 いろ〜んな肉が食べられるようになりましたよね。 あなたがこれまで食べて「これはうまい!」とか「なんじゃこりゃ!」と好きになったお肉を教えてください。
-
Excelで、入力文字の後に自動で空白を入れるには
Excel(エクセル)
-
Excelで特定の文字の前だけに空白を挿入したい
Excel(エクセル)
-
Excelで後ろにスペースを入れて文字数を一度に揃えることってできますか?
その他(ソフトウェア)
-
-
4
Excelのセル内の文字の頭に半角空白を入れるには
その他(コンピューター・テクノロジー)
-
5
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
6
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
7
Excel 文字の前にスペースを入れる
Excel(エクセル)
-
8
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
9
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
10
エクセルの文字間スペースを入れる関数ありますか?
その他(Microsoft Office)
-
11
エクセルの改行時、2行目の頭にスペースを入れる方法
その他(パソコン・スマホ・電化製品)
-
12
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字の前や後...
-
サッカーのスタジアムでドーム...
-
○○杯、○○カップのルーツ
-
ワールドカップの時の、ウォ~...
-
国立競技場と東京体育館について
-
Excel VBAで他アプリへのテキス...
-
国歌演奏の順番・・・&ホーム
-
katenachio(カテナチオ)って...
-
アンゴラ代表
-
さんまのからくりテレビについて
-
バボ日本
-
昔のサッカーの試合を見る方法...
-
道頓堀ダイブ
-
何故、トヨタスタジアムでワー...
-
ファンマルバイク、ファンマル...
-
西野七瀬が秋元真夏をいじめて...
-
"ファビョる"の表現は問題ない...
-
サッカーの曲について
-
アンセミックって何?
-
サッカーでよく聞く オーレオレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字の前や後...
-
サッカーのスタジアムでドーム...
-
国立競技場と東京体育館について
-
ワールドカップの時の、ウォ~...
-
○○杯、○○カップのルーツ
-
西野七瀬が秋元真夏をいじめて...
-
サッカーでよく聞く オーレオレ...
-
アンセミックって何?
-
久保建英は日本代表に呼ばれる...
-
Jupiterに似た曲
-
Excel VBAで他アプリへのテキス...
-
サッカーの曲について
-
バボ日本
-
元乃木坂の西野ななせって、あ...
-
katenachio(カテナチオ)って...
-
最近の日本のサッカーチームが...
-
4月18日のはねとびの短縮鉄道の夜
-
何故、トヨタスタジアムでワー...
-
国歌演奏の順番・・・&ホーム
-
ドーハの悲劇など、代表の歴史...
おすすめ情報