Как да преместя последната дума в следващата съседна клетка?
Да предположим, че имам списък с текстови низове, които искам да преместя последната дума в следващата съседна клетка, както е показано на следната екранна снимка, разбира се, можете да ги изрежете и поставите един по един, но има ли някакви бързи начини да се преместим ги към следващата клетка наведнъж в Excel?
Преместете последната дума в следващата съседна клетка с VBA код
Извлечете последната дума в следващата съседна клетка с формула
Преместете последната дума в следващата съседна клетка с VBA код
За да изрежете и преместите последната дума от една клетка в следващата съседна клетка, моля, приложете следния VBA код:
1. Задръжте надолу ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!