如何使用 Excel VBA 檢查一個單元格或多個單元格區域是否為空?

今天我們將學習如何使用 Visual Basic for Applications 輕鬆檢查一個或多個單元格是否為空。內容與 Excel 2019 / 365、2016 及更早版本的 Microsoft Office 相關。

準備工作

在 Excel 中開始使用 VBA 進行編碼之前,您需要確保您的開發選項卡已啟用。如果不是這種情況,請查看這個簡短的教程

使用 VBA 檢查 Excel 單元格範圍是否為空

  • 在 Excel 中,按 Alt+F11 打開 Visual Basic 環境
  • 將以下代碼作為過程插入到您的工作表中,或者插入到專用的 VBA 模塊中。
Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub


  • 轉到您的電子表格並選擇任意範圍的單元格。
  • 返回到 Visual Basic 編輯器並確保立即查看器 (CTRL+G) 可見 - 因為代碼中的 Debug.Print 方法會將其結果輸出到該窗口。
  • 按 F5 運行您的代碼。
  • 在即時窗口中查看結果。

如何使用 Excel VBA 檢查一個單元格或多個單元格區域是否為空?

  • 將識別所有空白單元格。

可能的代碼擴展:您顯然可以根據需要擴展此代碼,以防您有興趣跳過空白值,或者在單元格未滿的情況下不執行任何操作。同樣,您可以檢查 Range 本身是否為空,即 - 不包含黑色單元格。

檢查非空字段

以同樣的方式,您可以使用 IsEmpty 屬性檢查非空白字段。

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

獎勵:如果您還想突出顯示空白單元格,請使用以下程式碼。

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range 設定 myRange = Range(“A1:A10”) 對於 myRange 中的每個 myCell ' c = c + 1 If IsEmpty(myCell) then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "共有" &我和」 “” 中的空白單元格&和”。”

Leave a Comment

[已更新] 如何修復 Windows 10 更新錯誤 0x80244022

[已更新] 如何修復 Windows 10 更新錯誤 0x80244022

為了解決 Windows 10 更新錯誤 0x80244022,請參考有效的解決方案,例如運行疑難解答、檢查網絡設定等。

如何在 Discord 上播放 Disney+

如何在 Discord 上播放 Disney+

唯一比觀看 Disney+ 更好的是和朋友一起觀看。通過本指南了解如何在 Discord 上流式傳輸 Disney+。

已修復:Hamachi 無法在 Windows 10 和 11 上獲取適配器配置

已修復:Hamachi 無法在 Windows 10 和 11 上獲取適配器配置

閱讀完整指南以了解如何解決 Windows 10 和 11 上的 Hamachi 無法獲取適配器配置錯誤,解決方案包括更新驅動程序、防火牆設置等

修復 REGISTRY_ERROR 藍屏錯誤 (0x00000051) 的 7 個工作解決方案

修復 REGISTRY_ERROR 藍屏錯誤 (0x00000051) 的 7 個工作解決方案

了解修復 REGISTRY_ERROR 藍屏錯誤 (0x00000051) 的有效方法,解決 Windows 系統中遇到的註冊表錯誤。

如何在 Roku 上更改音量

如何在 Roku 上更改音量

在 Roku 上調整聲音比使用遙控器向上或向下移動更多。以下是如何在 Roku 上更改音量的完整指南。

如何修復 Roblox 錯誤代碼 267 [7 簡單修復]

如何修復 Roblox 錯誤代碼 267 [7 簡單修復]

在 Roblox 中被禁止或踢出遊戲的錯誤代碼 267,按照以下簡單解決方案輕鬆解決...

[已解決] 如何解決 Rust 不斷崩潰的問題?

[已解決] 如何解決 Rust 不斷崩潰的問題?

面對 Rust 在啟動或加載時不斷崩潰,然後按照給出的修復並輕鬆停止 Rust 崩潰問題...

[已修復] 驅動程序 WudfRd 在 Windows 10 中無法加載錯誤 219

[已修復] 驅動程序 WudfRd 在 Windows 10 中無法加載錯誤 219

如果在 Windows 10 中遇到 Driver WudfRd failed to load 錯誤,事件 ID 為 219,請遵循此處給出的修復並有效解決錯誤 219。

如何修復“未知軟件異常(0xe0434352)”?

如何修復“未知軟件異常(0xe0434352)”?

發現修復此處給出的 Windows 10 和 11 上的未知軟件異常 (0xe0434352) 錯誤的可能解決方案

[已解決] Grand Theft Auto V 中的“Script Hook V 嚴重錯誤”

[已解決] Grand Theft Auto V 中的“Script Hook V 嚴重錯誤”

想知道如何修復 GTA 5 中的腳本掛鉤 V 嚴重錯誤,然後按照更新腳本掛鉤應用程序等修復,重新安裝 GTA 5 和其他