京寵展信息指南
451
2025-04-02
如何將最后一個單詞移到下一個相鄰的單元格？
如何將最后一個單詞移到下一個相鄰的單元格？
假設(shè)，我有一個文本字符串列表，我想將最后一個單詞移動到下一個相鄰的單元格，如下圖所示，當(dāng)然，您可以一個個地剪切和粘貼它們，但是，有什么快速的方法可以讓我們移動它們一次在Excel中移到下一個單元格嗎？
使用VBA代碼將最后一個單詞移到下一個相鄰的單元格
使用公式將最后一個單詞提取到下一個相鄰的單元格
使用VBA代碼將最后一個單詞移到下一個相鄰的單元格
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！
要將最后一個單詞從一個單元格剪切并移動到下一個相鄰單元格，請應(yīng)用以下VBA代碼：
1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
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
Copy
3。 然后按 F5 鍵來運(yùn)行此代碼，并彈出一個提示框，提醒您選擇要從其移出最后一個單詞的文本單元格，請參見屏幕截圖：
4。 然后點(diǎn)擊 OK 按鈕，所選單元格中的最后一個單詞已立即移至下一個相鄰的右側(cè)單元格中，請參見屏幕截圖：
使用公式將最后一個單詞提取到下一個相鄰的單元格如果您只需要從文本字符串中提取最后一個單詞而不移動它們，則以下公式可以幫您一個忙。
請輸入以下公式：
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) 插入文本單元格旁邊的空白單元格，然后將填充手柄向下拖動到要提取最后一個單詞的單元格，所有最后一個單詞都已從文本字符串中提取出來，而沒有移動原始單詞。 看截圖：
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強(qiáng)大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費(fèi)下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
