タイトル : Re: 続きですみません。 投稿日 : 2008/04/22(Tue) 14:46 投稿者 : YK
> もとのひな型を行列共に同じ幅に設定することは出来るでしょうか? 私ならこう書きます。 xlApp.ScreenUpdating = False With xlApp.Worksheets("Sheet2") For i = 1 To 26 .Columns(i).ColumnWidth = xlApp.Worksheets("Sheet1").Columns(i).ColumnWidth Next For i = 1 To 50 .Rows(i).RowHeight = xlApp.Worksheets("Sheet1").Rows(i).RowHeight Next End With xlApp.ScreenUpdating = True |