如何檢查單元格是否爲空？

-1

尋找能夠檢查單元格是否爲空的編碼。如果不是空的，則移至下一個單元組。但我需要檢查下一個單元組是否爲空。如果不是，則轉到下一個等等。如何檢查單元格是否爲空？

我目前的編碼如下。

If IsEmpty(ActiveSheet.Range("h3")) Then 
    Do 
    Checkbox1.Value = True 
    Range("H3") = 17002 
    Sheets("Sheet1").Range("I3") = Printerformat2.Text 
Else 
    Checkbox1.Value = True 
    Range("l3") = 17002 
    Sheets("Sheet1").Range("m3") = Printerformat2.Text 
End If

來源

2011-08-12 Jeremiah Sky S

可能會在細胞有公式？ –

該代碼無法編譯。 '不''循環'。 –

你需要使用一個for循環中的「H」

Dim i As Long 
With ActiveSheet 
    For i = 1 to 500 

    If IsEmpty(.Range("h" & CStr(i)).Value) Then 
    'Do 'Not sure where you're going with this one? This is not really needed from what I can tell. 
    Checkbox1.Value = True 
    .Range("H" & CStr(i)).Value = 17002 
    Sheets("Sheet1").Range("I" & CStr(i)).Value = Printerformat2.Text 
    Else 
     Checkbox1.Value = True 
     .Range("l" & CStr(i)) = 17002 
     Sheets("Sheet1").Range("m" & CStr(i)).value = Printerformat2.Text 
    End If 

    Next 
End With

希望幫助在指定的範圍來迭代？

來源

2011-08-13 01:23:56

+1，但通過使用字符串連接來構建單元格地址，您正在破壞自己。 –

你會建議什麼方法呢？我通常使用「細胞」，例如：'私人枚舉列僱員= 1個部= 2 管理器= 3 結束枚舉專用功能getCellByString（列如列，行作爲龍）作爲字符串隨着工作表Sheet getCellByString = CStr的（.Cells（行，列））尾隨着端功能公用Sub GetDetails（） MSGBOX getCellByString（經理，2）結束小組 ' –

確保單元格不爲空的最優化方法是「如果Len（單元格）<> 0」。

您可以使用.offset從當前單元格訪問與其位置相關的另一個單元格，或者直接引用它，以便檢查它是否爲空。

來源

2011-08-13 13:46:04 aevanko

我想你應該看看Range("your range").specialcells(xlCellTypeBlanks)。這是通過空單元循環的最快方式。
如果您需要循環播放非空白單元格，則可以檢查您的單元格Intersect是否爲空單元格範圍。

來源

2011-08-13 18:15:37

使用

Application.WorksheetFunction.isblank(ActiveSheet.range("h3"))

，而不是

IsEmpty(ActiveSheet.Range("h3"))

親切

來源

2012-08-03 09:43:42

爲什麼？對我來說，它似乎不工作，'isblank' – Dolanor

如何檢查單元格是否爲空？

回答

相關問題