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

名前

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

本文 特攻隊長まるるうさん： できました。技術的に自力で解決するまでにはかなり時間かかりますが、今一人で頑張ってますから、早いうちにできるようになっていきます。 考え方を教えてくれてありがとうございます。今現場で一人で仕事しているから、一つ小さいエラーがあっても凄く緊張で頭が混乱しています。簡単に人に聞いて助けるだけと思っていたので、すみませんでした。 ぶぶさん： ご親切にありがとうございます。 ぶぶさん言った通り、苦しんだ分自分の身につくと信じています。 頑張ります。 iRow = 60 Do If .Cells(iRow, 4) <> "" Then iRow = iRow + 1 Else For Col = 10 To 36 If .Cells(iRow, Col) <> "" Then GoTo pass Next Exit Do pass: iRow = iRow + 1 End If Loop iMaxRow = iRow - 1