Як додати / вставити певний символ кожні х символів у комірки?
Припустимо, у мене є список текстових рядків, які я хочу вставити тире або будь-які інші роздільники після кожних чотирьох символів у клітинки, щоб отримати такий результат скріншоту. Забагато клітинок, необхідних для вставки певного символу, чи є швидкі способи вставити тире кожні чотири символи в Excel?
Вставте певний символ кожні x символів у клітинку з кодом VBA
Вставте певний символ кожні x символів у клітинку за допомогою Kutools для Excel
Вставте певний символ кожні x символів у клітинку з кодом VBA
Ви можете застосувати такий код VBA, щоб вставити певний символ після кожних чотирьох символів у клітинки, будь-ласка, зробіть наступне:
1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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, у наступному вікні запиту введіть номер, за яким потрібно вставити певний символ щоразу, див. знімок екрана:
5. Продовжуйте натискати OK, а в наступному вікні запиту введіть певний символ, який потрібно додати до тексту, див. знімок екрана:
6. Клацання OK і виберіть одну клітинку, куди ви хочете вивести результат, у вікні запиту, див. знімок екрана:
7. Нарешті клацніть OK, певний символ було вставлено в кожен текстовий рядок кожні чотири символи, див. знімок екрана:
Вставте певний символ кожні x символів у клітинку за допомогою Kutools для Excel
Наведений вище код, можливо, дещо складний для більшості початківців Excel, тут я можу представити зручний інструмент - Kutools для Excel, З його додати текст Ви можете швидко додати певний текст або символ до, після або до певних позицій значення комірки.
| Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
Якщо ви встановили Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть діапазон даних, до якого потрібно вставити певний символ.
2. Потім натисніть Кутулс > текст > додати текст, див. скріншот:
3, в додати текст у діалоговому вікні вкажіть символ, який потрібно вставити в текст , а потім виберіть Вкажіть із Позиції розділу, у текстовому полі введіть позиції, до яких потрібно вставити символ, одночасно ви можете переглянути результат на правій панелі, див. знімок екрана:
Tips : Тут я набираю 4,8,12 у текстовому полі Вказувати які вказують на вставку конкретного тексту після 4-го, 8-го та 12-го символів текстового рядка.
4. Потім натисніть Ok or Застосовувати Кнопка, вказаний символ був вставлений у значення комірок у певних положеннях.
 |
 |
 |
Клацніть, щоб дізнатися більше про цю утиліту «Додати текст».
Завантажте та безкоштовну пробну версію Kutools для Excel зараз!
Демо: вставте певний символ кожні x символів у комірку за допомогою Kutools для Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
