Ինչպե՞ս տեղափոխել վերջին բառը հաջորդ հարակից բջիջ:
Ենթադրելով, ես ունեմ տեքստային տողերի ցուցակ, որոնք ուզում եմ տեղափոխել վերջին բառը հաջորդ հարևան բջիջին, ինչպես ցույց է տրված հետևյալ նկարը. Իհարկե, դրանք կարող եք հատել և կպցնել մեկ առ մեկ, բայց կա՞ն արագ տեղափոխման եղանակներ դրանք միանգամից հաջորդ վանդակում 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: