二つ条件で最終行の判定について (ID:121983)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 プログラマーの中には『Goto』を見ると其のまま卒倒する人もいます。 『On Error GoTo』や深いネストから一気に抜け出すような特殊なケースを 除いては、GoToは使わない方がいいかも、代わりにフラグと条件分岐を使いましょう。 又数字に直接意味を持たせることも、マジックナンバーと言って、後々コードが 読みにくくなりますので嫌われます、Constを使いましょう。 試してないけど、だいたいこんな感じで。。。。 Option Explicit Const MaxRow = 60 Const CheckCol = 4 Const StartCol = 10 Const EndCol = 36 Dim iRow As Integer Dim Col As Integer Dim Flg As Boolean Dim iMaxRow As Integer iRow = MaxRow Do Flg = False If .Cells(iRow, CheckCol) = "" Then For Col = StartCol To EndCol If .Cells(iRow, Col) <> "" Then Flg = True: iRow = iRow + 1 Exit For End If Next Else Flg = True: iRow = iRow + 1 End If Loop While (Flg) iMaxRow = iRow - 1