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

Як змінити порядок текстових рядків або слів у Excel?

Коли ви використовуєте робочий аркуш Excel, як змінити текстовий рядок чи порядок слів у Excel? Наприклад, ви хочете змінити "Excel є корисним інструментом для нас"Кому"su rof loot lufesu a si lecxE". Або іноді ви можете змінити порядок слів, наприклад "Excel, Word, PowerPoint, OneNote"Кому"OneNote, PowerPoint, Word, Excel". Зазвичай це дещо важко вирішити цю проблему. Будь ласка, зверніть увагу на такі методи:

Зворотний текстовий рядок із визначеною користувачем функцією

Зворотний порядок слів, відокремлений певним роздільником з кодом VBA

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


стрілка синя права міхур Зворотний текстовий рядок із визначеною користувачем функцією

Припустимо, у вас є ряд текстових рядків, які ви хочете змінити, наприклад "додати провідні нулі в Excel"Кому"lecxE ni sorez gnidael dda". Ви можете змінити текст наступним чином:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

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

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. А потім збережіть і закрийте цей код, поверніться до робочого аркуша та введіть цю формулу: = реверс (A2) в пусту клітинку, щоб помістити результат, див. знімок екрана:

4. Потім перетягніть маркер заповнення вниз, щоб скопіювати цю формулу, і текст у клітинках буде відразу шанований, див. Знімок екрана:


стрілка синя права міхур Зворотний порядок слів, відокремлений певним роздільником з кодом VBA

Якщо у вас є список слів комірок, які розділяються комами, як це “вчитель, лікар, студент, робітник, водій", І ви хочете змінити порядок слів таким чином"драйв, робітник, студент, лікар, учитель". Ви також можете використовувати follow VBA для її вирішення.

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

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

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3. Потім натисніть F5 клавіша, відобразиться діалогове вікно, виберіть діапазон для роботи. Дивіться знімок екрана:

4. А потім натисніть Ok, вискакує інше діалогове вікно, щоб вказати роздільник, на основі якого потрібно змінити слова, див. знімок екрана:

5. Потім натисніть OK, і ви можете побачити, як обрані слова перевернуті, див. скріншоти:


стрілка синя права міхур Змінюйте текстовий рядок або порядок слів за допомогою Kutools для Excel швидко і легко

повне г, повне г,, показали, від, номер, XNUMX Kutools для ExcelАвтора Зворотний порядок тексту може допомогти вам швидко і зручно змінити різні текстові рядки. Він може виконувати такі операції:

Зверніть текст праворуч ліворуч, наприклад “натисніть кілька слів"Кому"sdrou emos pat"

Зворотний текст відокремлюється пробілом або іншими специфічними символами, наприклад, “яблуко апельсин виноград"Кому"виноградне апельсинове яблуко"

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів

Зворотний текст справа наліво:

1. Виберіть діапазон, який потрібно змінити.

2. Клацання Кутулс > Текстові інструменти > Зворотний порядок тексту, див. скріншот:

3, в Зворотній текст діалоговому вікні, виберіть відповідний параметр з сепаратор які відповідають значенням комірок. І ви можете переглянути результати з Панель попереднього перегляду. Дивіться знімок екрана:

 Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Зворотний текст розділяються пробілом або іншими конкретними символами:

Ця функція також може допомогти вам змінити текстові рядки, розділені певними символами.

1. Виділіть комірки та застосуйте цю утиліту, клацнувши Кутулс > текст > Зворотний порядок тексту.

2. В Зворотній текст діалоговому вікні, виберіть розділювач, який відокремлює значення комірок, на основі яких ви хочете змінити слова, див. знімок екрана:

3. Потім натисніть Ok or Застосовувати, слова в клітинках відразу змінилися. Дивіться скріншоти:

примітки: Перевірка Пропустити нетекстовий текст клітинки, щоб запобігти зворотному використанню чисел у вибраному діапазоні.

Щоб дізнатись більше про цю функцію, відвідайте Зворотний порядок тексту.

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


