|
▼kouka さん:
1.アドレスとか無しで空白セルが有るかどうかだけ検索する場合
エクセル関数 COUNTIFで空白の個数を検索したらいいのではないでしょうか。
Sub H()
A = Application.WorksheetFunction.CountIf(Range("A1:A10"), "")
MsgBox A = 0
End Sub
2.アドレスとか無しで空白セルが有るかどうかだけ検索する場合
これはFor使ってしまいますが・・・。
エクセル関数 COUNTIFで空白の個数を検索した結果が0でない場合、
SpecialCells(xlCellTypeBlanks) ← 空のセルを取得
見つかった空のセルのアドレスを取得
Sub B()
A = Application.WorksheetFunction.CountIf(Range("A1:A10"), "")
If A <> 0 Then
For Each C In ActiveSheet.Range("A1:A10").SpecialCells(xlCellTypeBlanks)
MsgBox C.Address
Next
End If
End Sub
|
|