Як перенести останнє слово в наступну сусідню комірку?
Припустимо, у мене є список текстових рядків, якими я хочу перенести останнє слово до наступної сусідньої комірки, як показано на наступному скріншоті, звичайно, ви можете вирізати та вставити їх по одному, але, чи є для нас швидкі способи переміщення їх відразу до наступної комірки в Excel?
Перемістити останнє слово до наступної сусідньої комірки з кодом VBA
Витяг останнього слова до наступної сусідньої комірки з формулою
Перемістити останнє слово до наступної сусідньої комірки з кодом VBA
Щоб вирізати та перемістити останнє слово з однієї комірки в наступну сусідню комірку, застосуйте такий код VBA:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Перемістити останнє слово до наступної сусідньої комірки:
Sub splitlastword()
Dim xCell As Range
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
Exit Sub
End If
For Each xCell In xRg
xStr = Trim(xCell.Value)
xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
xCell.Value = Left(xStr, InStrRev(xStr, " "))
Next
End Sub
3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір текстових комірок, з яких потрібно перенести останнє слово, див. знімок екрана:
4. А потім клацніть OK , останні слова у вибраних клітинках були негайно переміщені до наступних сусідніх комірок, див. знімок екрана:
Витяг останнього слова до наступної сусідньої комірки з формулою
Якщо вам просто потрібно витягти останні слова з текстових рядків, не рухаючи їх, наступна формула може зробити вам послугу.
Введіть цю формулу:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) у порожню комірку поруч із текстовою коміркою, а потім перетягніть маркер заповнення вниз до комірок, для яких потрібно витягти останнє слово, усі останні слова були витягнуті з текстових рядків без переміщення вихідних. Дивіться знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!