стрілка синя права міхур Демонстрація: Зворотний текстовий рядок на основі конкретного роздільника за допомогою Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

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

Як перегорнути ім’я та прізвище в клітинках у Excel?


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці

 

Коментарі (19)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Це абсурд. Так багато коду, щоб виконати лише просте завдання перевернути рядок? :o До модуля потрібно додати лише 3-рядкову функцію, як показано нижче: Функція strrev(strValue As String) strrev = StrReverse(strValue) End Function Тепер формулу =strrev(A1) можна використовувати на аркуші Excel. Це працює, оскільки StrReverse є вбудованою функцією VBA. :D
Цей коментар був мінімізований модератором на сайті
Ще одна... Функція InvertText(str As String) 'Від Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Цей коментар був мінімізований модератором на сайті
Вибачте за невелике редагування Функція InvertText(str As String) 'Від Faseeh Muhammad Dim curr As String Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m Inverttext Кінцева функція
Цей коментар був мінімізований модератором на сайті
Привіт усім, я спробував цю функцію: Sub ReverseText() 'Updateby20131128 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("). xTitleId, WorkRng.Address, Type:=8) Для кожного Rng In WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" Для i = 1 До xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub, але коли я запустив його з числами, він видалив усі нулі. чи знаєте ви функцію, яка не видаляє нулі? Спасибі!!
Цей коментар був мінімізований модератором на сайті
Використовуйте код функції Vineet як модуль, а при використанні формули скористайтеся цією хитрістю: =strrev(""&D9&""), де D9 містить число. Код Vineet VBA для цієї функції: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Цей коментар був мінімізований модератором на сайті
Використовуйте це..введіть свій вхід в A1, тоді вихід буде в B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" Для i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Value = xoutput Range( "C1").Value = xlen Range("D1").Value = xvalue End Sub
Цей коментар був мінімізований модератором на сайті
Я помічаю, що багато людей заново винаходять колесо, виконуючи команди ліворуч і праворуч, VB6 підтримує зворотний СИНТАКСИС: strRevese("String") це все, що вам потрібно Dim stCellValue, i Для i = 1 до 5 Range("A" & X).Select stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Далі i Ще одним чудовим трюком було б попереднє заповнення нулями, якщо менше 10, але має бути в такому форматі часу, як "10:01:24", а не "10:1:24" intMins = 1 stMinutes = right("00" & intMins, 2) результат = 01
Цей коментар був мінімізований модератором на сайті
дякую це дуже корисно для мене :roll:
Цей коментар був мінімізований модератором на сайті
Привіт, я хотів би змінити дати. 20/11/2015 до 2015/11/20 Чи є допомога? Спасибі
Цей коментар був мінімізований модератором на сайті
Для дат все, що вам потрібно зробити, це змінити формат комірки на потрібний. Клацніть правою кнопкою миші клітинку, яку ви хочете повернути назад, і виберіть формат клітинки. Виберіть «Дата» в розділі категорій і змініть місце розташування, де б ви не були, на США чи Чехію чи іншу країну, яка може використовувати формат, який вас цікавить. Потім виберіть той, який відповідає вашим вимогам.
Цей коментар був мінімізований модератором на сайті
привіт усім, у мене немає Kutools, щоб змінити символ тексту, якщо хтось має ці інструменти і хоче мені допомогти, надішліть мені електронний лист, щоб надіслати вам мій файл для зворотного. моя електронна пошта: [b][b]mohanned1@windowslive.com[/b][/b] з повагою,
Цей коментар був мінімізований модератором на сайті
будь ласка, ознайомтеся з інструкціями, наданими веб-сайтом розширеного офісу, після пошуку в Google за допомогою зворотного рядка в Excel.
Цей коментар був мінімізований модератором на сайті
Можна змінити текст за допомогою формули, вона повторюється і обмежена тим, наскільки ви готові зайти, і залежно від кількості символів, яку Excel дозволить у рядку формул. Максимальна довжина тексту становитиме 30 символів і міститься в клітинці A1. Клітинка B1 буде читати: = TRIM(MID(LEFT(A1&REPT(" ",31),31),30,1)&MID(LEFT(A1&REPT(" ",31),31),29,1)&MID(LEFT( A1&REPT(" ",31),31),28,1)&СЕРЕДИНА(ЛІВО(A1&REPT(" ",31),31),27,1)&СЕРЕДИНА(ЛІВО(A1&REPT(" ",31),31),26,1 ,1)&MID(ЛІВ(A31&REPT(" ",31),25,1),1)&MID(LEFT(A31&REPT(" ",31),24,1),1)&MID(LEFT(A31&REPT(" ", 31),23,1),1)&СЕРЕДИНИЙ(ЛІВИЙ(A31&REPT(" ",31),22,1),1)&СЕРЕДИНИЙ(ЛІВИЙ(A31&REPT(" ",31),21,1),1)&СЕРЕДИНИЙ( ВЛІВО(A31&REPT(" ",31),20,1),1)&MID(LEFT(A31&REPT(" ",31),19,1),1)&MID(LEFT(A31&REPT(" ",31),18,1) ,1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),17,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),16,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(") ",31),15,1),1)&СЕРЕДИНИЙ(ЛІВ(A31&REPT(" ",31),14,1),1)&СЕРЕДИНИЙ(ЛІВ(A31&REPT(" ",31),13,1),1) &СРЕДНІЙ(ЛІВИЙ(A31&REPT(" ",31),12,1),1)&СЕРЕДИНИЙ(ЛІВИЙ(A31&REPT(" ",31),11,1),1)&СЕРІДНИЙ(ЛІВИЙ(A31&REPT(" ",31), 10,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),9,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),8,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT) (" ",31),7,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),6,1),1)&СЕРЕДИНИЙ(ЛІВО(A31&REPT(" ",31),5,1),1, 31)&СЕРЕДИНИЙ(ЛІВИЙ(A31&REPT(" ",4,1),1),31)&СЕРЕДИНИЙ(ЛІВ(A31&REPT(" ",3,1),1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(LEFT(A31&REPT(" ",1,1),1),1)) Результат: A1: Дункан Салліван-Шоу B31: wahS -navilluS nacnuD В основному ваш текст у клітинці A1 стає довжиною 1 символу, якщо додати достатньо пробілів, щоб увімкнути це, і кожен символ читається окремо справа наліво, доки ви не досягнете першого символу. Це призведе до того, що ваш перевернутий текст містить пробіли, які команда TRIM видаляє за вас. Щоб зменшити або збільшити довжину, потрібно видалити або додати кожен оператор. Число в операторі REPT має бути на XNUMX більше, ніж максимальна довжина, над якою ви працюєте, і ваш перший оператор MID почнеться з максимальної довжини, що зменшується до XNUMX.
Цей коментар був мінімізований модератором на сайті
Я виявив, що вихідний Sub видав результати з додатковим зітханням в кінці всіх виділених клітинок. Тому я виправив цю частину. Для i = UBound(strList) To 0 Крок -1 Якщо i > 0 Тоді xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Next Rng.Value = xOut
Цей коментар був мінімізований модератором на сайті
Чи можна розпочати реверс із певної довжини символів (для визначеної користувачем функції або коду VBA)? Наприклад, змініть значення клітинки A1, починаючи після того, як кількість символів дорівнює значенню B1. Отже, якщо B1 складається з 10 символів, зворотна позиція почнеться з символів 11+ в A1.
Цей коментар був мінімізований модератором на сайті
Дуже дякую. Цей код дуже допоміг моєму другові
Цей коментар був мінімізований модератором на сайті
дуже корисно, дякую за подробиці
Цей коментар був мінімізований модератором на сайті
Це справді велика допомога... Щиро дякую
Цей коментар був мінімізований модератором на сайті
Ik zoek een manier om een ​​heleboel woorden in 'rijm-fabetische volgorde' te zetten. Останні літери, які містяться в алфавітному волгорді. Чи потрібно enig Idee? VrGr Аманда
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL