Note: The other languages of the website are Google-translated. Back to English

Як вставити пробіли перед великими літерами в Excel?

Припустимо, у вас є список текстових рядків, у яких випадково видаляються всі пробіли між словами, наприклад: InsertBlankRowsBetweenData, і тепер ви хочете додати пробіли перед кожною літерою з великих літер, щоб розділити слова як Вставте порожні рядки між даними. Як можна швидко додати пробіли перед великими літерами, а не пробіли один за одним в Excel?


Вставте пробіли перед великими літерами за допомогою функції, визначеної користувачем

На жаль, у вас немає прямого способу додавати пробіли перед великими літерами в Excel, але для вирішення цього завдання ви можете створити визначену користувачем функцію.

1. Активуйте свій аркуш, який містить текстові рядки, які потрібно додати пробіли.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: вставляйте пробіли перед великими літерами

Function AddSpaces(pValue As String) As String
'Update 20140723
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
AddSpaces = xOut
End Function

4. Потім збережіть і закрийте цей код, поверніться до аркуша та введіть цю формулу = додає простори (A1) в порожню комірку, крім ваших даних, див. знімок екрана:
doc-add-пробіли-перед-великим регістром-1

5. А потім перетягніть маркер заповнення через діапазон, який ви хочете містити в цій формулі, ви отримаєте пробіли, вставлені перед кожною великою літерою.
doc-add-пробіли-перед-великим регістром-1

Легко видаляйте початкові / кінцеві / зайві пробіли в клітинках

Kutools для Excel Видалити пробіли Утиліта дозволяє користувачам Excel швидко видаляти весь провідний простір, пробіл, зайві пробіли або всі пробіли з вибраних комірок. Повнофункціональна безкоштовна пробна версія 30 днів!
оголошення видалити простір 1

Вставте пробіли перед великими літерами з кодом VBA

Ось ще один код VBA може зробити вам послугу, будь ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: вставляйте пробіли перед великими літерами

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 для виконання цього коду, з'явиться вікно запиту, яке дозволить вам вибрати діапазон даних, який ви хочете використовувати.
doc-add-пробіли-перед-великим регістром-1

4. А потім клацніть OK щоб закрити це поле підказки, пробіли були вставлені відразу перед великими літерами, див. знімок екрана:
doc-add-пробіли-перед-великим регістром-1


Вставте пробіл перед кожною великою літерою за допомогою Kutools для Excel

Kutools для Excel додати текст Утиліта може допомогти вам обійти макроси VBA та легко вставити пробіл перед кожною великою літерою в Excel.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. Виберіть діапазон, куди ви вставите пробіл перед великими літерами, і натисніть на Кутулс > текст > додати текст. Дивіться знімок екрана:

2. У діалоговому вікні Додати текст введіть пробіл у полі текст встановіть прапорець Додавати лише до опції і виберіть Перша буква - велика від Додавати лише до випадаючий список.

3. Натисніть Ok кнопка, щоб вставити пробіл перед кожною великою літерою, як показано на наступному знімку екрана:
doc додати пробіли перед великими літерами 7

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функціональна безкоштовна пробна версія 30 днів, кредитна картка не потрібна! Get It Now

примітки: Цей метод також додасть пробіл на початку комірок, якщо перша буква - велика. Ви можете подати заявку Кутулс > текст > Видалити пробіли щоб видалити всі пробіли з вибраних комірок.


Пов'язана стаття:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Мені потрібна допомога в Excel, я хочу знайти великі літери в клітинці. наприклад: Sagar Paul MBA 16:04 я хочу, щоб MBA було виділено
Цей коментар був мінімізований модератором на сайті
Сподіваюся, ви зможете побачити це і спробувати. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Every xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Text Якщо Asc(xChar) > 64 І Asc(xChar) < 91 Тоді xCell.Characters(i, 1).Font.Color = vbRed End Якщо Next Next End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, ваш код працює фантастично. Чи знаєте ви, як адаптувати код 20140723 для роботи на кількох аркушах? Я хотів би додати пробіли між великими літерами в усій книзі. Спасибі!
Цей коментар був мінімізований модератором на сайті
Привіт

Спочатку дякую за приклад коду та пояснення. Це дуже добре працює для мого випадку.

У мене є лише 1 проблема, деякі з рядків містять слова, наприклад URL, які не слід розділяти.
Чи бачите ви спосіб, за винятком, наприклад, "URL" від додавання пробілів?

Було б дуже добре, якби ви могли допомогти. Я вже пробував деякий час, але я не знаю, як це вирішити..


З найкращими побажаннями
Luca
Цей коментар був мінімізований модератором на сайті
привіт,
Дякую за коментар і пораду. Я надіслав вашу пропозицію команді проекту Kutools, я впевнений, що вони незабаром покращать її.
Цей коментар був мінімізований модератором на сайті
Знайшли рішення?
Цей коментар був мінімізований модератором на сайті
привіт, я хочу запитати вас, чи знайшли ви рішення для свого випадку, якщо ви знайшли рішення, будь ласка, надайте мені це
Цей коментар був мінімізований модератором на сайті
Ця функція обробляє дві проблеми, які дане рішення не охоплює:
1. текст не англійською мовою (з діакритичними знаками)
2. послідовні великі літери, після яких не повинно бути пробілів

` Приватна функція AddSpaces(sText As String)As String
' Вставляє пробіл безпосередньо перед великою літерою, за винятком випадків, коли послідовні символи є великими.
' Останнє оновлення: 2022
'
Dim sRet як рядок, i як ціле число, sChar як рядок, bPrevWasUCase як логічне значення

sRet = Ліворуч (sText, 1)
Для i = 2 To Len(sText)
sChar = Mid(sText, i, 1)
Якщо sChar = UCase(sChar), а не bPrevWasUCase, тоді
sRet = sRet & " " & sChar
bPrevWasUCase = True
Ще
sRet = sRet & sChar
bPrevWasUCase = False
End If
Далі я

AddSpaces= sRet
Кінцева функція`
Цей коментар був мінімізований модератором на сайті
Привіт друже,

Дякуємо за вашу частку. Я спробував ваш код VBA, але він не працює. Наш код VBA може обробляти неанглійський текст. Я перевірив текст французькою мовою, і перед великими літерами успішно вставлено пробіли.

З повагою,
Менді
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця