如何在單元格中每x個(gè)字符添加/插入某些字符？
假設(shè)我有一個(gè)文本字符串列表，我想在每四個(gè)字符插入單元格后插入破折號(hào)或任何其他分隔符，以獲得以下屏幕截圖結(jié)果。 插入特定字符所需的單元格過多，是否有快速方法在Excel中每四個(gè)字符插入破折號(hào)？
使用VBA代碼將每個(gè)x字符中的某些字符插入單元格
每隔 x 個(gè)字符將某個(gè)字符插入單元格中 Kutools for Excel
使用VBA代碼將每個(gè)x字符中的某些字符插入單元格您可以應(yīng)用以下VBA代碼在單元格中每四個(gè)字符后插入一個(gè)特定字符，請執(zhí)行以下操作：
1。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：每x個(gè)字符將某些字符插入到單元格中
Sub InsertCharacter()Updateby ExtendofficeDim Rng As RangeDim InputRng As Range, OutRng As RangeDim xRow As IntegerDim xChar As StringDim index As IntegerDim arr As VariantDim xValue As StringDim outValue As StringDim xNum As IntegerxTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet 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 = 1For Each Rng In InputRngxValue = Rng.ValueoutValue = ""For index = 1 To VBA.Len(xValue)If index Mod xRow = 0 And index <> VBA.Len(xValue) ThenoutValue = outValue + VBA.Mid(xValue, index, 1) + xCharElseoutValue = outValue + VBA.Mid(xValue, index, 1)End IfNextOutRng.Cells(xNum, 1).Value = outValuexNum = xNum + 1NextEnd SubCopy3。 然后按 F5 鍵運(yùn)行此代碼，然后會(huì)彈出一個(gè)提示框，提醒您選擇要在文本字符串中插入某些字符的數(shù)據(jù)范圍，請參見屏幕截圖：
4。 并點(diǎn)擊 OK，請?jiān)谝韵绿崾究蛑休斎肽谄浜蟛迦肽承┳址臄?shù)字，請參見屏幕截圖：
5。 繼續(xù)點(diǎn)擊 OK，然后在隨后的提示框中，輸入要添加到文本中的特定字符，請參見屏幕截圖：
6。 點(diǎn)擊 OK 按鈕，然后在提示框中選擇要在其中輸出結(jié)果的一個(gè)單元格，請參見屏幕截圖：
7。 最后點(diǎn)擊 OK，該字符已每四個(gè)字符插入到每個(gè)文本字符串中，請參見屏幕截圖：
每隔 x 個(gè)字符將某個(gè)字符插入單元格中 Kutools for Excel對于大多數(shù)Excel初學(xué)者來說，上面的代碼可能有些困難，在這里，我可以介紹一個(gè)方便的工具- Kutools for Excel，其 添加文本 功能，您可以在單元格值的之前，之后或某些位置快速添加特定的文本或字符。
Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在內(nèi).前往下載購買貝寶/ MyCommerce如果你已經(jīng)安裝 Kutools for Excel，請執(zhí)行以下操作：
1. 選擇要插入特定字符的數(shù)據(jù)范圍。
2。 然后點(diǎn)擊 Kutools > 文本 > 添加文本，請參見屏幕截圖：
3。 在 添加文本 對話框中，指定要插入的字符 文本 框，然后選擇 從位置指定 部分，在文本框中輸入要在其后插入字符的位置，同時(shí)，您可以在右側(cè)窗格中預(yù)覽結(jié)果，請參見屏幕截圖：
Tips：在這里，我在的文本框中輸入4,8,12 指定 表示在文本字符串的第4、8和12個(gè)字符之后插入特定文本。
4. 然后點(diǎn)擊 Ok or 使用 按鈕，指定的字符已插入到單元格值中的特定位置。
單擊以了解有關(guān)此“添加文本”實(shí)用程序的更多詳細(xì)信息。
下載并 Kutools for Excel 現(xiàn)在 ！
演示：將某個(gè)字符每隔 x 個(gè)字符插入單元格中 Kutools for ExcelKutools for Excel：具有300多個(gè)方便的Excel加載項(xiàng)，可以在內(nèi)，沒有任何限制。 立即下載并！最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
