Excel добавляет текст и число в указанную позицию ячейки
В Excel добавление текста или чисел в ячейки — очень распространенная задача. Например, добавление пробела между именами, добавление префикса или суффикса к ячейкам, добавление тире к номерам социальных сетей. Здесь, в этом руководстве, перечислены почти все сценарии добавления в Excel и предоставлены соответствующие методы для вас.
Внимание
В этом уроке я создаю несколько примеров для объяснения методов, вы можете изменить ссылки по своему усмотрению, когда используете приведенный ниже код или формулы VBA, или вы можете напрямую загрузить образцы для опробования методов.
Нажмите, чтобы загрузить образец файла
В этой части перечислены различные методы добавления символов в начало каждой ячейки, как показано ниже:
1.1 Добавить в начало ячеек с помощью формулы
Здесь вы можете выбрать одну из трех следующих формул:
Формула 1 Оператор конкатенации "&"
Соедините несколько текстов вместе с помощью символа амперсанда «&».
"текст"&ячейка
Формула2 СЦЕПИТЬ функцию
Функция СЦЕПИТЬ используется для объединения текстов.
СЦЕПИТЬ("текст",ячейка)
Формула3 Функция CONCAT
Это новая функция, которая появляется только в Excel 2019, Office 365 и Excel в Интернете.
СЦЕП ("текст", ячейка)
В общих формулах: ячейка — это ссылка на ячейку с текстом, к которому вы хотите добавить префикс, а текст — это текст, который использовался для добавления в ячейку.
Используя приведенный выше пример, вы можете использовать формулы в строке формул следующим образом:
"&"
=$E$3&B3 or ="Айфон"&B3
СЦЕПИТЬ функция
=СЦЕПИТЬ($E$3,B3) or = СЦЕПИТЬ ("Айфон", B3)
Функция CONCAT
=СЦЕП($E$3;B3) or = СЦЕП ("Айфон", B3)
Нажмите Enter чтобы получить результат, затем перетащите маркер автозаполнения вниз, чтобы добавить текст в каждую ячейку диапазона B3:B6.
| Внимание: текст должен быть заключен в двойные кавычки, иначе формула возвращает значение ошибки #ИМЯ?. Если вы используете ссылку на ячейку для текста, не забудьте использовать абсолютную ссылку, вы можете нажать клавишу F4, чтобы изменить относительную ссылку на абсолютную ссылку. |
1.2 Добавить в начало ячеек с помощью Flash Fill
Если вы используете Excel 2013 или более поздние версии, новая мощная функция, Вспышка заливки, может заполнить ячейки на основе указанных выше ячеек, которые вы ввели автоматически.
Выберите ячейку рядом с первыми исходными данными, вручную введите первые данные с текстом префикса, как показано ниже:
Затем в ячейке ниже продолжайте вводить вторые данные с текстом префикса, во время ввода будет отображаться список серого цвета, нажмите Enter чтобы разрешить Flash Fill автоматически заполнять данные.
Если список предварительного просмотра не создается, перейдите на вкладку Главная и нажмите Заполнять > Вспышка заливки чтобы запустить его вручную.
1.3 Добавить в начало ячеек с помощью кода VBA
Если вы знакомы с кодом VBA, здесь представлен код VBA для добавления текста в начало каждой ячейки в диапазоне.
1. Выберите диапазон ячеек, в который вы хотите добавить текст префикса, затем нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Затем во всплывающем окне нажмите Вставить > Модули чтобы вставить пустой новый модуль.
3. Скопируйте и вставьте ниже код VBA в новый модуль.
VBA: добавить в начало ячеек
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub| Внимание: в скрипте кода, Iphone это текст, который вы хотите добавить в начало выбранных ячеек, измените его по своему усмотрению. |
4. Нажмите F5 ключ или щелкните Run кнопка 
в окне для активации кода VBA.
Теперь во все выделенные ячейки был добавлен текст «Iphone» в начале.
Помимо добавления текста в начало ячеек, добавление текста в конец ячеек также распространено. Здесь мы берем единицу добавления в конце каждой ячейки для примеров, как показано ниже:
2.1 Добавить в конец ячеек с помощью формулы
Здесь вы можете выбрать одну из трех следующих формул:
Формула 1 Оператор конкатенации "&"
Соедините несколько текстов вместе с помощью символа амперсанда «&».
Ячейка&"текст"
Формула2 СЦЕПИТЬ функцию
Функция СЦЕПИТЬ используется для объединения текстов.
СЦЕПИТЬ(ячейка,"текст")
Формула3 Функция CONCAT
Это новая функция, которая появляется только в Excel 2019, Office 365 и Excel онлайн.
СЦЕП(ячейка,"текст")
В общих формулах: ячейка — это ссылка на ячейку с текстом, к которому вы хотите добавить суффикс, а текст — это текст, который использовался для добавления в ячейку.
Используя приведенный выше пример, вы можете использовать формулы в строке формул следующим образом:
"&"
=B3&$E$3 or =B3&"кг"
СЦЕПИТЬ функция
= СЦЕПИТЬ (B3, $E$3) or =СЦЕПИТЬ(B3, "кг")
Функция CONCAT
=СЦЕП(B3, $E$3) or =СЦЕП(B3, "кг")
Нажмите Enter чтобы получить результат, затем перетащите маркер автозаполнения вниз, чтобы добавить текст в конец каждой ячейки диапазона B3:B6.
| Внимание: текст должен быть заключен в двойные кавычки, иначе формула возвращает значение ошибки #ИМЯ?. Если вы используете ссылку на ячейку для текста, не забудьте использовать абсолютную ссылку, вы можете нажать клавишу F4, чтобы изменить относительную ссылку на абсолютную ссылку. |
2.2 Добавить в конец ячеек с помощью Flash Fill
Если вы используете Excel 2013 или более поздние версии, новая мощная функция, Вспышка заливки, может заполнить ячейки на основе указанных выше ячеек, которые вы ввели автоматически.
Выберите ячейку рядом с первыми исходными данными, вручную введите первые данные с текстом суффикса, как показано ниже:
Затем активируйте ячейку под первым результатом, нажмите Данные > Вспышка заливки, все ячейки ниже, включая активную ячейку, будут заполнены автоматически.
2.3 Добавить в конец ячеек с помощью кода VBA
Вот код VBA, который может добавлять текст в конце каждой ячейки в диапазоне.
1. Выберите диапазон ячеек, в которые вы хотите добавить текст суффикса, затем нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Затем во всплывающем окне нажмите Вставить > Модули чтобы вставить пустой новый модуль.
3. Скопируйте и вставьте ниже код VBA в новый модуль.
VBA: добавить в конец ячеек
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub| Внимание: в скрипте кода, Kg это текст, который вы хотите добавить в конец выделенных ячеек, измените его по своему усмотрению. |
4. Нажмите F5 ключ или щелкните Run кнопка в окне для активации кода VBA.
Теперь в конце каждой ячейки добавлен текст «Кг».
Для большинства из вас легко добавить текст в начало или конец ячейки, но добавить текст в середину ячейки может быть довольно сложно. Возьмем пример, как показано ниже, добавив разделитель, например двоеточие: в конце второго символа каждой ячейки в диапазоне B3:B7.
3.1 Добавить после n-го символа строки по формуле
Вот четыре формулы, предназначенные для выполнения этой работы, выберите одну для использования:
Formula1 Объедините функции LEFT и RIGHT
ВЛЕВО(ячейка, n) & "текст" & ВПРАВО(ячейка, ДЛСТР(ячейка) -n)
Formula2 COMBINE CONCATENATE(CONCAT), RIGHT и LEN функции
СЦЕПИТЬ(ВЛЕВО(ячейка, n), "текст", ВПРАВО(ячейка, ДЛСТР(ячейка) -n))
Or
СЦЕП(ЛЕВАЯ(ячейка, n), "текст", ПРАВАЯ(ячейка, ДЛСТР(ячейка) -n))
Формула3 ЗАМЕНИТЬ функцию
ЗАМЕНИТЬ(ячейка, n+1, 0, "текст")
В общих формулах: ячейка — это ссылка на ячейку с текстом, который вы хотите добавить в середину, а текст — это текст, который использовался для добавления в ячейку, n — это число, определяющее, после какого символа в текстовой строке вы хотите добавить текст.
Для решения задачи, упомянутой выше, используйте следующие формулы:
Объедините функции ВЛЕВО и ВПРАВО
=ВЛЕВО(B3, 2) & ":" & ВПРАВО(B3, ДЛСТР(B3) -2) or =ВЛЕВО(B3, 2) & $E$3 & ВПРАВО(B3, ДЛСТР(B3) -2)
ОБЪЕДИНИТЬ СЦЕПИТЬ (СЦЕПИТЬ), ПРАВО и ДЛСТР функции
= СЦЕПИТЬ (ЛЕВО (B3, 2), ":", ПРАВО (B3, ДЛСТР (B3) -2)) or =СЦЕП (ЛЕВОЕ(B3, 2), ":", ПРАВОЕ(B3, ДЛСТР(B3) -2))
ЗАМЕНИТЬ функцию
=ЗАМЕНИТЬ(B3, 2+1, 0, ":") or =ЗАМЕНИТЬ(B3, 2+1, 0, $E$3)
Нажмите Enter чтобы получить результат, затем перетащите маркер автозаполнения вниз, чтобы добавить текст после второго символа каждой ячейки диапазона B3:B7.
| Внимание: текст должен быть заключен в двойные кавычки, иначе формула возвращает значение ошибки #ИМЯ?. Если вы используете ссылку на ячейку для текста, не забудьте использовать абсолютную ссылку, вы можете нажать клавишу F4, чтобы изменить относительную ссылку на абсолютную ссылку. |
3.2 Добавить после n-го символа строки с помощью Flash Fill
Если вы используете Excel 2013 или более поздние версии, Вспышка заливки, может заполнить ячейки на основе указанных выше ячеек, которые вы ввели автоматически.
Выберите ячейку рядом с первыми исходными данными, вручную введите первые данные с двоеточием после второго символа, как показано ниже:
Затем активируйте ячейку под первым результатом, нажмите Ctrl + E ключи для активации Вспышка заливки команда, все ячейки ниже, включая активную ячейку, были заполнены автоматически.
| Внимание: Если вы находитесь в системе MAC, нажмите клавиши Command + E. |
3.3 Добавить после n-го символа строки с помощью кода VBA
Код VBA также может выполнять эту работу.
1. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Затем во всплывающем окне нажмите Вставить > Модули чтобы вставить пустой новый модуль.
3. Скопируйте и вставьте ниже код VBA в новый модуль.
VBA: добавить в середину ячеек
Sub AddToMidduleOfString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
Next
End Sub| Внимание: в скрипте кода, 2 это число определяет позицию, после которой вы хотите добавить текст, : это текст, который вы хотите добавить, 3 это сумма 2 и длины текста, который вы добавляете. Возьмем другой пример, чтобы добавить «и» после первого символа строки «AB», сценарий должен быть Rng.Value = VBA.Left(Rng.Value, 1) и "и" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) |
4. Нажмите F5 ключ или щелкните Run кнопка в окне для активации кода VBA. Появится диалоговое окно для выбора ячеек для добавления текста.
5. Нажмите OK. Теперь после второго символа каждой ячейки в диапазоне B19:B23 добавлен текст «:».
4. Добавьте текст с помощью Kutools for Excel (добавьте символы в определенную позицию по мере необходимости)
Если вы устали от формул и VBA, вы можете попробовать мощный и удобный инструмент, Kutools for Excel, который может помочь вам с его Добавить текст функцию.
Эта функция «Добавить текст» может:
- Добавить текст перед первым символом
- Добавить текст после последнего символа
- Добавить текст в указанные позиции
- Расширение
Добавить текст перед заглавными буквами
Добавить текст перед строчными буквами
Добавить текст перед прописными/строчными буквами
Добавить текст перед числовыми символами
Нажмите, чтобы получить 30-дневную бесплатную пробную версию прямо сейчас.
Выберите ячейки, в которые вы хотите добавить текст, затем примените команду «Добавить текст», щелкнув Кутулс > Текст > Добавить текст.
4.1 Добавить текст перед первым символом или после последнего символа
В Добавить текст введите текст, который вы хотите добавить в ячейки в Текст текстовое поле, затем проверьте Перед первым персонажем в Позиция .
Нажмите Применить or Ok чтобы завершить добавление.
Чтобы добавить текст после последнего символа, введите текст, который вы хотите добавить в ячейки в Текст текстовое поле, затем проверьте После последнего символа в Позиция .
Нажмите Применить or Ok чтобы завершить добавление.
4.2 Добавить текст в указанные позиции
Иногда вам может понадобиться добавить текст в середину ячейки или добавить текст в несколько позиций ячейки. Предположим, добавлен разделитель «-» после третьей и седьмой цифр социального номера, как показано ниже:
В Добавить текст диалоговое окно, введите текст в Текст текстовое поле и отметьте Указывать вариант, затем введите позиции, используя запятую для разделения в текстовое поле, а затем нажмите Ok or Применить.
4.3 Расширение утилиты «Добавить текст»
Помимо добавления текста в нормальные позиции (начало, конец и указанная позиция), Добавить текст утилита также поддерживает добавление текста
- Перед заглавными буквами
- Перед строчными буквами
- Перед прописными/строчными буквами
- Перед числовыми символами
В Добавить текст диалоговое окно, введите текст в Текст текстовое поле и отметьте Только добавить к вариант, затем щелкните раскрывающееся меню ниже, чтобы выбрать операцию по своему усмотрению.
В этой части представлены формулы для добавления текста до или после первого появившегося определенного текста в Excel.
5.1 Добавить текст перед первым конкретным текстом
Например, вы хотите добавить текст «(продажа)» перед первым текстом «цена» в ячейке, как показано ниже:
В Excel эту задачу могут решить функции ЗАМЕНИТЬ и ПОДСТАВИТЬ.
ЗАМЕНИТЬ функцию
ЗАМЕНИТЬ(ячейка,НАЙТИ("найти_текст",ячейка),0,"добавить_текст")
ЗАМЕНА функция
ПОДСТАВИТЬ(ячейка,"найти_текст","заменить_текст",1)
В этом случае, пожалуйста, используйте приведенные выше формулы следующим образом:
=ЗАМЕНИТЬ(B4,НАЙТИ("цена",B4),0,"(продажа)")
Or
=ПОДСТАВИТЬ(B4,"цена","(продажная)цена",1)
Аргументы формулы в этом случае
Ячейка: B4,
Find_text: цена,
Add_text: (продажа),
Replace_text:(распродажа)цена.
Нажмите Enter чтобы получить первый результат добавления, затем перетащите маркер автозаполнения по ячейкам, которым нужна эта формула.
5.2 Добавить текст после первого определенного текста
Например, вы хотите добавить символ валюты «$» после первого двоеточия «:» в ячейке, как показано ниже:
В Excel эту задачу могут решить функции ЗАМЕНИТЬ и ПОДСТАВИТЬ.
ЗАМЕНИТЬ функцию
ЗАМЕНИТЬ(ячейка,НАЙТИ("найти_текст",ячейка),найти_длину_текста,"заменить_текст")
ЗАМЕНА функция
ПОДСТАВИТЬ(ячейка,"найти_текст","заменить_текст")
В этом случае, пожалуйста, используйте приведенные выше формулы следующим образом:
=ЗАМЕНИТЬ(B12,НАЙТИ(":",B12),1,":$")
Or
=ПОДСТАВИТЬ(B12,":",":$")
Аргументы формулы в этом случае
Ячейка: B12,
Найти_текст: :,
Заменить_текст::$.
Find_text_length:1
Нажмите Enter чтобы получить первый результат добавления, затем перетащите маркер автозаполнения по ячейкам, которым нужна эта формула.
В этой части руководства представлены три различных метода (формула, поиск и замена, VBA), которые помогут вам добавлять символы до или после каждого слова ячейки.
| Добавляйте символы перед каждым словом |
 |
