Thử vầy xem đúng ý chưa nhen!
C2=B2&IF(ISERR(--A2),LEFT(A2),"")
Hoặc:
C2=B2&LEFT(IFERROR(T(A2*0),A2))Cám ơn bạn rất nhiều, mình muốn hỏi thêm bạn là --A2 là công thức gì bạn mình chưa gặp công thức kiểu này bao giờ
Ngày xưa hồi học cấp 2, khi học tới số nguyên âm thì biết trừ trừ bằng cộng. Vậy thôi.
Như cách giải thích của anh @befaint ở trên cũng là một cách dễ hiểu.
Bạn thử code này xem!!!
Function joinn(str As String) As String
If IsNumeric(str) Then Exit Function
Dim item As Object
With CreateObject("vbscript.regexp")
.Global = True: .Pattern = "\d{7}"
For Each item In .Execute(str)
joinn = joinn & IIf(joinn = "", "", "-") & item
Next
End With
End FunctionT
VBA thật sự tôi không biết giải thích sao, bạn thấy được thì cứ sài thôi!!
Không cần chỉnh code đâu bạn, bạn dùng công thức này ở ô T10:
T10=IFERROR(joinn(LOOKUP("zzzz",$K$10:K10)),"")Bạn sửa code lại như vầy:
Function joinn(cell As Range) As String
If IsNumeric(cell) And cell.MergeCells = False Then Exit Function
With CreateObject("vbscript.regexp")
.Global = True: .Pattern = "\d{7}"
For Each item In .Execute(cell.MergeArea(1, 1))
joinn = joinn & IIf(joinn = "", "", "-") & item
Next
End With
End Function
Dữ liệu ít quá!
=LOOKUP(10^10,--MID(B4,SEARCH("vat amt:",B4)+8,ROW($1:$15)))
Đúng là máy em đang để phân cách hàng nghìn là dấu "." thì sẽ bị sai.
C4=--SUBSTITUTE(MID(B4;SEARCH("VAT Amt:";B4)+8;SEARCH(".00";B4;SEARCH("VAT Amt:";B4))-SEARCH("VAT Amt:";B4)-8);",";"")
