Nhờ chỉnh Code tính diễn giải (1 người xem)

[PMU.UPGC]

Em có file excel đính kèm. em muốn: số sau dấu = ở cột C chuyển sang cột E và tô màu đỏ. tại cột C bỏ dấu = và số sau dấu =. Em mong các anh chị giúp đỡ, em cám ơn nhiều.

 

[excel_lv1.5]

Em có file excel đính kèm. em muốn: số sau dấu = ở cột C chuyển sang cột E và tô màu đỏ. tại cột C bỏ dấu = và số sau dấu =. Em mong các anh chị giúp đỡ, em cám ơn nhiều.

Bạn chạy code này thử xem:

Private Sub splidd()
Dim i As Long, arr
arr = Range("c8:c" & [C10000].End(xlUp).Row)
On Error Resume Next
For i = 1 To UBound(arr)
    Cells(7 + i, 3) = Split(arr(i, 1), "=")(0): Cells(7 + i, 5) = Split(arr(i, 1), "=")(1)
Next
Range("e8:e" & [C10000].End(xlUp).Row).Font.ColorIndex = 3
End Sub

 

[vu_tuan_manh_linh]

Bạn tham khảo file này đi!

 

[PMU.UPGC]

Bạn tham khảo file này đi!

cái này thì cũng như của mình rồi

 

[PMU.UPGC]

Bạn chạy code này thử xem:

Private Sub splidd()
Dim i As Long, arr
arr = Range("c8:c" & [C10000].End(xlUp).Row)
On Error Resume Next
For i = 1 To UBound(arr)
    Cells(7 + i, 3) = Split(arr(i, 1), "=")(0): Cells(7 + i, 5) = Split(arr(i, 1), "=")(1)
Next
Range("e8:e" & [C10000].End(xlUp).Row).Font.ColorIndex = 3
End Sub

mình thử không thấy được

 

[phulien1902]

mình thử không thấy được

Tôi thử vẫn được đấy chứ, bạn có thể tham khảo Code tương tự:

Sub abc()
    Dim LR&, i&
    LR = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 9 To LR
        Cells(i, 5) = Split(Replace(Cells(i, 3), "*=", ""), "=")(1)
        Cells(i, 5).Font.ColorIndex = 3
    Next i
End Sub

 

[Ba Tê]

cái này thì cũng như của mình rồi

Bạn muốn chỉnh code của bạn phải không?
Nhập diễn giải vào cột C, Ghi kết quả vào cột E ?

 

[PMU.UPGC]

Bạn muốn chỉnh code của bạn phải không?
Nhập diễn giải vào cột C, Ghi kết quả vào cột E ?

Em cảm ơn ạ, Đúng ý e rồi nhưng phải tính tổng ở cột E khi cột B có mã hiệu ạ.