Nhờ tách lấy số và tính tổng có điều kiện của dãy số (5 người xem)

[NguyenBaChien]

Nhờ các thầy cô và anh chị em giúp đỡ trường hợp này

Trước mắt em có hình ảnh như hình


Sau đó sử dụng công cụ chuyển đổi hình ảnh sang dữ liệu excel (tìm kiếm trên google) được file excel gồm dãy số trong 1 ô như vậy



Các thầy cô và anh chị em nào có công thức tách dãy ví dụ ô A5 mình chỉ lấy số kết quả còn lại
4435063135353614373532343336403532364316293544323733342194454463694241333338
Và tính tổng của dãy có điều kiện là 2 số + 2 số kế tiếp đến hết dãy: 44+35+06+...+33+33+38 = ???
Nhờ mọi người giúp đỡ.
Em cám ơn mọi người ạ.

 

[Duy Tùng 9x]

Các thầy cô và anh chị em nào có công thức tách dãy ví dụ ô A5 mình chỉ lấy số kết quả còn lại
4435063135353614373532343336403532364316293544323733342194454463694241333338
Và tính tổng của dãy có điều kiện là 2 số + 2 số kế tiếp đến hết dãy: 44+35+06+...+33+33+38 = ???
Nhờ mọi người giúp đỡ.
Em cám ơn mọi người ạ.

Nghĩa là tách 2 số sau đó tổng. Bạn xem file nhé. Có cả office thấp và cao. Thử xem phải đúng ý chưa.
=REDUCE(A5,{"tach "," ","."},LAMBDA(x,v,SUBSTITUTE(x,v,))) Này làm sạch dữ liệu
=SUM(--REGEXEXTRACT(A12,"..",1)) Này tính tổng (điều kiện thì office 365 đó, thấp xem file nhé, à nhưng đang là với số lượng số chẵn nhé. Lẻ thì đang chưa hiểu bạn muốn sao)

 

[HUONGHCKT]

Nhờ các thầy cô và anh chị em giúp đỡ trường hợp này

Trước mắt em có hình ảnh như hình
View attachment 307481

Sau đó sử dụng công cụ chuyển đổi hình ảnh sang dữ liệu excel (tìm kiếm trên google) được file excel gồm dãy số trong 1 ô như vậy

View attachment 307483

Các thầy cô và anh chị em nào có công thức tách dãy ví dụ ô A5 mình chỉ lấy số kết quả còn lại
4435063135353614373532343336403532364316293544323733342194454463694241333338
Và tính tổng của dãy có điều kiện là 2 số + 2 số kế tiếp đến hết dãy: 44+35+06+...+33+33+38 = ???
Nhờ mọi người giúp đỡ.
Em cám ơn mọi người ạ.

Tham khảo hàm tự tạo (UDF) sau

Option Explicit

Function TinhTong(ByVal Rng As Range)
Dim i&, T, K, Tong&

For i = 1 To Len(Rng)
    T = Mid(Rng, i, 1)
    If IsNumeric(T) Then
        If K = Empty Then K = T Else K = K & T
        If Len(K) = 2 Then Tong = Tong + (K * 1): K = Empty
    End If
Next i
TinhTong = Tong
End Function

Cú pháp trên bảng tính
= TinhTong(Ô cần tính)
C5=TinhTong(A5)

 

[NguyenBaChien]

Nghĩa là tách 2 số sau đó tổng. Bạn xem file nhé. Có cả office thấp và cao. Thử xem phải đúng ý chưa.
=REDUCE(A5,{"tach "," ","."},LAMBDA(x,v,SUBSTITUTE(x,v,))) Này làm sạch dữ liệu
=SUM(--REGEXEXTRACT(A12,"..",1)) Này tính tổng (điều kiện thì office 365 đó, thấp xem file nhé, à nhưng đang là với số lượng số chẵn nhé. Lẻ thì đang chưa hiểu bạn muốn sao)

Cám ơn bạn nhiều. để mình đọc thêm công thức của bạn. có vướng chỗ nào nhờ bạn giúp mình thêm.

Bài đã được tự động gộp: Hôm nay lúc 14:02

Tham khảo hàm tự tạo (UDF) sau

Option Explicit

Function TinhTong(ByVal Rng As Range)
Dim i&, T, K, Tong&

For i = 1 To Len(Rng)
    T = Mid(Rng, i, 1)
    If IsNumeric(T) Then
        If K = Empty Then K = T Else K = K & T
        If Len(K) = 2 Then Tong = Tong + (K * 1): K = Empty
    End If
Next i
TinhTong = Tong
End Function

Cú pháp trên bảng tính
= TinhTong(Ô cần tính)
C5=TinhTong(A5)

cám ơn bạn, mình tìm hiểu thử xem, vì chưa biết gì về UDF này.