セルが空であるかどうかを確認する方法？

Question

セルが空であるかどうかをチェックするコーディングを探します。空でない場合は、次のセルグループに移動します。しかし、次のセルグループが空であるかどうかを確認する必要があります。そうでない場合は、次のように移動します。

私の現在のコードは以下のとおりです。

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 

Answer 1

あなたが助け "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 

ホープの指定された範囲を繰り返し処理するforループを使用する必要がありますか？

Answer 2

セルが空でないことを確認する最も最適な方法は、「If Len（cell）<> 0」です。

.offsetを使用すると、現在のセルから別のセルにアクセスするか、または直接参照することができます。空であるかどうかを確認できます。

Answer 3

Range("your range").specialcells(xlCellTypeBlanks)をご覧ください。これは、空のセルをループする最速の方法です。
空でないセルをループする必要がある場合は、セルIntersectに空のセル範囲があるかどうかを確認できます。

Answer 4

使用

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

代わりの

IsEmpty(ActiveSheet.Range("h3")) 

真心を込め