Як переставити текст у комірці в Excel?
Припустимо, ви отримали електронну таблицю з довгими назвами списків, які всі форматуються як «Прізвище Ім'я», і тепер вам потрібно переставити всі імена на «Ім'я, Прізвище». Як цього досягти? Ця стаття представить три методи, які допоможуть вам вирішити проблему.
Переставити текст у клітинку за формулою
Впорядкуйте текст у комірці з кодом VBA
Швидко змінюйте порядок тексту в клітинці за допомогою Kutools для Excel
Переставити текст у клітинку за формулою
Наведена нижче формула може допомогти вам перевернути прізвище та ім’я в клітинку в Excel. Будь ласка, виконайте наступне.
1. Виділіть порожню комірку для виведення переставленого тексту, введіть в неї формулу нижче, а потім натисніть клавішу Enter.
= TRIM (MID (b2, SEARCH ("", b2) +1,250)) & "" & LEFT (b2, SEARCH ("", b2) -1)
примітки: у формулі B2 - клітинка містить ім'я, яке ви переставите. Будь ласка, змініть його відповідно до ваших потреб.
2. Продовжуйте вибирати комірку результату, перетягніть ручку заповнення вниз, щоб перегорнути всі імена, як показано на знімку екрана нижче.
Легко переставляйте текст у комірці в Excel:
Команда Зворотній текст корисність Kutools для Excel може допомогти вам легко поміняти текст навколо однієї комірки за допомогою певного роздільника в Excel. Дивіться знімок екрана нижче:
Завантажте та спробуйте! (30 днів безкоштовно)
Впорядкуйте текст у комірці з кодом VBA
Крім того, ви можете застосувати код VBA нижче, щоб відразу перегорнути всі імена у списку в Excel. Будь ласка, виконайте наступне.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код VAB у вікно модуля.
Код VBA: переставити текст у комірці
Sub RearrangeText()
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range
Dim LastRow As Long, i As Long
Dim strTxt As String, strFs As String
Dim strLs As String, N As Integer
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
For Each yRg In xRg
On Error Resume Next
strTxt = yRg.Value
Trim (strTxt)
N = InStr(strTxt, " ")
strLs = Left(strTxt, N - 1)
strFs = Right(strTxt, Len(strTxt) - N)
yRg.Value = strFs & " " & strLs
Next
End Sub
3. Тоді a Kutools для Excel з'явиться діалогове вікно, виберіть список імен, який потрібно переставити, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Потім усі "Прізвище Ім'я" у вибраному списку негайно перевертаються.
Швидко змінюйте порядок тексту в клітинці за допомогою Kutools для Excel
Цей розділ введе Зворотний порядок тексту корисність Kutools для Excel щоб допомогти вам переставити текст у клітинку.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
1. Виберіть список імен, який ви перегорнете “Прізвище Ім'я”, а потім натисніть Кутулс > текст > Зворотний порядок тексту. Дивіться знімок екрана:
2 В Зворотній текст діалоговому вікні, виберіть Простір а потім натисніть кнопку OK кнопку. Дивіться знімок екрана:
Потім усі імена у вибраному списку переставляються відразу.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Статті по темі:
- Як поміняти місцями або змінити день і місяць дати в Excel?
- Як поміняти місцями або змінити текст в одній комірці в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!