Làm thế nào để đếm "Tổng các số" trong một cột? (1 người xem)

[tanokrsti]

Nhờ các bạn giúp cách đếm Tổng các số có trong một cột
Cảm ơn các bạn đã quan tâm và chỉ dẫn.

 

[Quang_Hải]

Cái này làm bằng VBA thì nhanh, nếu biết xài VBA thì thử cái này

Private Sub CommandButton1_Click()
Dim dl, i, kq, dem
dl = Range([a3], [a65536].End(3)).Value
For i = 1 To UBound(dl)
    kq = kq & dl(i, 1) & ", "
Next
dem = Split(kq, ",")
[b3] = UBound(dem)
End Sub

 

[concogia]

Nhờ các bạn giúp cách đếm Tổng các số có trong một cột
Cảm ơn các bạn đã quan tâm và chỉ dẫn.

Có thể dùng công thức này

=SUMPRODUCT(LEN(A3:A10))-SUMPRODUCT(LEN(SUBSTITUTE(A3:A10,",","")))+ROWS(A3:A10)

to quanghai1969
trong code của bạn có đoạn

For i = 1 To UBound(dl)
    kq = kq & dl(i, 1) & ", "
Next

có thể không dùng vòng lặp

kq = Join(Application.WorksheetFunction.Transpose(dl), ", ")

kết quả:

[b3] = UBound(Dem) + 1

vì không dư khoảng trắng như khi bạn dùng vòng lặp
Thân

 

[Ba Tê]

Có thể dùng công thức này

=SUMPRODUCT(LEN(A3:A10))-SUMPRODUCT(LEN(SUBSTITUTE(A3:A10,",","")))+ROWS(A3  :A10)

Thân

Sao tôi thấy nó ... dư dư...
Như vầy được không nhỉ?

=SUMPRODUCT(LEN(A3:A10)-LEN(SUBSTITUTE(A3:A10;",";""))+1)

Ec...

 

[tanokrsti]

Xin chào các bạn QuangHai, Concogia và Ba Tê
Đã xem các cách giải quyết của các bạn. Tuy nhiên có 2 vấn đề:
1) Do không biết cách dùng VBA nên sự giúp đỡ này của các bạn thật trong trưởng hợp này thật là uổng đối với tôi.
2) Công thức của bạn Concogia và Ba Tê đều báo lỗi;
Các bạn có thể xem giúp cách khắc phục lỗi của công thức này như thế nào được không?
Một lần nữa xin cảm ơn các bạn

 

[ndu96081631]

2) Công thức của bạn Concogia và Ba Tê đều báo lỗi;
Các bạn có thể xem giúp cách khắc phục lỗi của công thức này như thế nào được không?
Một lần nữa xin cảm ơn các bạn

công thức này:

=SUMPRODUCT(LEN(A3:A10)-LEN(SUBSTITUTE(A3:A10,",",""))+1)

Lỗi cái quỷ gì đâu chứ!
Xem file đây
Lưu ý rằng công thức này có thể cho kết quả sai nếu có cell rổng trong dữ liệu. Vậy nên, để tổng quát thì công thức sẽ sửa thế này:

=SUMPRODUCT((LEN(A3:A10)-LEN(SUBSTITUTE(A3:A10,",",""))+1)*(A3:A10<>""))

----------------
Chủ đề này có từ đời nào trên diễn đàn rồi:
http://www.giaiphapexcel.com/forum/showthread.php?6127-Đếm-Word-trong-1-cell

 

[tanokrsti]

Xin chào bạn ndu96081631,
Đã nhận được công thức của bạn, rất cảm ơn vì sự quan tâm giúp đỡ này.
Thân ái, mong được giao lưu vơi bạn
tanokrsti@yahoo.com
[h=2][/h]