emgaingayngo
Thành viên hoạt động
- Tham gia
- 9/2/07
- Bài viết
- 141
- Được thích
- 5
PHP:
Sub XoaData()
Dim dong As Long
dong = Range("A100000").End(xlUp).Row
With S02
Application.Calculation = xlCalculationManual
.Range("NI3").Resize(dong + 2, 364).ClearContents
.Range("AA1").Value = "Data's Empty"
Application.Calculation = xlCalculationAutomatic
End With
End SubVới giá trị dong ~ 85000 dòng.
Xin hỏi còn cách nào khác để xoá cho lẹ hơn ?
