Excel'de notasyona göre alan adını nasıl tersine çevirebilirsiniz?

Bazen, aşağıdaki ekran görüntüsünde gösterildiği gibi, notasyona göre alan adını tersine çevirmekle ilgili bir iş karşınıza çıkabilir. Bunu hızlıca çözmek için herhangi bir püf noktanız var mı? Bu makalede, bunu hızlı bir şekilde ele almak için iki yöntem tanıtacağım.

VBA ile notasyona göre alan adını ters çevirme

Metin Sırasını Ters Çevir özelliğiyle ayırıcıya göre metni ters çevirme

VBA ile notasyona göre alan adını ters çevirme

İşinizi kolaylaştıracak bir makro kodu aşağıda bulunmaktadır. Lütfen Excel'de şu adımları izleyin:

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

2. Ekle > Modül'e tıklayın, kodu kopyalayıp boş betiğe yapıştırın.

VBA: Notasyona göre alan adını ters çevirme

Sub Reverse()
'UpdatebyExtendoffice2017115
    Dim xArr() As String
    Dim xSplitStr As String
    Dim xVal As String
    Dim xRg As Range
    Dim xCell As Range
    Dim xIndex As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xSplitStr = "."
    For Each xCell In xRg
        If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
        xVal = ""
        xArr = Split(xCell.Value, xSplitStr)
        xIndex = UBound(xArr)
        xVal = xArr(xIndex)
        Do
            xIndex = xIndex - 1
            xVal = xVal & xSplitStr & xArr(xIndex)
        Loop While xIndex > 0
        xCell.Value = xVal
xBreak:
    Next
    Application.ScreenUpdating = True
End Sub

3. Tuşa basın F5 tuşuna bastığınızda, çalışmak için bir aralık seçmenizi hatırlatan bir iletişim kutusu açılır.

4. Tamam'a tıklayın.

Metin Sırasını Ters Çevir özelliğiyle ayırıcıya göre metni ters çevirme

Eğer Kutools for Excel'iniz varsa, Metin Sırasını Ters Çevir özelliği size bir dizeyi ihtiyaçlarınıza göre ters çevirmenize yardımcı olabilir.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki işlemleri yapın: (Kutools for Excel'i Şimdi Ücretsiz İndirin!)

1. Kullandığınız dizeyi seçin ve tıklayın Kutools > Metin > Metin Sırasını Ters Çevir.

2. Ters Metin ile açılan iletişim kutusunda, metni ters çevirmek için ihtiyacınız olan seçeneği belirleyin.

3. Tamam'a tıklayın ve metin dizileri ters çevrilmiş olacaktır.