Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вставити пробіли перед великими літерами в 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luca · 3 years ago
    Hello

    First thanks a lot for your code example and the explanations. It works very well for my case.

    I just have 1 Problem, some of the Strings contain words like URL, which should not be seperated.
    Do you see a way to except for example "URL" from adding spaces?

    Would be very nice if you can help. I tried already a while, but i dont know how to solve this..


    Best regards
    luca
    • To post as a guest, your comment is unpublished.
      falastin · 1 years ago
      hi wanna ask you if you found solution for you case, if you found solution please provide me with that
    • To post as a guest, your comment is unpublished.
      kellytte · 3 years ago
      Hi,
      Thanks for your comment and advice. I have sent your suggestion to the Kutools project team, I’m sure they’ll improve it soon.
      • To post as a guest, your comment is unpublished.
        John · 6 months ago
        Found a solution?
  • To post as a guest, your comment is unpublished.
    Excelsior · 4 years ago
    Hi there, your code works fantastic. Do you know how to adapt code 20140723 to work on multiple sheets? I would like to add spaces between capital letters throughout the entire workbook.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Paul · 5 years ago
    i need a help in excel
    i want to find Uppercase in a cell.
    for example: Sagar Paul MBA
    16:04
    i want MBA to be highlighted
    • To post as a guest, your comment is unpublished.
      Jay · 5 years ago
      I hope you can see it and give it a trial.

      Sub Test()
      Dim Rg As Range, xCell As Range
      Dim i As Long
      Dim xChar As String
      Set Rg = Application.Selection
      For Each xCell In Rg
      For i = 1 To xCell.Characters.Count
      xChar = xCell.Characters(i, 1).Text
      If Asc(xChar) > 64 And Asc(xChar) < 91 Then
      xCell.Characters(i, 1).Font.Color = vbRed
      End If
      Next
      Next
      End Sub