| Добавляйте символы после каждого слова |
 |
6.1 Добавить символ(ы) до или после каждого слова по формуле
Для решения этой задачи можно использовать функцию ПОДСТАВИТЬ, общие формулы такие:
Добавлять перед каждым словом
"символ"&ПОДСТАВИТЬ(строка, " "," символ")
Добавлять после каждого слова
ПОДСТАВИТЬ(строка," ","символ")&"символ"
Предположим, вы добавляете «+» перед каждым словом в списке B3:B6, используйте следующую формулу:
="+"&ПОДСТАВИТЬ(B3, " "," +")
Нажмите Enter чтобы получить первый результат, затем перетащите маркер автозаполнения вниз, чтобы получить все результаты.
Если добавить ($) после каждого слова списка B11:B14, используйте следующую формулу:
=ПОДСТАВИТЬ(B11," ","($) ")&"($)"
Нажмите Enter чтобы получить первый результат, затем перетащите маркер автозаполнения вниз, чтобы получить все результаты.
6.2 Добавляйте символы до или после каждого слова с помощью функции «Найти и заменить».
Если вы хотите добавить символы перед каждым словом, исключая первое, или добавить символы после каждого слова, исключая последнее, как показано на снимке экрана ниже, встроенный в Excel Найти и заменить утилита может справиться с этой задачей.
Добавлять перед каждым словом, исключая первое
Добавлять после каждого слова, исключая последнее
1. Выберите ячейки, в которые вы хотите добавить символы до или после каждого слова, затем нажмите Ctrl + H ключи для включения Найти и заменить Диалог.
2. Введите пробел в Найти то, что текстовое поле, затем введите новые символы с пробелом в Заменить текстовое поле и, наконец, щелкните Заменить все .
| Эксплуатация | Общие | Пример |
| Добавляйте символы перед каждым словом | Добавить новые символы после пробела | Добавлять (продажа) перед каждым словом |
| Эксплуатация | Общие | Пример |
| Добавляйте символы после каждого слова | Новые символы с пробелом | Добавить - после каждого слова |
Здесь представлены два кода VBA для добавления символов до или после каждого слова. Запустите код, выполнив следующие шаги.
1. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Во всплывающем окне нажмите Вставить > Модули чтобы вставить новый пустой модуль.
3. Скопируйте и вставьте приведенный ниже код VBA в модуль.
Добавлять перед каждым словом
Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = xInStr & Trim(xStr)
Else
xValue = xValue & " " & xInStr & Trim(xStr)
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End SubДобавлять после каждого слова
Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = Trim(xStr) & xInStr
Else
xValue = xValue & " " & Trim(xStr) & xInStr
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub4. Нажмите F5 ключ для запуска кода (или вы можете нажать Run кнопка ), появится диалоговое окно с просьбой выбрать непрерывные ячейки для работы, щелкните OK.
5. Во втором всплывающем диалоговом окне введите символы, которые вы хотите добавить, нажмите OK.
Затем символы будут добавлены в начале или в конце каждого слова.
Иногда вам может понадобиться добавить текст между каждым символом. Здесь, в этой части, перечислены два сценария: один — добавить текст между каждым символом, другой — добавить пробел между каждым числом.
7.1 Добавьте текст между каждым символом/цифрой с помощью определяемой пользователем функции
Чтобы добавить символы между каждым символом в строке, вам может помочь пользовательская функция.
В этом случае мы добавляем пробел между каждым символом.
1. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Во всплывающем окне нажмите Вставить > Модули чтобы вставить новый пустой модуль.
3. Скопируйте и вставьте приведенный ниже код VBA в модуль.
Добавить текст между символами
Function AddText(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
AddText = AddText & Mid(Str, i, 1) & " "
Next i
AddSpace = Trim(AddSpace)
End Function4. Сохраните код и закройте окно, чтобы вернуться к рабочему листу, затем введите приведенную ниже формулу в ячейку, в которую вы хотите поместить результат добавления.
=Добавитьтекст(B3)
B3 — это ячейка, содержащая строку, в которую вы хотите добавить пробел между символами.
5. Нажмите Enter чтобы получить результат, перетащите дескриптор автозаполнения по ячейкам, чтобы получить другие результаты, которые вам нужны.
|
Внимание: 1) В коде VBA вы можете изменить "" на другие тексты, как вам нужно, предположим, изменить его на "-" добавить - между символами. 2) Код будет добавлять новый текст после каждого символа. Вы можете удалить последний добавленный текст, если он вам не нужен, используя приведенную ниже формулу. Для получения более подробной информации о формуле, пожалуйста, посетите: Как удалить первые или последние N символов из ячейки или строки в Excэль? ВЛЕВО(ячейка,ДЛСТР(ячейка)-длина_текста) |
7.2 Добавьте пробел между каждым числом с помощью формулы
Если вы хотите добавить пробел между цифрами строки, которая является числовым значением, вы можете использовать функцию ТЕКСТ.
| Внимание: числа диапазона, между которыми вы хотите добавить пробел, должны быть одинаковой длины, иначе некоторые результаты могут быть неверными. |
Предположим, что это список 8-значных чисел в диапазоне B10:B12, выберите ячейку, в которую будет помещен результат, введите ниже формулу:
=ТЕКСТ(B10;"# # # # # # # #")
Нажмите Enter , затем перетащите маркер автозаполнения на другие ячейки.
Если длина чисел равна 5, формула будет изменена как =ТЕКСТ(B10;"# # # # #").
Если вы хотите добавить символ (символы) между каждым словом, предположив добавить пробел между именем, отчеством и фамилией, как показано на снимке экрана ниже, вы можете использовать определяемую пользователем функцию.
1. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Во всплывающем окне нажмите Вставить > Модули чтобы вставить новый пустой модуль.
3. Скопируйте и вставьте приведенный ниже код VBA в модуль.
Добавляйте символы между словами
Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function4. Сохраните код и закройте окно, чтобы вернуться к рабочему листу, затем введите приведенную ниже формулу в ячейку, в которую вы хотите поместить результат добавления.
=Добавитьсимволов(B3)
B3 — это ячейка, содержащая строку, в которую вы хотите добавить пробел между словами.
5. Нажмите Enter чтобы получить результат, перетащите дескриптор автозаполнения по ячейкам, чтобы получить другие результаты, которые вам нужны.
| Внимание: в коде VBA вы можете изменить "" на другие тексты, как вам нужно, предположим, изменить его на "-" добавить - между словами. |
Чтобы добавить определенные символы между текстом и цифрами, как показано на снимке экрана ниже, здесь представлены два метода.
9.1 Добавить символ между текстом и цифрой с помощью формулы
Если текст находится перед числами, общая формула
TRIM(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},string&"1234567890")),0,"-"))
Используя приведенный выше случай в качестве примера, используйте следующую формулу:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
Нажмите Enter чтобы получить первый результат, затем перетащите маркер автозаполнения на другие ячейки, чтобы заполнить эту формулу.
Если цифры стоят перед текстом, общая формула
ВЛЕВО(строка,СУММ(ДЛСТР(строка)-ДЛСТР(ПОДСТАВИТЬ(строка,{0,1,2,3,4,5,6,7,8,9},""))))&"."&ПРАВО (строка,ДЛСТР(B13)-СУММ(ДЛСТР(строка)-ДЛСТР(ПОДСТАВИТЬ(строка, {0,1,2,3,4,5,6,7,8,9}, ""))))
Используя приведенный выше случай в качестве примера, используйте следующую формулу:
=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))
Нажмите Enter чтобы получить первый результат, затем перетащите маркер автозаполнения на другие ячейки, чтобы заполнить эту формулу.
9.2 Добавляйте символы между текстом и цифрами с помощью Flash Fill
Если вы используете Excel 2013 или более поздние версии, Вспышка заливки также может помочь вам добавить символы между текстом и цифрами.
Рядом с исходными данными введите новые данные, в которые были добавлены символы между текстом и цифрами. Затем нажмите клавишу Enter, чтобы перейти к следующей ячейке первого результата.
И нажмите Ctrl + E клавиши, чтобы включить мгновенное заполнение.
Расширение
В этом руководстве также перечислены некоторые сценарии добавления текста, которые мы можем встретить в нашей повседневной жизни или на работе.
Иногда вам нужно добавить разделители, такие как тире, к серии телефонных номеров или номеров социальных сетей, как показано на снимке экрана ниже. Ввод вручную будет предпринят, если необходимо добавить сотни цифр. В этой части представлены три хитрости, как быстро справиться с этой задачей.
10.1 Добавление тире к числам по формуле
Вот две формулы, с помощью которых можно быстро добавлять тире к числам. Чтобы добавить тире после третьего и шестого числа в ячейке B3, используйте следующую формулу:
ЗАМЕНИТЬ функцию
=ЗАМЕНИТЬ(ЗАМЕНИТЬ(B3,4,0,"-"),8,0,"-")
ТЕКСТ функция
=ТЕКСТ(B3,"???-???-???")
Нажмите Enter чтобы получить первый результат, затем перетащите маркер автозаполнения на другие ячейки.
|
Внимание: Вы можете изменить аргументы вышеприведенных формул по мере необходимости. Предположим, добавить "-" после второй, четвертой и шестой цифр можно использовать формулы как: =ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(B3,3,0,"-"),6,0,"-"),9,0,"-") =ТЕКСТ(B3;"??-??-??-???") |
10.2 Добавление тире к числам с помощью форматирования ячеек
Чтобы напрямую добавить тире к числам в исходных ячейках, вы можете использовать Формат ячеек функцию.
1. Выберите числа, к которым вы хотите добавить дефисы, затем нажмите Ctrl + 1 ключи для включения Формат ячеек Диалог.
2. в Формат ячеек диалог под Номер регистрации , выберите На заказ из Категории .
3. Затем в правом Тип раздел, тип ###-###-### в текстовое поле щелкните OK.
Теперь к выделенным числам добавлены прочерки.
10.3 Добавьте тире к номеру телефона, добавив текст Kutools for Excel
Если вы только что Kutools for Excel установленный в Excel, Добавить текст функция также может оказать вам услугу.
1. Выберите ячейки, содержащие числа, необходимые для добавления прочерков, нажмите Кутулс > Текст > Добавить текст.
2. в Добавить текст введите тире или другой разделитель в Текст текстовое поле, выберите Указывать , затем введите позиции, после которых вы хотите добавить тире, и разделите их запятыми в текстовое поле ниже.
3. Нажмите Ok или Применить. Затем к выбранным числам были добавлены прочерки.
Бесплатно скачать Добавить текст для 30-дневной пробной версии.
Предположим, что есть список чисел разной длины, вы хотите добавить начальные нули, чтобы они были одинаковой длины и выглядели аккуратно, как показано на снимке экрана ниже. Вот два метода, которые помогут вам справиться с заданием.
11.1 Добавление ведущих нулей в ячейки с помощью функции «Формат ячеек»
Вы можете использовать Формат ячеек функция для установки пользовательского формата для фиксации длины ячейки путем добавления начальных нулей.
1. Выберите ячейки, в которые вы хотите добавить ведущие нули, затем нажмите Ctrl + 1 ключи для включения Формат ячеек Диалог.
2. в Формат ячеек диалог под Номер регистрации , выберите На заказ из Категории .
3. Затем в правом Тип раздел, тип 0000 в текстовое поле (чтобы зафиксировать длину числа до 4 цифр, введите 0000, вы можете изменить ее на другую длину, например 5 цифр, введите 00000), щелкните OK.
Затем к числам были добавлены начальные нули и такой же длины.
| Внимание: если длина исходных данных превышает установленную длину, будут отображаться исходные данные без начальных нулей. |
11.2 Добавление ведущих нулей к ячейкам с формулой
Если вы не хотите изменять исходные данные, вы можете использовать формулу для добавления ведущих нулей к числам в других местах.
Вот три функции могут помочь вам.
Формула1 ТЕКСТ функция
ТЕКСТ(число,"00...")
Формула2 ПРАВАЯ функция
ВПРАВО("00…"&число,длина)
Базовая функция Formula3
ОСНОВАНИЕ(число,10,длина)
Количество нулей в формуле равно длине числа.
Здесь вы устанавливаете 4 цифры в качестве длины чисел, пожалуйста, используйте формулы, как показано ниже:
= ТЕКСТ (B10; «0000»)
=ВПРАВО("0000"&B10,4)
= ОСНОВА (B10,10,4)
Нажмите Enter и перетащите маркер автозаполнения вниз.
| Внимание: если длина исходных данных превышает установленную длину, будут отображаться исходные данные без начальных нулей. |
Если вы хотите добавить конечные нули к числам для создания фиксированной длины, предположим, добавив конечные нули к числам в ячейке B3: B7, чтобы сделать их 5-значными, как показано на снимке экрана ниже, вы можете применить формулу для работы с заданием .
Функция ПОВТОР
число&REPT("0",длина-LEN(число))
В формуле аргумент «число» представляет собой число или ссылку на ячейку, к которой вы хотите добавить конечные нули, а аргумент «длина» — это фиксированную длину, которую вы хотите.
Пожалуйста, используйте следующую формулу:
=B3&ПОВТОР("0",5-ДЛСТР(B3))
Нажмите Enter и перетащите дескриптор автозаполнения вниз к ячейкам, которым нужна эта формула.
Если вы хотите экспортировать или копировать данные с рабочего листа в блокнот, тексты могут быть размещены неаккуратно, поскольку значения ячеек имеют разную длину, чтобы они выглядели аккуратно, как показано на снимке экрана ниже, вам необходимо добавить завершающий пробел.
Для решения этой задачи функция REPT может оказать вам услугу.
ВЛЕВО(текст и ПОВТОР(" ",max_length),max_length)
В формуле аргумент «текст» — это текст или ссылка на ячейку, к которой вы хотите добавить завершающий пробел, а аргумент «max_length» — это фиксированная длина, которую вы хотите сделать текстами, которая должна быть длиннее или равна максимальная длина используемых текстов.
Чтобы добавить завершающий пробел к текстам в ячейке B3:C6, используйте следующую формулу:
=ВЛЕВО(B3 & ПОВТОР(" ",10),10)
Нажмите Enter , затем перетащите дескриптор автозаполнения во все ячейки, необходимые для этой формулы.
В этом случае, поскольку самый длинный из используемых текстов состоит из 9 символов, мы используем здесь 10.
Иногда вам нужно добавить кавычки или скобки вокруг текста или чисел в ячейках, как показано на скриншоте ниже, за исключением ручного ввода по одному, вот два метода в Excel, которые могут быстро решить эту проблему.
14.1 Добавление кавычек/скобок по формату ячеек
Если вы хотите добавить кавычки вокруг текста в исходных данных, вам может помочь функция «Формат ячеек» в Excel.
1. Выберите ячейки, в которые вы хотите добавить кавычки, нажмите Ctrl + 1 ключи для включения Формат ячеек Диалог.
2. в Формат ячеек диалога под Номер регистрации , выберите На заказ из списка Категории, затем перейдите в правый раздел, чтобы ввести "''" @ "''" в Тип текстовое окно. Нажмите OK.
Текст в выбранных ячейках был заключен в кавычки.
Если вы хотите добавить скобки вокруг текста, в текстовом поле «Тип» диалогового окна «Формат ячеек» используйте (@).
14.2 Добавьте кавычки/скобки вокруг формул
Формулы также можно использовать для добавления кавычек к тексту в других ячейках.
Использование и разъем
""""&текст&""""
Or
символ(34)&текст&символ(34)
В этом случае текст в ячейке B11, пожалуйста, используйте следующие формулы:
=""""&B11&""""
Or
=знак(34)&B11&символ(34)
Нажмите Enter и перетащите маркер автозаполнения вниз, чтобы заполнить ячейки.
Если вы хотите добавить скобки вокруг текста, используя формулу как "("&текст&")".
14.3 Добавление кавычек/скобок с помощью VBA
Если вам нужен код VBA для решения этой задачи, вот VBA.
1. Нажмите другой + F11 ключи для включения Microsoft Visual Basic для приложений окно.
2. Затем во всплывающем окне нажмите Вставить > Модули чтобы вставить пустой новый модуль.
3. Скопируйте и вставьте ниже код VBA в новый модуль.
VBA: добавьте кавычки вокруг текстов
Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub| Внимание: в скрипте кода, """" & Rng.Value & """" указывает на добавление "" вокруг текста, если вы хотите добавить скобки () вокруг текста, измените его на "(" & Rng.Value & ")". |
4. Нажмите F5 ключ или щелкните Run кнопка в окне для активации кода VBA. Появится диалоговое окно для выбора ячеек для добавления кавычек.
5. Нажмите OK. Теперь вокруг текста в выделенных ячейках добавлены кавычки.
Иногда, чтобы помочь другим пользователям лучше понять данные, вам может потребоваться добавить текст в результаты формулы, как показано ниже. Чтобы включить текст в формулу, вы можете использовать кавычки, окружающие текст, и добавить соединитель &, чтобы объединить текст и формулу вместе.
Случай 1 добавить текст перед формулой
"Сегодня "&ТЕКСТ(СЕГОДНЯ(),"дддд, мммм дд")
Случай 2 добавить текст после формула
ТЕКСТ(СЕЙЧАС(),"ЧЧ:ММ:СС")&" - текущее время."
Случай 3 добавить тексты с двух сторон формулы
"Сегодня продано &data&" кг."
Дополнительные учебники по Excel: |
|
Объединение нескольких рабочих книг/листов в одну Разделить текст, число и ячейки даты (разделить на несколько столбцов) Объедините содержимое нескольких ячеек без потери данных в Excel Сравните два столбца на совпадения и различия в Excel |
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
