ExcelのセルにX文字ごとに特定の文字を追加または挿入する方法

Author Xiaoyang Last modified 2025-08-26

Excelで、テキスト文字列内の数文字ごとにダッシュや特定の文字などの区切り文字を追加するのは、手動で行うと面倒な作業になることがあります。例えば、複数のセルで4文字ごとにダッシュを挿入するには効率的な方法が必要です。この記事では、VBAコードを使用するか、Kutools for Excelの「テキストの追加」機能を使って固定間隔で文字を挿入するという2つの簡単な解決策を提供します。

VBAコードを使用してセルにX文字ごとに特定の文字を挿入する

Kutools for Excelを使用してセルにX文字ごとに特定の文字を挿入する

An example of inserting characters every 4th position in Excel

VBAコードを使用してセルにX文字ごとに特定の文字を挿入する

以下のVBAコードを使用して、4文字ごとに特定の文字をセルに挿入することができます。次の手順に従ってください：

1. ExcelでALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: セルにX文字ごとに特定の文字を挿入する

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. このコードを実行するために F5キーを押します。プロンプトボックスが表示され、テキスト文字列に特定の文字を挿入したいデータ範囲を選択するよう求められます。下のスクリーンショットをご覧ください：

Prompt box to select the data range for inserting characters

4. 「OK」をクリックすると、次のプロンプトボックスが表示されますので、X文字ごとに特定の文字を挿入したい数値を入力してください。スクリーンショットをご覧ください：

Prompt box to specify the number of characters after which to insert

5. 引き続き「OK」をクリックすると、次のプロンプトボックスが表示されますので、追加したい特定の文字を入力してください。スクリーンショットをご覧ください：

Prompt box to enter the specific character to insert

6. 「OK」ボタンをクリックし、結果を出力したいセルをプロンプトボックスで選択してください。スクリーンショットをご覧ください：

Prompt box to choose a cell for outputting results

7. 最後に「OK」をクリックします。指定された文字が、各テキスト文字列に4文字ごとに挿入されます。下のスクリーンショットをご覧ください：

Result of inserted characters after every 4th position in Excel cells

Kutools for Excelを使用してセルにX文字ごとに特定の文字を挿入する

VBAコードはExcel初心者にとって難しい場合があります。そこで、より簡単な代替手段としてKutools for Excelがあります。その「テキストの追加」機能を使用すると、セルの値の前、後ろ、または特定の位置に迅速に特定のテキストや文字を追加できます。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

1. 特定の文字を挿入したいデータ範囲を選択します。

2. 次に、「Kutools」＞「テキスト」＞「テキストの追加」をクリックします。スクリーンショットをご覧ください：

Kutools for Excel Add Text option in the Excel ribbon

3. 「テキストの追加」ダイアログボックスで、挿入したい文字を「 テキスト」フィールドに指定します。「位置」セクションで「指定」を選択し、文字を挿入する位置を入力します。右ペインで結果をプレビューできます。下のスクリーンショットをご覧ください：

Preview of the Add Text utility in Kutools for Excel showing specified positions for insertion

ヒント: ここでは「指定」のテキストボックスに「4,8,12」と入力しました。これは、テキスト文字列の4番目、8番目、12番目の文字の後に特定の文字を挿入することを意味します。

4. その後、「OK」または「適用」ボタンをクリックすると、指定された文字がセルの値内の特定の位置に挿入されます。

Original data before adding specified characters

Final result of added characters at specific positions in Excel

この「テキストの追加」機能についての詳細はこちらをクリックしてください。

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

デモ: Kutools for Excelを使用してセルにX文字ごとに特定の文字を挿入する

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数