Как да добавите / вмъкнете определен знак на всеки x знака в клетки?
Да предположим, че имам списък с текстови низове, които искам да вмъкна тирета или други разделители след всеки четири знака в клетките, за да получа следния резултат от екранна снимка. Има твърде много клетки, необходими за вмъкване на определен знак, има ли бързи начини за вмъкване на тирета на всеки четири знака в Excel?
Вмъкнете определен знак на всеки x знака в клетка с VBA код
Вмъкнете определен знак на всеки x знака в клетка с Kutools за Excel
Вмъкнете определен знак на всеки x знака в клетка с VBA код
Можете да приложите следния VBA код, за да вмъкнете конкретен знак след всеки четири знака в клетките, моля, направете следното:
1. Задръжте натиснат ALT + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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, След това кликнете Kutools > Текст > добавяне на текст, вижте екранна снимка:
3. В добавяне на текст диалогов прозорец, задайте знак, който искате да вмъкнете в Текст кутия и след това изберете Конкретизирайте от Позицията раздел, в текстовото поле въведете позициите, след които искате да вмъкнете знака, в същото време можете да визуализирате резултата в десния панел, вижте екранната снимка:
Съвети: Тук въвеждам 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% и намалява стотици кликвания на мишката за вас всеки ден!
