有幾個變化。
1，減少了excel運算的過程，excel運算沒有SQL快，它非常占用內存。
例如，方法rows（I）。delete。
您將它改為cf = Union（cf，rows（I））
最後統壹cf.delete
為了避免每次都刪除。
2.但在這份工作中，妳不需要任何東西。只要選擇這兩行，過濾器中就有“高級過濾器”和“選擇不重復記錄”。
PS，既然妳寫了16500行，說明妳肯定在16500行中有數據，否則妳永遠不會幹凈地刪除空行。
那是我通常寫的
r=9690
do直到單元格（r，1）=““
密碼
r=r+1
環
當生產線為空時，此操作停止。
如果您還有另壹個空行，請將其更改為。
直到單元格（r，1）=““和單元格（r+1）=““為止
判斷兩個連續的空行