MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column MaxCol = Cells(1, 1).End(xlToRight).Column No.8 ワークシートの最終行、最終列を取得する http://www.niji.or.jp/home/toru/notes/8.html