Son kelimeyi bitişik bir sonraki hücreye nasıl taşıyabilirim?
Diyelim ki, aşağıdaki ekran görüntüsünde gösterildiği gibi, son kelimesini bitişik bir sonraki hücreye taşımak istediğiniz metin dizelerinden oluşan bir listeniz var. Elbette bunları tek tek kesebilir ve yapıştırabilirsiniz; ancak Excel’de hepsini aynı anda bir sonraki hücreye taşımanın daha hızlı bir yolu var mı?
Son kelimeyi VBA koduyla bitişik bir sonraki hücreye taşıma
Formül kullanarak son kelimeyi bitişik bir sonraki hücreye çıkarma
Son kelimeyi VBA koduyla bitişik bir sonraki hücreye taşıma
Bir hücreden son kelimeyi kesip bitişik bir sonraki hücreye taşımak için lütfen aşağıdaki VBA kodunu uygulayın:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Son kelimeyi bitişik bir sonraki hücreye taşıma:
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; son kelimesini taşımak istediğiniz metin hücrelerini seçmenizi hatırlatan bir uyarı kutusu görüntülenecektir. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; seçili hücrelerdeki son kelimeler hemen bitişik sağdaki hücreye taşınacaktır. Ekran görüntüsüne bakın:
Formül kullanarak son kelimeyi bitişik bir sonraki hücreye çıkarma
Metin dizelerinden son kelimeleri yalnızca taşımadan kaldırmak istiyorsanız, aşağıdaki formül size yardımcı olabilir.
Lütfen şu formülü girin:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ","")))))Formülü, metin hücresinin yanındaki boş bir hücreye girin ve ardından son kelimesini çıkarmak istediğiniz hücrelere kadar doldurma kulpu boyunca aşağı doğru sürükleyin; tüm son kelimeler, orijinal metin dizeleri yerinde kalırken çıkarılmış olur. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar