Excel'de bir hücre içindeki metinleri nasıl değiştirebilir veya yerlerini değiştirebilirsiniz?

Birçok durumda, belirli amaçlar için tek bir hücredeki metinleri değiştirmeniz gerekebilir. Örneğin, bir hücre 'Smith John' adını içeriyorsa, hücre içindeki metinleri değiştirerek adı 'John Smith' olarak değiştirmeniz gerekir. Bu makale, bu sorunu çözmek için bazı yöntemleri listeler.

Formül kullanarak bir hücre içinde metinleri değiştirme veya yerlerini değiştirme
VBA kodu kullanarak bir hücre içinde metinleri değiştirme veya yerlerini değiştirme
Kutools for Excel ile bir hücre içinde metinleri kolayca değiştirme veya yerlerini değiştirme>

Formül kullanarak bir hücre içinde metinleri değiştirme veya yerlerini değiştirme

Aşağıdaki formül, Excel'de bir hücre içindeki metinleri değiştirmenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Değiştirilen verileri yerleştirmek için boş bir hücre seçin, formülü Formül Çubuğu'na girin ve ardından Enter tuşuna basın. Ekran görüntüsüne bakın:

=SAĞ(A2;UZUNLUK(A2)-BUL(" ";A2)) & " " & SOL(A2;BUL(" ";A2)-1)

2. Sonuç hücresini seçin, ardından kalan sonuçları almak için Doldurma Tutamacını aşağı doğru sürükleyin, aşağıdaki ekran görüntüsünde gösterildiği gibi.

Daha sonra ad ve soyadın belirtilen hücrelerde değiştirildiğini görebilirsiniz.

Not: Bu yöntem yalnızca boşlukla ayrılmış tek bir hücre içindeki iki metni değiştirebilir.

VBA kodu kullanarak bir hücre içinde metinleri değiştirme veya yerlerini değiştirme

Yukarıdaki örnekte gösterildiği gibi, bir hücre içindeki metinleri değiştirmek veya yerlerini değiştirmek için aşağıdaki VBA betiğini de çalıştırabilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Bir hücre içinde metinleri değiştirme veya yerlerini değiştirme

Sub res()
    Dim xRg As Range, yRg As Range
    Dim LastRow As Long, i As Long
    Dim strTxt As String, strFs As String
    Dim strLs As String, N As Integer
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    For Each yRg In xRg
        On Error Resume Next
        strTxt = yRg.Value
        Trim (strTxt)
        N = InStr(strTxt, " ")
        strLs = Left(strTxt, N - 1)
        strFs = Right(strTxt, Len(strTxt) - N)
        yRg.Value = strFs & " " & strLs
    Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, değiştirmeniz gereken verilerle birlikte aralığı seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Daha sonra belirtilen isim hücrelerindeki metinlerin hemen değiştirildiğini görebilirsiniz.

Not: Bu kod ayrıca boşlukla ayrılmış tek bir hücre içindeki iki kelimeyi de doğru şekilde değiştirebilir.

Kutools for Excel ile bir hücre içinde metinleri kolayca değiştirme veya yerlerini değiştirme

Bu bölüm, size bu sorunu kolayca çözmenize yardımcı olmak için Kutools for Excel'in Ters Metin Sırası özelliğini önermektedir. Lütfen aşağıdaki adımları izleyin.

1. Değiştirmeniz gereken metinleri içeren aralığı seçin, ardından Kutools > Metin > Ters Metin Sırası'na tıklayın. Ekran görüntüsüne bakın:

2. Ters Metin iletişim kutusunda, metinleri değiştireceğiniz ayırıcıyı Ayırıcı bölümünde belirtin. Bu durumda, Boşluk seçeneğini seçiyorum. Ardından Tamam düğmesine tıklayın.

Daha sonra, seçilen hücrelerdeki verilerin belirtilen ayırıcıya göre aynı hücrede hemen değiştirildiğini görebilirsiniz.

İlgili makale:

• Excel'de tarihin gün ve ayını nasıl değiştirir veya tersine çevirirsiniz?