Tümü "Soyadı Adı" olarak biçimlendirilen uzun bir liste adına sahip bir elektronik tablonuz olduğunu varsayarsak ve şimdi tüm adları "Ad, Soyadı" olarak yeniden düzenlemeniz gerekir. Nasıl başarılır? Bu makale, sorunu çözmenize yardımcı olacak üç yöntemi tanıtacaktır.
Hücredeki metni formülle yeniden düzenleme
VBA kodu ile bir hücredeki metni yeniden düzenleme
Kutools for Excel ile bir hücredeki metni hızla yeniden düzenleyin
Aşağıdaki formül, Excel'deki bir hücrede soyadı ve adı çevirmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Yeniden düzenlenen metnin çıktısını almak için boş bir hücre seçin, aşağıdaki formülü içine girin ve ardından Enter tuşuna basın.
= KIRP (ORTA (b2, ARA ("", b2) +1,250)) & "" & SOL (b2, ARA ("", b2) -1)
not: formülde, B2 hücrenin yeniden düzenleyeceğiniz adı içermesidir. Lütfen ihtiyacınıza göre değiştirin.
2. Sonuç hücresini seçmeye devam edin, aşağıda gösterilen ekran görüntüsü gibi tüm adları çevirmek için Dolgu Tutamaçını aşağı sürükleyin.
Excel'de bir hücredeki metni kolayca yeniden düzenleyin:
The Metni Ters Çevir yarar Kutools for Excel Excel'deki belirli bir ayırıcıyla bir hücre içinde kolayca metin değiştirmenize yardımcı olabilir. Aşağıdaki ekran görüntüsüne bakın:
İndirin ve deneyin! (30 günlük ücretsiz iz)
Ayrıca, Excel'de bir listedeki tüm isimleri aynı anda çevirmek için aşağıdaki VBA kodunu uygulayabilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VAB kodunu Modül penceresine kopyalayın.
VBA kodu: Bir hücredeki metni yeniden düzenleyin
Sub RearrangeText() 'Updated by Extendoffice 20180503 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. Sonra a Kutools for Excel iletişim kutusu açılır, lütfen yeniden düzenlemek istediğiniz ad listesini seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, seçilen listedeki tüm "Soyadı Adı" hemen çevrilir.
Bu bölüm, Ters Metin Sırası yarar Kutools for Excel Hücredeki metni yeniden düzenlemenize yardımcı olmak için.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. "Soyadı Adı" olarak çevireceğiniz ad listesini seçin ve ardından Kutools > metin > Ters Metin Sırası. Ekran görüntüsüne bakın:
2. içinde Metni Ters Çevir iletişim kutusunu seçin. uzay seçeneğini seçin ve ardından OK buton. Ekran görüntüsüne bakın:
Ardından, seçilen listedeki tüm isimler bir defada yeniden düzenlenir.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
