対象のシート.Range(対象とする行の先頭のセル).End(xlToRight).Column
Copyright © 2010 Office Tanabe. All Rights Reserved.