Note: The other languages of the website are Google-translated. Back to English

Excelで大文字の前にスペースを挿入するにはどうすればよいですか?

次のように、単語間のすべてのスペースが誤って削除されたテキスト文字列のリストがあるとします。 InsertBlankRowsBetweenData、そして今、あなたは単語を次のように区切るために大文字で各文字の前にスペースを追加したいと思います データ間に空白行を挿入する。 ExcelでスペースをXNUMXつずつ入力する代わりに、大文字の前にスペースをすばやく追加するにはどうすればよいですか?


ユーザー定義関数を使用して大文字の前にスペースを挿入する

残念ながら、Excelで大文字の前にスペースを追加する直接的な方法はありませんが、このタスクを解決するためにユーザー定義関数を作成することはできます。

1。 スペースを追加するテキスト文字列を含むワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:大文字の前にスペースを挿入します

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4。 次に、このコードを保存して閉じ、ワークシートに戻って、この数式を入力します = addspaces(A1) データの横の空白のセルに、スクリーンショットを参照してください。
doc-add-spaces-before-uppercase-1

5。 次に、この数式を含める範囲に塗りつぶしハンドルをドラッグすると、すべての大文字の前にスペースが挿入されます。
doc-add-spaces-before-uppercase-1

セルの先頭/末尾/余分なスペースを簡単に削除

Excel用のKutools スペースを削除する このユーティリティを使用すると、Excelユーザーは、選択したセルからすべての先頭のスペース、末尾のスペース、余分なスペース、またはすべてのスペースをすばやく簡単に削除できます。


広告スペースを削除1

VBAコードで大文字の前にスペースを挿入します

これがあなたに有利な別のVBAコードです。次のようにしてください:

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード:大文字の前にスペースを挿入します

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、使用するデータ範囲を選択するためのプロンプトボックスが表示されます。
doc-add-spaces-before-uppercase-1

4。 そして、 OK このプロンプトボックスを閉じるには、大文字の前にスペースが一度に挿入されています。スクリーンショットを参照してください。
doc-add-spaces-before-uppercase-1


Kutools for Excelを使用して、すべての大文字の前にスペースを挿入します

Excel用のKutools テキストを追加 ユーティリティは、VBAマクロをバイパスし、Excelですべての大文字の前にスペースを簡単に挿入するのに役立ちます。

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ無料トライアル!

1。 大文字の前にスペースを挿入する範囲を選択し、 クツール > テキスト > テキストを追加。 スクリーンショットを参照してください:

2。 開いている[テキストの追加]ダイアログボックスで、にスペースを入力します テキスト ボックス、チェックボックス オプションに追加するだけ をクリックして 最初の文字は大文字です から に追加するだけ ドロップダウンリスト。

3。 クリック Ok 次のスクリーンショットに示すように、すべての大文字の前にスペースを挿入するボタン:
doc大文字7の前にスペースを追加

Kutools for Excel - Excel 用の 300 以上の便利なツールが含まれています。 全機能無料トライアル 30-day、クレジットカード不要! 今すぐ入手

免責事項:この方法では、最初の文字が大文字の場合、セルの先頭にもスペースが追加されます。 応募できます クツール > テキスト > スペースを削除する 選択したセルからすべての先頭のスペースを削除します。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (9)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
セル内で大文字を見つけたいので、Excelで助けが必要です。 例:Sagar Paul MBA16:04MBAを強調表示したい
このコメントは、サイトのモデレーターによって最小化されました
ご覧いただき、お試しいただければ幸いです。 Sub Test()Dim Rg As Range、xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i、1 ).Text If Asc(xChar)> 64 And Asc(xChar)<91 Then xCell.Characters(i、1).Font.Color = vbRed End If Next Next End Sub
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、あなたのコードは素晴らしい働きをします。 コード20140723を複数のシートで機能するように適合させる方法を知っていますか? ブック全体で大文字の間にスペースを追加したいと思います。 ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは

まず、コード例と説明に感謝します。 私の場合は非常にうまく機能します。

問題が1つだけあります。一部の文字列には、URLなどの単語が含まれていますが、これらを区切ることはできません。
たとえば「URL」を除いてスペースを追加する方法はありますか?

あなたが助けることができれば非常にいいでしょう。 私はすでにしばらく試しましたが、これを解決する方法がわかりません。


敬具
ルカ
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
コメントとアドバイスをありがとう。 私はあなたの提案をKutoolsプロジェクトチームに送りました、彼らはすぐにそれを改善すると確信しています。
このコメントは、サイトのモデレーターによって最小化されました
解決策を見つけましたか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはあなたがあなたのケースのための解決策を見つけたかどうかあなたに尋ねたいです、あなたが解決策を見つけたならそれを私に提供してください
このコメントは、サイトのモデレーターによって最小化されました
この関数は、特定のソリューションではカバーできないXNUMXつの問題を処理します。
1.英語以外のテキスト(発音区別符号付き)
2.後にスペースを入れてはならない連続する首都

`プライベート関数AddSpaces(sText As String)As String
'連続する文字がそれぞれ大文字になっている場合を除いて、大文字の直前にスペースを挿入します。
'最終更新日:2022-07-04
'
Dim sRet As String、i As Integer、sChar As String、bPrevWasUCase As Boolean

sRet = Left(sText、1)
i = 2の場合Len(sText)へ
sChar = Mid(sText、i、1)
sChar = UCase(sChar)であり、bPrevWasUCaseではない場合
sRet = sRet& ""&sChar
bPrevWasUCase = True

sRet = sRet&sChar
bPrevWasUCase = False
終了する場合
私は次の

AddSpaces = sRet
終了機能`
このコメントは、サイトのモデレーターによって最小化されました
こんにちは友人、

共有していただきありがとうございます。 VBAコードを試しましたが、機能しません。 私たちのVBAコードは、英語以外のテキストを処理できます。 フランス語のテキストをテストしましたが、大文字の前にスペースが正常に挿入されています。

敬具
マンディ
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護