(Xin giúp) Code VBA chuyển đổi dữ liệu (1 người xem)

[HaCoChu]

Chào các Anh (Chị) trên diễn đàn:
Em có một vấn đề này mong các anh chị giúp đỡ:
Tại Sheets("Tong"). Em muốn viết 1 Code VBA chuyển đổi dạng dữ liệu Cột B sang dạng như Cột F trong File đính kèm. Em loay hoai từ sáng đến giờ mà vẫn chưa tìm được cách giải quyết
Kính mong Anh (Chị) ngang qua giúp đỡ.
Chúc Anh (Chị) 1 ngày cuối tuần vui vẻ./

 

[HaCoChu]

Có ai giúp em với ạ

 

[PacificPR]

Em vừa tìm được cách này:
1. Hàm Chiết tính:

Function Chiettinh(ByVal Cll) As String
    Dim I As Long, J As Long, Arr, Tmp, Tam
    Dim Str As String, Str1 As String, Kt
On Error GoTo Tiep
If Cll.HasFormula = True Then
    Str1 = Cll.Formula
Else
Tiep:
    Str1 = Cll
End If
Str = Replace(Str1, "=", "")
Arr = Array("+", "-", "*", "/")
For I = 0 To UBound(Arr)
    Str = Replace(Str, Arr(I), ";")
Next I
Tmp = Split(Str, ";")
For J = 0 To UBound(Tmp)
    If IsNumeric(Tmp(J)) Then
        Kt = Tmp(J)
    Else
        Kt = Range(Tmp(J)).Value
    End If
    Str1 = Replace(Str1, Tmp(J), Kt)
Next J
Chiettinh = Str1
End Function

2. Code

Sub Thunghiem()
    Dim sArr, dArr, I As Long
    sArr = Range("A3:B6").Formula
    ReDim dArr(1 To UBound(sArr), 1 To 2)
    For I = 1 To UBound(sArr)
        dArr(I, 1) = sArr(I, 1)
        dArr(I, 2) = Chiettinh(sArr(I, 2))
    Next I
    Range("F3").Resize(I - 1, 2).FormulaLocal = dArr
End Sub

 

[VetMini]

Arr = Array("+", "-", "*", "/")
For I = 0 To UBound(Arr)
Str = Replace(Str, Arr(I), ";")
Next I
Tmp = Split(Str, ";")

Const DLM = ";"
Tmp = Split( Replace(Replace(Replace(Replace(Str, "+", DLM), "-", DLM), "*", DLM), "/", DLM), DLM)

 

[AutoReply]

Const DLM = ";"
Tmp = Split( Replace(Replace(Replace(Replace(Str, "+", DLM), "-", DLM), "*", DLM), "/", DLM), DLM)

ủa ĐLM được hiểu là viết tắt của chữ gì vậy anh ơi ?

 

[VetMini]

đừng lắm mồm

 

[duytmd]

Mình thấy code ở trên có thể áp dụng cho bài của mình được không bạn?
http://www.giaiphapexcel.com/dienda...-lý-gỡ-rối-code-vba.85576/page-66#post-828997

 

[VetMini]

Mình thấy code ở trên có thể áp dụng cho bài của mình được không bạn?
http://www.giaiphapexcel.com/diendan/threads/chuyên-mục-xử-lý-gỡ-rối-code-vba.85576/page-66#post-828997

Muốn biết "có thể" hay không thì cứ thử. Làm bộ hỏi để dụ người ta xem bài của mình chứ gì.