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

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

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

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

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キーを押します。プロンプトボックスが表示され、テキスト文字列に特定の文字を挿入したいデータ範囲を選択するよう求められます。下のスクリーンショットをご覧ください：

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

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

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

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

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

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

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

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

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

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

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

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

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