制御文を使って簡単にするには？ (ID:108496)

名前

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

本文 ぱっと見た感じ、 SN = CLng(Right(Cells(row - 1, col).Value, 3)) + 1 はどの条件でも使われていますから、 row = ActiveCell.row の下にでも置いたほうが良いですね。それだけで、２行減ります。 パターンさえ解れば、 row = ActiveCell.row 以下の行を関数化できますけどね・・・