- Excel VBA 質問スレ Part33
895 ：デフォルトの名無しさん[sage]：2014/06/25(水) 20:39:19.00 ID:5r4HS54B - >>893
>.cells(rows.count,1).end(xlup).row
>.cells(1,columns).end(xltoleft).column
みつかったセルから1行目まで順繰りに調べて行けばいいだけ
|
- Excel VBA 質問スレ Part33
901 ：デフォルトの名無しさん[sage]：2014/06/25(水) 21:19:26.53 ID:5r4HS54B - >>899
for 探索行 = 見つかった行 to 1 step -1
if 数値かどうか and エラーでは無い とか then
目的の行 = 探索行
exit for
endif
next
|
- Excel VBA 質問スレ Part33
902 ：デフォルトの名無しさん[sage]：2014/06/25(水) 21:24:00.62 ID:5r4HS54B - エラーが全く無いとか、エラーが2回以上続くとか、そういうのに対応するなら工夫がいる
エラーならフラグをたてて、エラーじゃなくなるまで探せばいい
|
- Excel VBA 質問スレ Part33
906 ：デフォルトの名無しさん[sage]：2014/06/25(水) 21:41:08.62 ID:5r4HS54B - 良く読んでなかった、こうだな
LastGoodRow = -1
If Cells(LastRow,1) <> "NaN" Then
LastGoodRow = LastRow
Else
For i = LastRow To 1 Step -1
If Cells(i, 1) <> "NaN" Then
LastGoodRow = i
Exit For
End If
Next
End If
if LastGoodRow = -1 Then
MsgBox "全部エラーだって、信じらんない"
End If
|