Bagaimana cara memindahkan kata terakhir ke sel yang berdekatan berikutnya?
Misalkan, saya memiliki daftar string teks yang ingin saya pindahkan kata terakhir ke sel yang berdekatan berikutnya seperti gambar berikut yang ditampilkan, tentu saja, Anda dapat memotong dan menempelkannya satu per satu, tetapi, adakah cara cepat bagi kami untuk bergerak? mereka ke sel berikutnya sekaligus di Excel?
Pindahkan kata terakhir ke sel yang berdekatan berikutnya dengan kode VBA
Ekstrak kata terakhir ke sel yang berdekatan berikutnya dengan rumus
Pindahkan kata terakhir ke sel yang berdekatan berikutnya dengan kode VBA
Untuk memotong dan memindahkan kata terakhir dari satu sel ke sel yang berdekatan berikutnya, harap terapkan kode VBA berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Pindahkan kata terakhir ke sel yang berdekatan berikutnya:
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih sel teks yang ingin Anda pindahkan kata terakhirnya, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, kata-kata terakhir di sel yang dipilih telah dipindahkan ke sel kanan yang berdekatan segera, lihat tangkapan layar:
Ekstrak kata terakhir ke sel yang berdekatan berikutnya dengan rumus
Jika Anda hanya perlu mengekstrak kata-kata terakhir dari string teks tanpa memindahkannya, rumus berikut dapat membantu Anda.
Harap masukkan rumus ini:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) ke dalam sel kosong di sebelah sel teks, lalu seret gagang isian ke sel yang ingin Anda ekstrak kata terakhirnya, semua kata terakhir telah diekstraksi dari string teks tanpa memindahkan yang asli. Lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!