檔案整理加速

清除無效名稱

  • 【資料】>【編輯連結】,中斷無效連結
  • 【公式】>【名稱管理員】,將名稱管理員中不需要的名稱刪除
  • 若工作簿開啟時間緩慢,很有可能是無效名稱過多,可參考以下連結文章以VBA批次刪除:
    [心得] Excel 清除無效連結 或是開啟VBE(ALT + F11)新增模組執行此段程式碼:
Sub RemoveInvalidNames()
Dim i As Integer
Dim name As name
Dim workbookNames As Names
Set workbookNames = ActiveWorkbook.Names
i = 0
For Each name In workbookNames
If InStr(name.Value, "#REF") > 0 Then
i = i + 1
ActiveWorkbook.Names(name.name).Delete
End If
Next
MsgBox "清理完成,共清除" + Str(i) + "個無效名稱!"
End Sub

Inquire COM增益集

  • 右鍵上方功能列 >【自訂功能區】> 勾選【開發人員】>【COM 增益集】> 勾選【Inquire】
  • 在 【Inquire】 索引標籤上,使用【清除多餘的儲存格格式設定】
  • 此功能還可用在清除多餘空白列

另存成xlsb