マージセルの範囲 (ID:91863)

名前

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

本文 説明が下手なのでソースを張ります logMageStart = 1 Do Until 0 = InStr(logMageStart, strMageCall, "[") logMageStart = InStr(logMageStart, strMageCall, "[") logMageEnd = InStr(logMageStart, strMageCall, "]") - logMageStart logMagehenkan = strMageCall logMagehenkan = Mid(logMagehenkan, logMageStart, logMageEnd) logMagehenkan = Replace(logMagehenkan, "[", "") logMageCallNo = CLng(logMagehenkan) + 1 xlsNewSheet.Cells(1, i).ColumnWidth _ = (xlsNewSheet.Cells(1,i).ColumnWidth) _ + (xlsFromat.Cells(logFitrowNo, logMageCallNo).ColumnWidth) logMageStart = logMageStart + 1 Loop って感じなんですが・・・・ どうも文字を取ってセルを指定するのが力技なのでいやなんですよね もっとコンパクトにやる方法ってないですかね？ よろしくお願いします