ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

x文字ごとに特定の文字をセルに追加/挿入する方法は?

次のスクリーンショットの結果を得るために、セルに4文字ごとにダッシュやその他の区切り記号を挿入するテキスト文字列のリストがあるとします。 特定の文字を挿入するために必要なセルが多すぎます。Excelで4文字ごとにダッシュを挿入する簡単な方法はありますか?

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

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

doc x文字ごとに挿入する1


テキスト文字列の前後に特定の文字を追加する:

Kutools for Excelさん テキストを追加 ユーティリティを使用すると、すべてのセルの前後に特定の文字や文字を追加できます。同時に、文字列の特定の位置に文字を挿入することもできます。

doc x文字ごとに挿入する11

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


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


次のVBAコードを適用して、4文字ごとに特定の文字をセルに挿入することができます。次のようにしてください。

1。 押さえつける Alt + F11 Excelのキーを押して アプリケーション用Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュール 窓。

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

Sub InsertCharacter()
'Updateby20150813
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 キーを押してこのコードを実行すると、テキスト文字列内に特定の文字を挿入するデータ範囲を選択するよう促すメッセージボックスが表示されます。スクリーンショットを参照してください:

doc x文字ごとに挿入する2

4。 をクリックします OK次のプロンプトボックスで、毎回特定の文字を挿入する番号を入力してください。スクリーンショットを参照してください:

doc x文字ごとに挿入する3

5。 クリックし続ける OK次のプロンプトボックスで、テキストに追加する特定の文字を入力してください。スクリーンショットを参照してください:

doc x文字ごとに挿入する4

6に設定します。 OK をクリックします。 OK ボタンをクリックし、プロンプトボックスに結果を出力するセルを1つ選択します。スクリーンショットを参照してください:

doc x文字ごとに挿入する5

7。 最後に、 OK、特定の文字が各文字列に4文字ごとに挿入されている、スクリーンショットを参照してください:

doc x文字ごとに挿入する6


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

上記のコードはExcelの初心者にとっては多少難しいかもしれませんが、ここでは便利なツールを紹介します。 Kutools for Excelそのと テキストを追加 セルの値の前後、または特定の位置に特定のテキストや文字をすばやく追加することができます。

Kutools for Excel : 300便利なExcelアドイン以上で、60日以内に自由に試してみてください.

あなたがインストールしている場合 Kutools for Excel次のようにしてください:

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

2。 次に、をクリックします クツール > テキスト > テキストを追加、スクリーンショットを見る:

doc x文字ごとに挿入する7 7

3。 の中に テキストを追加 ダイアログボックスで、挿入する文字を指定します。 テキスト ボックスを選択してから 位置から指定する テキストボックスに文字を挿入する位置を入力すると同時に、右ペインで結果をプレビューすることができます。スクリーンショットを参照してください:

doc x文字ごとに挿入する8

ヒントここでは、4,8,12を 指定 テキスト文字列の4th、8th、12th文字の後に特定のテキストを挿入することを示します。

4. 次に、をクリックします。 Ok or 適用します ボタンを押すと、指定した文字が特定の位置のセル値に挿入されます。

doc x文字ごとに挿入する9  2 doc x文字ごとに挿入する10

このAdd Textユーティリティの詳細については、クリックしてください。

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!


デモ:Kutools for Excelでx文字ごとに特定の文字をセルに挿入する

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


Kutools for Excel-最高のOffice生産性向上ツールにより、生産性が80%向上

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

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios