Unmerge

[ndnlong]

Dear all,
Em có bảng dữ liệu ban đầu trong file đính kèm. Nếu làm thủ công bằng cách unmerge từng ô sau đó copy dữ liệu thì mất thời gian.
Em nhờ các bro hướng dẫn gúp em cách làm nhanh nhất với ạ.
Thanks.

 

[phulien1902]

Dear all,
Em có bảng dữ liệu ban đầu trong file đính kèm. Nếu làm thủ công bằng cách unmerge từng ô sau đó copy dữ liệu thì mất thời gian.
Em nhờ các bro hướng dẫn gúp em cách làm nhanh nhất với ạ.
Thanks.

Bạn chép đoạn Code dưới đây vào Module và chạy nhé:

Sub FillData()
    Dim Vung As Range, LR As Long
    Sheets(1).Range("A:A").UnMerge
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Set Vung = Range("A3:A" & LR)
    Application.ScreenUpdating = False
    Vung.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Vung.Value = Vung.Value
    Application.ScreenUpdating = True
End Sub

 

[khuongvietphong]

Bạn làm thế này cũng được nè:
+ Đầu tiên bạn chọn vùng từ A3:A20 để Unmerge đã.Sau đó

+Tại F3 bạn gõ vào CT sau:

=IF(A3="",F2,A3)

rồi kéo nó xuống đến ô F23

+Tiếp đó bạn phải chuột chọn Copy vùng từ F3:F23

+ Chọn ô A3 ---> phải chuột ---> Paste Specila ----> Value --->OK

Xong . Vậy là cột A bạn sẽ được như ý muốn