名前
題名
▼ TSさん > ▼ 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
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link