1

Excel ワークブックに 52 枚のシートがあります (毎週 1 枚)。それらはすべてまったく同じテーブルを持ちますが、値 (キャッシュ フロー) が異なります。ここで、セルの数値の長さが異なるため、すべてのシートですべての列の幅が異なります。たとえば、次のようになります。

Sheet1, column A width = 100 pixels
Sheet2, columb A width = 105 pixels

Sheet1, column B width = 150 pixels
Sheet2, column B width = 135 pixels ... so on

私が達成したいことは、すべてのワークシートのすべての列をまったく同じ幅と高さにすることです。ただし、これは、そのシートだけでなく、すべてのシートを組み合わせたその列の最大値に基づいている必要があります。

すべてのシートを選択することはできますが、次のステップで行き詰まっています。特定の列、またはすべての列を一度に幅に変更して、結合されたすべてのシートの最大値を表示するにはどうすればよいですか。たとえば、次のようになります。

Sheet1, column A - based on its largest value, requires width of 120 pixels
Sheet2, column A - based on its largest value, requires width of 140 pixels
Sheet3, column A - based on its largest value, requires width of 100 pixels

すべての 52 シートのすべての列 A のサイズを 140 ピクセルに変更したいと考えています。

目的は、この方法で、印刷時に 52 枚のシートすべてが同じサイズのテーブルをホストすることです。

これは何らかの方法で自動的に行うことができますか?

4

3 に答える 3

1

=Cell("width",A1)既存の必要な列幅 (など)をすべて見つけ、各列の MAX を見つけるために統合し、幅をグループ化して適切に調整することにより、マクロなしで実現できます。

于 2013-09-09T19:14:02.477 に答える
-1

マクロを恐れていない場合は、次のようなことができます。

For Each ws As WorkSheet In ActiveWorkbook.Worksheets
    ws.Columns.AutoFit
Next ws
于 2013-09-09T18:15:01.463 に答える