名前
題名
▼ まちださん > ▼ Mr.XRAYさん > > (1) 特定の複数のセルが入力されている行 > > (2) 逆に，特定の複数のセルが全て空白である行 > > > これなら回答できます〜。(笑) > > snailさんとは、別アプローチで > 「データが連続して入っている(入っていない)最後のセルを求める」 > ようなマクロを書いてみます。 > > Sub NullRow() > > Dim iRow As Integer > Dim iCol As Integer > > For iRow = 1 To 10 > iCol = Cells(iRow, 1).End(xlToRight).Column > If iCol = 16384 And Cells(iRow, 1) = "" Then > MsgBox ("Null行です") > Else > MsgBox ("データあり") > End If > Next > > End Sub > > 通常は > > Range("A1").End(xlDown).Row > > みたいな感じで、A列に連続して入力されているデータが > どこまであるか…なんてとります。 > > Whileループで回してもいいんだけど > 毎行チェックするよりFor文の方が早いです。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link