Ana içeriğe atla

Excel'de tek bir hücrede sayıları nasıl toplayabilir veya ekleyebilirim?

Çoğu durumda, tüm sayıları tek bir hücrede toplamanız gerekebilir. Örneğin, A1 hücresinde Sınıf 2 Sınıf 1 metin dizesi vardır ve bu sayıların eklenmesinin sonucu 1 + 2 = 3'tür. Bu makale, ayrıntılarla birlikte tek bir hücreye sayı ekleme yöntemlerini gösterecektir.

Kullanıcı tanımlı işlevle tek bir hücrede sayıları toplama
Sadece birkaç tıklama ile tek bir hücrede sayıları kolayca toplayın


Kullanıcı tanımlı işlevle tek bir hücrede sayıları toplama

Aşağıdaki Kullanıcı tanımlı işlevle tek bir hücrede sayıları toplayabilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulaması pencere.

2. içinde Microsoft Visual Basic Uygulaması Pencere, tıklayın Ekle > modül. Ve sonra aşağıdaki VBA'yı modül pencere.

VBA: tek bir hücrede toplam sayılar

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Press Ara Toplam + Q kapatmak için anahtarlar Microsoft Visual Basic Uygulaması pencere.

4. Sonucu çıkarmak için boş bir hücre seçin. Aşağıdaki formülü içine girin ve Keşfet anahtar (A2, tek sayıları toplayacağınız hücredir).

=SUMNUMS(A2)

5. Ardından, formülü diğer gerekli hücrelere uygulamak için sonuç hücresinin Dolgu Tutamaçını sürükleyin.

not: Bu kullanıcı tanımlı işlev sayı biçimindeki hücrelere uygulanmaz.


Sadece birkaç tıklama ile tek bir hücrede sayıları kolayca toplayın

Kutools for Excel'S Bir hücredeki sayıları toplama formül, tek bir hücredeki sayıları (metin biçimi hücresi ve sayı biçimi hücresi dahil) yalnızca birkaç tıklama ile kolayca toplamaya yardımcı olabilir.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Sonuç çıktısını almak için boş bir hücre seçin. Ve sonra tıklayın Kutools > Formül Yardımcısı > Formül Yardımcısı.

2. içinde Formül Yardımcısı iletişim kutusu, lütfen aşağıdaki gibi yapılandırın.

2.1) Bulun ve seçin Bir hücredeki sayıları toplama içinde Bir formül seçin Kutu;
İpuçları: Kontrol edebilirsiniz filtre kutusuna, ihtiyacınız olan formülü filtrelemek için bir anahtar sözcük yazın.
2.2) içinde Hücre kutusunda, toplayacağınız sayıları içeren bir hücre belirtin;
2.3) OK buton. Ekran görüntüsüne bakın:

3. Ardından sonuç, seçilen hücrede doldurulur. Sonuç hücresini seçin ve ardından diğer sonuçları almak için Dolgu Tutamaçını aşağı sürükleyin.

  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.


Kutools for Excel ile tek bir hücrede sayıları kolayca toplayın

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

kte sekmesi 201905


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations