Cần giúp viết code VBA cho báo cáo (1 người xem)

[HUNGNGUYENCONG]

Nhờ các anh /chị giúp em làm Code cho sheets Data trong file đính kèm .​

Hiện tại em cứ phải copy và dán bằng tay cho từng hàng ở côt A rất lâu ạ .​

File của e khoảng 2500 dòng .E cảm ơn .​

 

[phulien1902]

Nhờ các anh /chị giúp em làm Code cho sheets Data trong file đính kèm .​

Hiện tại em cứ phải copy và dán bằng tay cho từng hàng ở côt A rất lâu ạ .​

File của e khoảng 2500 dòng .E cảm ơn .​

Bạn cho kết quả 6 dòng màu vàng đầu tiên xem sao. Vì kết quả bạn chụp không liên quan gì đến số liệu đầu vào.

 

[HUNGNGUYENCONG]

Bạn cho kết quả 6 dòng màu vàng đầu tiên xem sao. Vì kết quả bạn chụp không liên quan gì đến số liệu đầu vào.

Gửi bạn kết quả theo file đính kèm ,mình tô màu ở cột A cho dễ nhìn .Mong mọi người giúp ạ.

 

[phulien1902]

Gửi bạn kết quả theo file đính kèm ,mình tô màu ở cột A cho dễ nhìn .Mong mọi người giúp ạ.

Bạn thử:

Sub Test()
        Columns(1).SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

Hoặc:

Sub Test()
        Selection.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

 

[HUNGNGUYENCONG]

Bạn thử:

Sub Test()
        Columns(1).SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

Hoặc:

Sub Test()
        Selection.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

Dạ chạy được rồi ạ,em cảm ơn ạ.