我正在使用一種常用的方法，即選擇范圍并打開查找和替換視窗，然后提到特定值，然后用空單元格替換它，這個程序需要很長時間。
然后我嘗試使用 VBA，但它也需要時間。我希望必須有任何快速的方法來實作這一目標。任何幫助將不勝感激。
Sub fillblankcells()
Dim ws As Worksheet
Dim rng As Range
Set ws = Worksheets("Done")
For Each rng In ws.Range("B2:AB120000")
If IsEmpty(rng) Then
rng.Value = 0
End If
Next
End Sub
uj5u.com熱心網友回復：
嘗試類似以下內容。您需要確保AB120000在呼叫之前已填寫SpecialCells。
If IsEmpty(ws.Range("AB120000")) Then
ws.Range("AB120000").Value = 0
End If
On Error Resume Next ' ignore error if no blank cells
ws.Range("B2:AB120000").SpecialCells(xlCellTypeBlanks).Value = 0
On Error GoTo 0
uj5u.com熱心網友回復：
只是給你一個想法：
我創建了一個 Excel 作業表，其中填充了單元格 B2、B120000、AB2 和 AB120000 以及一些隨機的其他單元格（在該區域內）。
在“名稱框”中，我輸入了范圍B2:AB120000。
我按下Ctrl G(Goto)，要求Special，然后選擇Blanks，這花了大約一分鐘。
在地址欄中，我輸入0并按下Ctrl ENTER。
在不到 2 分鐘的時間內，所有空白都被零替換。
您收到的第一個評論和答案是此操作的自動化。
編輯
如果您對該Not Applicable值感興趣，可以輸入=NA()而不是0在地址欄中輸入。
范圍放在哪里？你可以看到這個截圖：
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/345264.html
上一篇：錄制了一個宏以將資料透視表中的（空白）更改為空單元格。運行ExecuteExcel4Macro時出現1004錯誤