Nhờ giúp thay thế ô trống theo điều kiện sau khi dùng điều kiện if không hiệu quả (1 người xem)

[tuanminh_t2]

Em đang gặp vấn đề với việc thay thế ô trống theo điều kiện là cứ thấy ô trắng trong vùng dữ liệu thì thay thế bằng ô liền kề bên trái (cùng hàng) có giá trị.
Em đã dùng hàm if để lập ra vùng dữ liệu mới nhưng gặp vấn đề là với các hàng có nhiều ô trắng liên tiếp thì sử dụng hàm if như cách của em hiện tại không thể giải quyết triệt để một lần mà phải lặp lại nhiều lần và khá thủ công. Do hiện tại em đang xử lí khối dữ liệu lớn nên cách này không hiệu quả. Mong anh chị giúp em tìm ra hàm khác hoặc dùng marco để lặp lại giúp em quá trình dò tìm và thay thế tự động như trên.
Em có gửi file kèm để các ACE giúp em. Em chân thành cảm ơn.

 

[gtri]

Em đang gặp vấn đề với việc thay thế ô trống theo điều kiện là cứ thấy ô trắng trong vùng dữ liệu thì thay thế bằng ô liền kề bên trái (cùng hàng) có giá trị.
Em đã dùng hàm if để lập ra vùng dữ liệu mới nhưng gặp vấn đề là với các hàng có nhiều ô trắng liên tiếp thì sử dụng hàm if như cách của em hiện tại không thể giải quyết triệt để một lần mà phải lặp lại nhiều lần và khá thủ công. Do hiện tại em đang xử lí khối dữ liệu lớn nên cách này không hiệu quả. Mong anh chị giúp em tìm ra hàm khác hoặc dùng marco để lặp lại giúp em quá trình dò tìm và thay thế tự động như trên.
Em có gửi file kèm để các ACE giúp em. Em chân thành cảm ơn.

Nếu điền trực tiếp vào vùng dữ liệu gốc thì làm thử thế này xem sao
VD theo file đính kèm:
Chọn vùng A1:N6
Nhấn Ctrl+G --->Special--->Blanks--->Ok
Gõ =A3, nhấn Ctrl+Enter

 

[Ba Tê]

Em đang gặp vấn đề với việc thay thế ô trống theo điều kiện là cứ thấy ô trắng trong vùng dữ liệu thì thay thế bằng ô liền kề bên trái (cùng hàng) có giá trị.
Em đã dùng hàm if để lập ra vùng dữ liệu mới nhưng gặp vấn đề là với các hàng có nhiều ô trắng liên tiếp thì sử dụng hàm if như cách của em hiện tại không thể giải quyết triệt để một lần mà phải lặp lại nhiều lần và khá thủ công. Do hiện tại em đang xử lí khối dữ liệu lớn nên cách này không hiệu quả. Mong anh chị giúp em tìm ra hàm khác hoặc dùng marco để lặp lại giúp em quá trình dò tìm và thay thế tự động như trên.
Em có gửi file kèm để các ACE giúp em. Em chân thành cảm ơn.

Thử Run Sub này xem sao:

Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range("B1:N13")
For Each Cll In Rng
    If Cll.Value = Empty Then
        Cll.Value = Cll.Offset(, -1).Value
        Cll.Font.ColorIndex = 3
    End If
Next Cll
Set Rng = Nothing
End Sub

 

[tuanminh_t2]

Cảm ơn bác pro dã giúp, em đã làm được theo cách bác hướng dẫn

 

[tuanminh_t2]

em làm theo code bác hướng dẫn, vẫn ko chạy được. Nó cứ báo là can't execute code in break mode và nó tô vàng Public Sub GPE().

 

[gtri]

em làm theo code bác hướng dẫn, vẫn ko chạy được. Nó cứ báo là can't execute code in break mode và nó tô vàng Public Sub GPE().

Chắc là vội quá copy thiếu dòng End Sub cuối cùng

 

[tuanminh_t2]

Chắc là vội quá copy thiếu dòng End Sub cuối cùng

Cảm ơn bác đã tận tình giúp đỡ nhe, do em gà mấy vụ code này lắm nên cơ bản thế cũng ko thấy .