จะย้ายคำสุดท้ายไปยังเซลล์ถัดไปที่อยู่ติดกันได้อย่างไร?
สมมติว่าฉันมีรายการสตริงข้อความที่ฉันต้องการย้ายคำสุดท้ายไปยังเซลล์ที่อยู่ติดกันถัดไปตามภาพหน้าจอต่อไปนี้แน่นอนคุณสามารถตัดและวางทีละรายการ แต่มีวิธีที่รวดเร็วสำหรับเราในการย้าย ไปยังเซลล์ถัดไปพร้อมกันใน 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 นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!