Rút gọn code (1 người xem)

[hungdiep85]

Chào các Thầy

Học tập
Em tạo bằng marco sau đó rút gọn lại còn đuọc như vậy , không biết còn rút gọn được nữa không , kaka , khi chạy vẫn ok nhưng em thấy sao nó chớp qua chớp lại.


Cảm ơn các Thầy




Sub Macro1()
Range("B2:I303").ClearContents
Range("B2").Select
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False
ActiveSheet.Range("$AU$1:$BA$303").AutoFilter Field:=3, Criteria1:="<>"
Range("AU4:BA303").Copy
Sheets("~~Data~~").Select
Range("B1040000").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1040000").End(xlUp).Offset(1).Select
Sheets("~~Update~~").Select
ActiveSheet.Range("$AU$1:$BA$303").AutoFilter Field:=3
Range("B2").Select
Range("B2:I303").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B2").Select
End Sub

 

[Quang_Hải]

Muốn không chớp chớp thì thêm 2 dòng lệnh này vào
Sub Macro1()
Application.Screenupdating = False

.....
.....

Application.Screenupdating = True
End Sub

.........................

Câu này viết vầy cho gọn
Range("B1040000").End(xlUp).Offset(1).PasteSpecial 3

 

[hungdiep85]

Muốn không chớp chớp thì thêm 2 dòng lệnh này vào
Sub Macro1()
Application.Screenupdating = False

.....
.....

Application.Screenupdating = True
End Sub

.........................

Câu này viết vầy cho gọn
Range("B1040000").End(xlUp).Offset(1).PasteSpecial 3

Cảm ơn Thầy ah............