提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何將每x個字符中的特定字符添加/插入到單元格中?

假設,我有一個文本字符串列表,我希望在每四個字符後面插入破折號或其他分隔符,以獲得以下屏幕截圖結果。 插入特定字符所需的單元太多,是否有任何快速方法在Excel中每四個字符插入破折號?

用VBA代碼將每x個字符中的某個字符插入單元格

用Kutools for Excel將每x個字符中的某個字符插入單元格

doc插入每個x字符1


在文本字符串的某個位置之前/之後添加特定字符:

Kutools for Excel添加文本 實用程序可以幫助您在所有單元格之前或之後添加特定的字符或字母,同時它還可以將字符插入到文本字符串的某個位置中。

doc插入每個x字符11

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


用VBA代碼將每x個字符中的某個字符插入單元格


您可以應用以下VBA代碼在每四個字符後面插入一個特定字符到單元格中,請按照以下步驟操作:

1。 按住 ALT + F11 在Excel中的鍵,它打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,並將以下代碼粘貼到 模塊 窗口。

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 按鈕,然後在提示框中選擇一個要在其中輸出結果的單元格,請參閱截圖:

doc插入每個x字符5

7。 最後點擊 OK,每四個字符中的特定字符已插入到每個文本字符串中,請參閱截圖:

doc插入每個x字符6


用Kutools for Excel將每x個字符中的某個字符插入單元格

上面的代碼對於大多數Excel初學者來說可能有些困難,在這裡,我可以介紹一個方便的工具 - Kutools for Excel,其 添加文本 功能,您可以快速添加特定的文本或字符之前,之後或某些位置的單元格值。

Kutools for Excel : 與超過300方便的Excel加載項,在60天免費試用沒有限制.

如果你已經安裝 Kutools for Excel請按照以下步驟進行:

1。 選擇要插入特定字符的數據范圍。

2。 然後點擊 Kutools > 文本 > 添加文本,看截圖:

doc插入每個x字符7 7

3。 在 添加文本 對話框中,指定要插入的字符 文本 框,然後選擇 從位置指定 部分,在文本框中輸入要插入角色的位置,同時可以在右側窗格中預覽結果,請參見屏幕截圖:

doc插入每個x字符8

提示:在這裡,我在文本框中輸入4,8,12 指定 它表示在文本字符串的4th,8th和12th個字符之後插入特定文本。

4. 然後點擊 Ok or 應用 按鈕,指定的字符已被插入到特定位置的單元格值中。

doc插入每個x字符9  2 doc插入每個x字符10

點擊了解有關此添加文本實用程序的更多詳情。

立即下載並免費試用Kutools for Excel!


演示:使用Kutools for Excel將每x個字符中的某個字符插入單元格

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


Kutools for Excel - 最佳辦公生產力工具提高80%的生產力

  • 重用: 快速插入 複雜的公式,圖表 以及你以前用過的任何東西; 加密單元格 密碼; 創建郵件列表 並發送電子郵件...
  • 超級方程式酒吧 (輕鬆編輯多行文字和公式); 閱讀佈局 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不丟失數據; 分裂細胞含量; 組合重複的行/列...防止重複的細胞; 比較範圍...
  • 選擇複製或唯一 行; 選擇空行 (所有細胞都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇......
  • 精確複製 多個單元格而不更改公式參考; 自動創建參考 多張表; 插入項目符號,複選框等等......
  • 提取文本,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級過濾器 (將過濾方案保存並應用到其他工作表); 高級排序 按月/週/日,頻率等; 特殊過濾器 用粗體,斜體......
  • 結合工作簿和工作表; 根據鍵列合併表; 將數據拆分為多個表格; 批量轉換xls,xlsx和PDF...
  • 超過300強大的功能。 支持Office / Excel 2007-2019和365。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能60天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過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