Как переместить последнее слово в следующую соседнюю ячейку?
Предположим, у меня есть список текстовых строк, последнее слово которых я хочу переместить в следующую соседнюю ячейку, как показано на следующем снимке экрана. Конечно, вы можете вырезать и вставлять их по одной, но есть ли какие-нибудь быстрые способы переместить их сразу в следующую ячейку в Excel?
Переместить последнее слово в следующую соседнюю ячейку с кодом VBA
Извлечь последнее слово в следующую соседнюю ячейку с формулой
Переместить последнее слово в следующую соседнюю ячейку с кодом VBA
Чтобы вырезать и переместить последнее слово из одной ячейки в следующую соседнюю ячейку, примените следующий код VBA:
1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!