當值爲空時刪除公式

我希望有一種快捷的方法來刪除單元格中的公式，如果結果爲空。當值爲空時刪除公式

具體而言，如果公式的結果是錯誤，那麼使用IFERROR，我已經將公式設置爲「」（即空白）。雖然單元格看起來空白，但它們仍包含公式;因此，我無法對數據運行統計分析（使用XLSTAT），因爲它們被視爲非數字單元格。我試過查找和替換，但沒有奏效。鑑於列數和數據量較高，過濾每行「空白」並手動刪除這些單元會花費很長時間。任何想法將不勝感激。

來源

2016-01-04 KRD

猜你不知道VBA等方面做了查找/替換'「」'一些隨機字符串，然後找到替換所說的隨機字符串？ – findwindow

一旦您以所需的方式查看工作表*，請選擇整個工作表，然後將其粘貼到另一個僅包含值的工作表中。然後在第二張紙上運行分析。 – Sablefoste

我建議刪除IFERROR並將錯誤帶回單元格。選擇您想要刪除錯誤單元格的區域。按Ctrl + G。將出現「轉到」窗口。點擊特殊。選擇公式，取消勾選除錯誤複選框外的全部。點擊確定。然後點擊鍵盤上的刪除。 – Rosetta

嘗試運行這短短的宏：

Sub SheetFixer() 
    Dim r As Range, rng As Range 
    On Error Resume Next 
    Set rng = ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas) 

    If Err.Number <> 0 Then 
     Error.Number = 0 
     On Error GoTo 0 
     MsgBox "No formulas on sheet." 
     Exit Sub 
    End If 

    For Each r In rng 
     If r.Value = "" Then r.Clear 
    Next r 
    On Error GoTo 0 
End Sub

來源

2016-01-05 00:05:31

謝謝加里的學生。我對宏不太熟悉，但這很好理解。我能夠使用KS Sheon的修復。 – KRD

當值爲空時刪除公式

回答

相關問題