Công thức ở [B1]:
Ở [B2]:
Với dạng bài này bạn nên đưa tất cả kiểu dữ liệu lên để dễ làm
Đã có rất nhiều bài bên trên hướng dẫn bạn dùng Left(), Right(), Find() chẳng lẽ bạn không vận dụng được gì sao?
2 dấu - được đặt phía trước một chuỗi số (có thể đặt trước một công thức mà kết quả của công thức này là một chuỗi số)để biến nó trở thành một số thực sự, có thể tính toán, so sánh.
Dùng Hàm tự tạo thử xem, Có kiểm tra bằng hàm Excel bằng các cột phụ.
Function MySum(ByVal Arr, Optional ByVal pos As Integer = 0) As Long
Dim objRegExp As Object
Dim objMatch As Object
Dim tmpArr, r As Long, c As Long, baonhieu As Long
Set objRegExp = VBA.CreateObject("VBScript.RegExp")
With objRegExp
.Global = True
If pos = 0 Then
.Pattern = "^\d+|\d+$"
ElseIf pos = 1 Then
.Pattern = "^\d+"
Else
.Pattern = "\+\d+$"
End If
If IsArray(Arr) Then
tmpArr = Arr
For r = 1 To UBound(tmpArr)
For c = 1 To UBound(tmpArr, 2)
For Each objMatch In .Execute(tmpArr(r, c))
baonhieu = baonhieu + objMatch.Value
Next objMatch
Next c
Next r
Else
For Each objMatch In .Execute(Arr)
baonhieu = baonhieu + objMatch.Value
Next objMatch
End If
End With
MySum = baonhieu
Set objRegExp = Nothing
Set objMatch = Nothing
End FunctionLưu ý, mình dùng công thức mảng nên sau khi edit công thức bạn nhấn tổ hợp ctr+shift+Enter nhé.
Bạn dùng Text to column chưa?
