Đây là bài "tách số ra khỏi chuỗi" nhưng thực ra là tách giá trị của số ra khỏi chuỗi. Vd : chuối 1234abcd ra là 1234, tôi cũng cần dùng code này nhưng muốn tách "các ký tự số" ra chứ ko phải giá trị. VD: chuỗi 01234abcd ~> tôi muốn : 01234 chứ ko phải như code này là 1234. Các anh chị giúp dùm
Chuỗi nằm ở A1, bạn dùng công thức này :
=LEFT(A1,COUNT(--LEFT(A1,COLUMN(INDIRECT("1:"&LEN(A1))))))
Cho code này vào 1 module, rồi tại AF2 nhập =tong($A$2:$AE$2,"B")
Function TONG(vung As Range, dk As String)
Dim data, it, kq, tam
data = vung.Value
For Each it In data
tam = UCase(it)
If Left(tam, 1) = UCase(dk) Then
kq = kq & "+" & (Replace(tam, dk, ""))
End If
Next
kq = Replace(kq, "+", "", 1, 1)
TONG = Evaluate(kq)
End Function
Không phải Anh Tuấn cũng bon chen tí.
=SUM(IFERROR(--RIGHT(A2:AE2,LEN(A2:AE2)-1),0)*(LEFT(A2:AE2,1)="b"))=SUM(IF(ISERROR(--RIGHT(A2:AE2,LEN(A2:AE2)-1)),0,--RIGHT(A2:AE2,LEN(A2:AE2)-1))*(LEFT(A2:AE2,1)="b"))
1 Có enable macros chưa?Bạn ơi, khi mình nhập công thức =Tong(...) thì nó báo lỗi #name?
Không biết mình missing chổ nào rồi
Em bon chen tí :
Function SumNumbers(Rng As Range, first As String) As Double
Dim k As Long, i As Long
Dim sArr()
sArr = Rng.Value
For i = 1 To UBound(sArr, 2)
If UCase(sArr(1, i)) Like UCase(first) & "*" Then
With CreateObject("VBScript.RegExp")
.Pattern = "\d+(\.\d+)?"
If .test(sArr(1, i)) Then
SumNumbers = SumNumbers + .Execute(sArr(1, i))(0)
End If
End With
End If
Next
End Function
=SUM(IF(LEFT($A2:$AE2)=RIGHT(AF$1),1*REPLACE($A2:$AE2,1,1,0),0))Giả sử dữ liệu bạn ở A1, bạn dùng CT này:
B1=LARGE(IFERROR(--MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE($A$1," ",REPT(" ",100)),",",REPT(" ",100)),";",REPT(" ",100)),"[",REPT(" ",100)),"]",REPT(" ",100)),(ROW($1:$100)-1)*100+1,100),0),ROW(A1))
