Excel'de karışık alfasayısal metin dizelerinden sayıları nasıl çıkarabilirsiniz?

Bu öğretici, Excel'deki karışık alfasayısal metin dizisinden sayıları çıkarmaya yardımcı olmak için üç yöntem sunar.

Formülle karışık alfasayısal metin dizelerinden sayıları çıkarma
Harika bir araçla karışık alfasayısal metin dizelerinden sayıları kolayca çıkarma
VBA koduyla karışık alfasayısal metin dizelerinden sayıları çıkarma

Formülle karışık alfasayısal metin dizelerinden sayıları çıkarma

Metin dizesindeki herhangi bir yerden sayıları çıkarmak için aşağıdaki formülü uygulayabilirsiniz.

1. Çıkarılan sayıları çıktılamak için boş bir hücre seçin, aşağıdaki formülü içine girin ve Enter tuşuna basın. Ardından formülü diğer hücrelere uygulamak için Otomatik Doldurma Tutamağını aşağı doğru sürükleyin.

=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")

Not: Formülde, A1, sayıları çıkarmak istediğiniz metin dizesini içeren hücredir. Lütfen ihtiyaçlarınıza göre değiştirin.

Yukarıdaki ekran görüntüsünde gösterildiği gibi belirtilen hücrelerdeki metin dizesinin herhangi bir yerinden sayılar çıkarılır.

Kutools for Excel ile karışık alfasayısal metin dizelerinden sayıları kolayca çıkarma

Bu bölüm, Kutools for Excel'in Metin Çıkartma yardımcı programını önermektedir. Bu yardımcı program sayesinde bir metin dizesinden sayı çıkarmak kolaylaşır.

1. Kutools > Metin > Metin Çıkartma özelliğini etkinleştirmek için tıklayın.

2. Metin Çıkartma iletişim kutusunda lütfen aşağıdaki ayarları yapın.

2.1) Konuma Göre Çıkart sekmesine tıklayın (Bu sekme varsayılan olarak etkindir);

2.2) İçinde Aralık bölümünde, hücrelerden metin çıkaracağınız aralığı seçmek için düğmesine tıklayın;

2.3) Seçenekler bölümünde: Sayıları Çıkart seçeneğini seçin;

2.4) Tamam'a tıklayın.

Not: İletişim kutusunun sol alt köşesindeki Formül Olarak Ekle kutusunu işaretlemek, sonucu sonuç hücrelerine formül olarak ekler. Başvurulan hücrenin değeri değiştiğinde sonuç otomatik olarak güncellenir.

3. Metin Çıkartma iletişim kutusunda, çıkarılan metni çıktılamak için boş bir hücre seçin ve ardından Tamam'a tıklayın.

Bir metin dizesindeki herhangi bir konumdan sayılar çıkarıldı. Ekran görüntüsüne bakın:

VBA koduyla karışık alfasayısal metin dizelerinde yalnızca sayıları tutma

Aşağıdaki VBA kodu, belirli bir aralıktaki tüm sayısal olmayan karakterleri kaldırmaya ve hücrelerde yalnızca sayıları tutmaya yardımcı olabilir. Lütfen şu adımları izleyin.

Not: Kod orijinal aralığı doğrudan yürütür, bu nedenle veri kaybı durumuna karşı orijinal aralığın bir kopyasını saklayın.

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: hücrelerden tüm sayısal olmayan karakterleri kaldırma

Sub GetNumbers()
'Updated by Extendoffice 20210125
    Dim xRegEx As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRegEx = CreateObject("VBScript.RegExp")
    With xRegEx
        .Pattern = "\D+"
        .IgnoreCase = True
        .Global = True
    End With
    xRg.NumberFormat = "@"
    For Each xCell In xRg
        xCell.Value = xRegEx.Replace(xCell.Value, "")
    Next
    Set xRegEx = Nothing
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Ardından bir Kutools for Excel iletişim kutusu açılır, sadece sayıları tutacağınız karışık alfasayısal metin dizelerini içeren aralığı seçin ve Tamam düğmesine tıklayın.

Şimdi seçilen aralıktaki tüm sayısal olmayan karakterler hemen kaldırıldı ve yalnızca sayılar kaldı. Ekran görüntüsüne bakın: