Giúp em Insert và xóa dòng hàng tự động

[hoangson8768]

Các bác giúp em dùng VBA để insert các dòng hàng có dữ liệu từ Sheet "CD_Type" sang sheet "ECUS" với ạ
Công việc của em cụ thể là
1. từ Sheet "CD_type" sheet này các cột đều dữ nguyên chỉ có dòng hàng sẽ thay đổi liên tục theo từng lô hàng (lúc 1 dòng hàng, lúc thì đên 200 dòng hàng)
2. Sau đó em sang Sheet "ECUS", nếu dòng hàng ít hơn dòng hàng bên Sheet"CD_Type", thì mình sẽ insert ra dòng hàng cho đủ như bên "Cd_Type". Còn nếu nhiều hơn dòng hàng so với Sheet"Cd_type" thì mình sẽ xóa các dòng hàng đi để cho bằng như "Cd_Type"

Các bác cho e giải pháp dùng VBA để nó tự động được không ạ, hoặc dùng Macro sử dụng nút button cũng dc ạ
Em xin cảm ơn

 

[hoangson8768]

Có thầy nào cứu em vụ này ko ạ

 

[phucbugis]

Có thầy nào cứu em vụ này ko ạ

vụ này để các trò tự xử được rồi
'-------
bạn tải file đính kèm xem sao nhé !
mình thấy bạn đang dùng file có đuôi .xlsx nên đã cài code theo Table, việc cài Table có rất nhiều lợi thế:
1. Hỗ trợ Format Cells (kẻ Border ...) rất khỏe
2. Công thức tự động nhảy
3. Xác định vùng khá đơn giản
'-------
bạn để ý:
- Table đó mình dùng các Header dạng Number để hỗ trợ viết code về sau
- có 1 Name để xác định điểm cuối cùng của Table

[GPECODE=vb]
Sub Update_Rows()
Dim oList As ListObject
Dim rHeader As Range
Dim iRow1 As Long, iRow2 As Long

Set oList = Sheets("ECUS").ListObjects("Table1")
Set rHeader = oList.ListColumns(1).Range(1)

iRow1 = Range("ECUS_footer").Row - rHeader.Row
iRow2 = Application.WorksheetFunction.CountA(Sheets("CD_TYPE").Range("J5:J1000"))

If iRow1 > 2 Then 'xoa' row neu co'
rHeader.Offset(2).Resize(iRow1 - 2).EntireRow.Delete 'chua` lai. 1 Row dau` tien
End If

If iRow2 > 1 Then
With rHeader
.Offset(2).Resize(iRow2 - 1).EntireRow.Insert
.Offset(1).Resize(iRow2).Formula = "=COUNTA($C$3:C3)" 'kich' hoat. cong thuc' cac' cot.
End With
End If

Set oList = Nothing
End Sub
[/GPECODE]

tham khảo thêm cách dùng Table:Ebook "Một số chuyên đề Excel mừng sinh nhật GPE lần 7" (trang 88)