如何加快修剪宏

Question

我的宏的一部分使用修剪功能。它恰好是我的宏的最慢的部分，我正在加速它。有人有一些代碼可以達到相同的目的，但更快的建議嗎？

Sub Trim() 

For Each c In Sheets("Approved Closing Data Draw").UsedRange c.Value = WorksheetFunction.Trim(c.Value) Next c 

For Each c In Sheets("Pipeline - Underwriting Data D").UsedRange c.Value = WorksheetFunction.Trim(c.Value) Next c 

For Each c In Sheets("Modifications").UsedRange c.Value = WorksheetFunction.Trim(c.Value) Next c 

For Each c In Sheets("Lead Data").UsedRange c.Value = WorksheetFunction.Trim(c.Value) Next c 

Sheets("Approved Closing Data Draw").Select 

End Sub 

Answer 1

兩個主要的事情是關閉計算和屏幕更新。還有其他一些你可以嘗試的東西。請參閱下面的鏈接。

https://www.soa.org/News-and-Publications/Newsletters/Compact/2012/january/com-2012-iss42-roper.aspx

Answer 2

這應該是更快：

Sub DoSheets() 
    TrimUsedRange Sheets("Approved Closing Data Draw") 
    TrimUsedRange Sheets("Pipeline - Underwriting Data D") 
    'etc 
End Sub 

Sub TrimUsedRange(sht As Worksheet) 
    Dim d, r As Long, c As Long 

    With sht.UsedRange 
     If .CountLarge = 1 Then 
      'handle empty sheets 
      .Value = WorksheetFunction.Trim(.Value) 
     Else 
      d = .Value 
      For r = 1 To UBound(d, 1) 
      For c = 1 To UBound(d, 2) 
       d(r, c) = WorksheetFunction.Trim(d(r, c)) 
      Next c 
      Next r 
      .Value = d 
     End If 
    End With 
End Sub 

只需使用Trim()可能會快於WorksheetFunction.Trim()