Giúp tìm hiểu thêm về định dạng (1 người xem)

[tueyennhi]

Giúp code xóa, định dạng theo sheet Mẫu

Chào anh chị. Em có file đính kèm. Em muốn sheet Hien tai các dòng dữ liệu (không kể tiêu đề) sẽ định dạng y hệt cột A4 đến cột E4 sheet mẫu (kể cả độ rộng của dòng, cột). Và sau khi định dạng xong sẽ xóa tất cả phần thừa trống (Như trong file đính kèm thì em muốn clean toàn bộ từ dòng A8 trở xuống).
Em cảm ơn!

 

[tueyennhi]

Admin ơi em đổi tiêu đề đầu bài sao không được nhỉ? Nó chỉ thay đổi ở bên trong

 

[tueyennhi]

Có phải bài viết của em không rõ ràng?

 

[tueyennhi]

Có ai giúp em với (

 

[befaint]

Có ai giúp em với (

Sub zyx()
Application.ScreenUpdating = False
Sheets("Mau").Select
Sheets("Mau").Range("A4:E4").Copy
Sheets("Hien tai").Select
With Sheets("Hien tai").Range("A4:E7")
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteColumnWidths
End With
ActiveWindow.DisplayFormulas = False
Sheets("Hien tai").Range("A8:E10000").Clear
Sheets("Hien tai").Range("A1").Select
Application.ScreenUpdating = False
End Sub

p/s: Hãy để ý một chút... Vậy nha!

 

[tueyennhi]

Cảm ơn Befaint, xin lỗi bạn có phải ở Hà Nội không?

 

[tueyennhi]

Mình biến nó thành như vầy nè

Sub Fill1()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False


With ActiveSheet
lr = .[c65000].End(3).Row

Sheets("Mau").Range("A9:AT9").Copy
With ActiveSheet.Range(Cells(9, 1), Cells(lr, 46))
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

With ActiveSheet.Range(Cells(lr + 1, 1), Cells(lr + 3000, 46)).Clear

End With

Application.AskToUpdateLinks = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Dòng With ActiveSheet.Range(Cells(lr + 1, 1), Cells(lr + 3000, 46)).Clear
Có thể viết theo cách khác không? (phần ir+ 3000 ý) mình hỏi vậy để học hỏi thêm