|
▼ Mr.XRAYさん
>対象範囲のセルのデータまるごとバリアント配列に格納して処理しちゃうんだけど...
VBAでもバリアントの方が処理が早いそうです。
下記のコードは検証してません、と言うか違っていると思います。
とりあえずこんな感じという事で。
Function 空白セルのカウント(RangeA As Range)
Dim C As Variant
Dim i, j As Long
C = RangeA.Value
count = 0
For i = 1 To RangeA.Rows.count
For j = 1 To RangeA.Columns.count
If C(i, j) = "" Then
count = count + 1
End If
Next j
Next i
空白セルのカウント = count
End Function
|