KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de karışık alfasayısal metinlerden sayılar nasıl çıkarılır?

YazarSiluvia Değiştirme Tarihi

Bu öğretici, Excel'de karışık alfasayısal metin dizelerinden sayıları ayıklamak için üç etkili yöntem sunar.

metin dizelerinden sayıları çıkar

Karışık alfasayısal metin dizelerinden formülle sayı çıkarın
Harika bir araçla karışık alfasayısal metin dizelerinden kolayca sayı çıkarın
Karışık alfasayısal metin dizelerinden VBA koduyla sayı çıkarın

Karışık alfasayısal metin dizelerinden formülle sayı çıkarın

Excel'de bir metin dizesinin herhangi bir yerinden sayıları ayıklamak için aşağıdaki formülü kullanabilirsiniz.

1. Çıkarılan sayıların görüntüleneceği boş bir hücre seçin, aşağıdaki formülü girin ve Enter tuşuna basın. Ardından formülü diğer hücrelere uygulamak için Otomatik Doldurma Sürükleme Noktası’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),"")

formül kullanarak metin dizelerinden sayıları çıkar

Not: Formülde A1, sayı çıkarılacak metin dizesini içeren hücredir. Lütfen bunu ihtiyaçlarınıza göre güncelleyin.

Daha sonra, yukarıdaki ekran görüntüsünde gösterildiği gibi belirtilen hücrelerdeki metin dizelerinin her yerinden sayılar çıkarılır.

Karışık alfasayısal metin dizelerinden Kutools for Excel ile kolayca sayı çıkarın

Bu bölüm, metin dizelerinden sayıları kolayca çıkarmak için Kutools for Excel’in **Metni Çıkart** özelliğini önerir.

Kutools for Excelkarmaşık görevleri kolaylaştırmak, yaratıcılığı ve verimliliği artırmak için 300'den fazla gelişmiş özelliğe sahiptir.Yapay zeka yetenekleriyle entegre, Kutools görevleri hassasiyetle otomatikleştirerek veri yönetimini zahmetsiz hale getirir.Kutools for Excel hakkında ayrıntılı bilgi…         Ücretsiz deneme…

1. Özelliği etkinleştirmek için Kutools > Metin > Metni Çıkart seçeneğine tıklayın.

2. Metni Çıkartiletişim kutusunda aşağıdaki ayarları yapın.

2,1)Konuma Göre Çıkartsekmesine tıklayın (Bu sekme varsayılan olarak etkindir);
2,2)Aralıkbölümünde, Metni Çıkart yapılacak hücre aralığını seçmek için seçim düğmesidüğmesine tıklayın;
2,3)Seçeneklerbölümünde:Sayıları Çıkartseçeneğini belirleyin;
2,4)Tamam'a tıklayın.

iletişim kutusunda seçenekleri belirtin

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

3. Metni Çıkartiletişim kutusunda Metni Çıkart çıktısının alınacağı boş bir hücre seçin ve ardından Tamam

sonucu görüntülemek için boş bir hücre seçin

Böylece metin dizesinin herhangi bir yerindeki sayılar çıkarılır. Ekran görüntüsüne göz atın:

metin dizesinin herhangi bir konumundaki sayılar çıkarılır

Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.

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

Aşağıdaki VBA kodu, belirtilen aralıktaki tüm sayısal olmayan karakterleri kaldırarak hücrelerde yalnızca sayıları bırakmanıza yardımcı olur. Aşağıdaki adımları izleyin.

NotKod, orijinal aralığı doğrudan işlediğinden, veri kaybına karşı orijinal aralığın bir yedeğini mutlaka alın ve saklayın.

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

2. Microsoft Visual Basic for Applicationspenceresinde Ekle>Modülseçeneğine 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; yalnızca sayıları saklamak istediğiniz karışık alfasayısal metin dizelerini içeren aralığı seçin ve ardından Tamam düğmesine tıklayın.

veri listesini seçmek için VBA kodu

Şimdi tüm sayısal olmayan karakterler Seçili Aralık’tan anında kaldırıldı ve yalnızca sayılar korundu. Ekran görüntüsüne göz atın:

tüm sayısal olmayan karakterler kaldırılır

En İyi Office Üretkenlik Araçları

🤖KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi’i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
Süper ARA:Çoklu Kriterli Dikey Arama (VLookup)  |  Çoklu Değerli Dikey Arama (VLookup)  |   Birden Fazla Sayfada Dikey Arama (VLookup)   |   Bulanık Eşleme…
Gelişmiş Açılır Liste:Açılır Liste Hızlıca Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste…
Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
En Çok Kullanılan 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ başka dillerde de desteklenir!

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.

ExcelWordOutlookTabsPowerPoint
  • 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