Nhờ giúp hàm thay đổi kí tự

[lala_qn]

chào a/c !
trong file vd3 e đính kèm, ở cột B em muốn thay đổi các kiểu kí tự như trong vd3 , nhờ a/c giúp dùm e hàm với ạ,
cảm ơn ạ !

 

[n0thing1988]

Xem bài hướng dẫn sau và áp dụng vào trường hợp của mình bạn lala_qn nhé
https://support.office.com/vi-vn/ar...BSTITUTE-6434944e-a904-4336-a9b0-1e58df3bc332

 

[phulien1902]

chào a/c !
trong file vd3 e đính kèm, ở cột B em muốn thay đổi các kiểu kí tự như trong vd3 , nhờ a/c giúp dùm e hàm với ạ,
cảm ơn ạ !

Bạn thử với Code dưới đây nhé

Sub abc()
    [B2:B13] = [A2]
    Application.ScreenUpdating = False
    With Sheets(1).Range("B2")
        .Offset(1, 0).Replace ".", ","
        .Offset(2, 0).Replace ".", " "
        .Offset(3, 0).Replace "=", "-"
        .Offset(4, 0).Replace "=", "/"
        .Offset(5, 0).Replace "=", "~"
        .Offset(6, 0).Replace ".", ","
        .Offset(6, 0).Replace "=", "-"
        .Offset(7, 0).Replace ".", ";"
        .Offset(7, 0).Replace "=", "~"
    End With
    Application.ScreenUpdating = True
End Sub

 

[lala_qn]

Xem bài hướng dẫn sau và áp dụng vào trường hợp của mình bạn lala_qn nhé
https://support.office.com/vi-vn/ar...BSTITUTE-6434944e-a904-4336-a9b0-1e58df3bc332

đã tìm dc hàm thanks a

 

[lala_qn]

Bạn thử với Code dưới đây nhé

Sub abc()
    [B2:B13] = [A2]
    Application.ScreenUpdating = False
    With Sheets(1).Range("B2")
        .Offset(1, 0).Replace ".", ","
        .Offset(2, 0).Replace ".", " "
        .Offset(3, 0).Replace "=", "-"
        .Offset(4, 0).Replace "=", "/"
        .Offset(5, 0).Replace "=", "~"
        .Offset(6, 0).Replace ".", ","
        .Offset(6, 0).Replace "=", "-"
        .Offset(7, 0).Replace ".", ";"
        .Offset(7, 0).Replace "=", "~"
    End With
    Application.ScreenUpdating = True
End Sub

cái này sử dụng hơi rườm rà, thanks a !

 

[phulien1902]

cái này sử dụng hơi rườm rà, thanks a !

Bạn có cách hay, xin chỉ bảo để tôi được mở rộng tầm mắt.

 

[lala_qn]

Bạn có cách hay, xin chỉ bảo để tôi được mở rộng tầm mắt.

e vd 2 hàm a nhé !
=SUBSTITUTE(A2, ".", ",")
=SUBSTITUTE(SUBSTITUTE(A2, ".", ","),"=","~")

 

[phulien1902]

e vd 2 hàm a nhé !
=SUBSTITUTE(A2, ".", ",")
=SUBSTITUTE(SUBSTITUTE(A2, ".", ","),"=","~")

Tôi muốn dùng Code bấm nút 1 phát là ra kết quả mong muốn từ B2 đến B13 như trong File bạn gửi( Mặc dù Code tôi gửi cũng chưa đầy đủ, bạn tự tùy biến thêm).
Còn cách dùng công thức chỉ xử lý được từng Cell như:
B3: 1 công thức
B4: 1 công thức.....
..
Tóm lại hay dở là do người dùng, tất cả cách làm chỉ là tham khảo.