我有一個EXCEL檔案，其中有大約6800個行專案，我在每個行專案中添加了影像/物件，并保存了檔案。
這個excel檔案(.xlsx)現在的大小為17.2MB。 我所面臨的問題是，在加載所有影像后，我無法使用該檔案。請注意下面所發生的一切。
- 檔案需要大約10分鐘8秒才能打開， 。
- 對于任何進一步的行動（保存、過濾、插入新行、洗掉舊行、選擇檔案中的所有物件），檔案首先進入 "無回應 "模式，然后移動到活動狀態。(這可能需要10分鐘到15分鐘的時間）
我是如何將所有圖片添加到行中的？
我使用了一個圖片查找來實作這一目標，并使用以下索引和匹配函式將圖片查找到每一行。
=INDEX(Sheet1!$B$2:$B$6800,MATCH(Sheet1!$A$2,Sheet2!$A$2:$A$6800,0))我使用下面的代碼來復制影像和資料值到每個影像
Sub images() Dim rngSel As Range Dim rngHdr As Range Dim rngCell As Range Dim sht As Worksheet Dim myshape As Shape Application.ScreenUpdating = False 如果選擇的型別是范圍，那么 Set rngHdr = Selection.Cells(1, 1) 設定 sht = rngHdr.Parent ' 找到形狀 For Each myshape In ActiveSheet.Shapes 如果myshape.Type = msoAutoShape 或者myshape.Type = msoPicture 那么 如果Intersect(myshape.TopLeftCell, rngHdr)是Nothing，那么 否則 myshape.Copy 退出 End If End If 下一個myshape For Each rngCell In Selection.Cells 如果rngCell.Address <> rngHdr.Address 那么 sht.Paste rngCell 結束 如果 下一個rngCell End If Application.ScreenUpdating = True End Sub
需要幫助以使檔案可操作。
CodePudding
通過在啟動程式時按住Ctrl進入安全模式，或者在命令提示符中使用/safe開關（excel.exe /safe）。點擊 "檔案" > "選項" > "插件"。... 然后重新啟動Excel。
uj5u.com熱心網友回復：
該檔案是否在網路檔案夾中？試著在本地使用它。還可以嘗試將計算設定為手動：
Application.Calculation = xlManual
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/323576.html
標籤：
上一篇：用VBA將月數除以周數