Tính tổng nhiều giá trị ( xuống dòng tự động bằng Wrap text) trong 1 ô

[Loan Châu]

Thân chào quý anh chị và các bạn,
Hiện mình đang vướng tính tổng nhiều giá trị ( xuống dòng tự động bằng Wrap text) trong 1 ô trong excel. Về khó khan cụ thể mình đã nêu trong file đính kèm.
Mình rất mong các bạn gợi ý cho mình cách giải quyết khó khan,
Trong thời gian chờ đợi mình Xin chân thành cảm ơn tất cả các bạn!
Trân trọng,

 

[Phan Thế Hiệp]

Thân chào quý anh chị và các bạn,
Hiện mình đang vướng tính tổng nhiều giá trị ( xuống dòng tự động bằng Wrap text) trong 1 ô trong excel. Về khó khan cụ thể mình đã nêu trong file đính kèm.
Mình rất mong các bạn gợi ý cho mình cách giải quyết khó khan,
Trong thời gian chờ đợi mình Xin chân thành cảm ơn tất cả các bạn!
Trân trọng,

Thử:

=SUM(IFERROR(--MID(SUBSTITUTE(B1:B20,CHAR(10),REPT(" ",100)),(COLUMN($A:$T)-1)*100+1,100),))

Kết thúc bằng Ctrl+Shift+Enter.

Thân

 

[Loan Châu]

Thử:

=SUMPRODUCT(--MID(SUBSTITUTE(B1:B20,CHAR(10),REPT(" ",100)),{1,101},100))

Enter.

Thân

mình cảm ơn bạn, mình phiền bàn them là bạn giải thích giúp mình với. Mình làm sao để tách được xuống dòng đó bạn?

 

[Ba Tê]

Thân chào quý anh chị và các bạn,
Hiện mình đang vướng tính tổng nhiều giá trị ( xuống dòng tự động bằng Wrap text) trong 1 ô trong excel. Về khó khan cụ thể mình đã nêu trong file đính kèm.
Mình rất mong các bạn gợi ý cho mình cách giải quyết khó khan,
Trong thời gian chờ đợi mình Xin chân thành cảm ơn tất cả các bạn!
Trân trọng,

Dùng VBA được không?
Hàm tự tạo ô A1. Kiểm tra lại bằng nút Lu Xu Bu.

 

[♫ђöล♥ßล†♥†µ♫]

Dùng VBA được không?
Hàm tự tạo ô A1. Kiểm tra lại bằng nút Lu Xu Bu.

Em góp vui 1 tí nhân ngày cuối tuần

Function SumUp(ByVal Delimiter As String, ParamArray Args() As Variant) As Double
    Dim Sum As Double
    Dim Ndx As Long, aTmp As Variant, Item
On Error Resume Next
For Ndx = LBound(Args) To UBound(Args)
    If TypeOf Args(Ndx) Is Range Then
        aTmp = Args(Ndx).Value
        For Each Item In aTmp
            If IsNumeric(Evaluate(Replace(Item, Delimiter, "+"))) Then _
                    Sum = Sum + Evaluate(Replace(Item, Delimiter, "+"))
        Next
    Else
        If IsNumeric(Evaluate(Args(Ndx))) Then Sum = Sum + Evaluate(Args(Ndx))
    End If
Next Ndx
SumUp = Sum
End Function

=SumUp(CHAR(10),B1:B20)

 

[Phan Thế Hiệp]

mình cảm ơn bạn, mình phiền bàn them là bạn giải thích giúp mình với. Mình làm sao để tách được xuống dòng đó bạn?

Xem giải thích trong file.

Thân

 

[Loan Châu]

Dùng VBA được không?
Hàm tự tạo ô A1. Kiểm tra lại bằng nút Lu Xu Bu.

em được VBA anh à,
code của anh rất tuyệt. em cảm ơn anh nhiều. chúc anh cuối tuần hạnh phúc bên gia đình

Bài đã được tự động gộp: 24/11/18

Em góp vui 1 tí nhân ngày cuối tuần

Function SumUp(ByVal Delimiter As String, ParamArray Args() As Variant) As Double
    Dim Sum As Double
    Dim Ndx As Long, aTmp As Variant, Item
For Ndx = LBound(Args) To UBound(Args)
    If TypeOf Args(Ndx) Is Range Then
        aTmp = Args(Ndx).Value
        For Each Item In aTmp
            Sum = Sum + Evaluate(Replace(Item, Delimiter, "+"))
        Next
    Else
        Sum = Sum + Args(Ndx)
    End If
Next Ndx
SumUp = Sum
End Function

=SumUp(CHAR(10),B1:B20)

Mình cảm ơn bạn nhiều lắm,
code của bạn cho ra kết quả trùng với anh Batê. Chúc bạn cuối tuần vui vẽ nhé!

Bài đã được tự động gộp: 24/11/18

Xem giải thích trong file.

Thân

cảm ơn bạn rất nhiều, bạn giải thích rất chi tiếc. Chúc bạn cuối tuần vui vẽ bạn nhé!

 

[Loan Châu]

Dùng VBA được không?
Hàm tự tạo ô A1. Kiểm tra lại bằng nút Lu Xu Bu.

anh ơi, nhân tiện anh dung VBA, anh giúp em xí với anh.
em có file excel nhiều sheet, trong đó em muốn copy các sheet danh sách nhân viên vào sheet tổng theo file định dạng sẵn.
em mong anh giúp đở. em cảm ơn anh nhiều trước!

 

[Ba Tê]

anh ơi, nhân tiện anh dung VBA, anh giúp em xí với anh.
em có file excel nhiều sheet, trong đó em muốn copy các sheet danh sách nhân viên vào sheet tổng theo file định dạng sẵn.
em mong anh giúp đở. em cảm ơn anh nhiều trước!

- Sao "nhân tiện" ?
- Sao đầu câu, đầu dòng không viết Hoa?
- "xí" là sao?
- "đở" là gì?

Public Sub sGpe()
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 5)
Dim I As Long, J As Long, K As Long, R As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong" Then
        sArr = Ws.Range("A2", Ws.Range("A1000").End(xlUp)).Resize(, 5).Value
        R = UBound(sArr)
        For I = 1 To R
            K = K + 1
            dArr(K, 1) = K
            For J = 2 To 5
                dArr(K, J) = sArr(I, J)
            Next J
        Next I
    End If
Next Ws
Sheets("Tong").Range("A2").Resize(K, 5) = dArr
End Sub

 

[Loan Châu]

- Sao "nhân tiện" ?
- Sao đầu câu, đầu dòng không viết Hoa?
- "xí" là sao?
- "đở" là gì?

Public Sub sGpe()
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To 5)
Dim I As Long, J As Long, K As Long, R As Long
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong" Then
        sArr = Ws.Range("A2", Ws.Range("A1000").End(xlUp)).Resize(, 5).Value
        R = UBound(sArr)
        For I = 1 To R
            K = K + 1
            dArr(K, 1) = K
            For J = 2 To 5
                dArr(K, J) = sArr(I, J)
            Next J
        Next I
    End If
Next Ws
Sheets("Tong").Range("A2").Resize(K, 5) = dArr
End Sub

Anh cho em xin lỗi anh nghe! Em không cố ý viết sai chính tả đâu, anh đừng nghĩ em viết thế là không tôn trọng người mình đang nói chuyện. em không có cố ý thật mà. Em sẽ rút kinh nghiệm, em cảm ơn anh đã khuyên bảo tận tình cho em.
Em cảm ơn anh rất nhiều, em chúc anh luôn vui khỏe mỗi ngày !
Trân trọng,