特定のセル/行を除外してExcelで列の幅を自動的に調整する

Question

関連する質問を複数回検索するようになりましたが、これまでに似たような質問はありませんでした。誰もがいつもカラムの幅を調整する方法を知りたいと思っています。それは簡単です。私はずっとニュアンスのある質問があります。

私は自動調整が大好きで、きれいな表を作成し、すべてが表示されていることを確認します（ctrl-a、列間の上部をダブルクリックします）。しかし、テーブルの一番下にある）、それは400ピクセル幅のような列を作成して、列の見出しやテーブルのデータごとに更新したいときに、テキスト全体をキャプチャします。 私は、このテキストセルを無視して、自動調整のためにExcelにフラグを立てることができるようにしたいと考えています。

中央に配置しても問題ない場合は、そのセルの位置合わせ（右に1セル）を「中心を横切る」に設定すると無視されます。しかし、上記の例のように、私はしばしばこのテキストを左または右に正当化し、C.A.S.を許さないようにします。働く

誰でもこれを達成できましたか？

Answer 1

VBAソリューションで問題がなければ、カスタムルーチンを作成してこれを行うことができます。あなたは範囲を渡す場合は、この例では、「自動調整ヘッダのみ、」それは基本的に自動調整を実行して、クリーンなセルにヘッダをコピーし、その後、あなたの列にそのautofitted幅を適用したい：

Sub AutoFitHeader(HeaderRow As Range) 

    Dim col As Range 
    Dim ws As Worksheet 
    Set ws = ActiveWorkbook.Worksheets.Add 
    ws.Visible = xlSheetHidden 

    Application.DisplayAlerts = False 

    For Each col In HeaderRow 
    ws.Range("A1").Value = col.Value 
    ws.Columns("A").AutoFit 

    col.EntireColumn.ColumnWidth = ws.Columns("A").ColumnWidth 
    Next col 

    ws.Delete 

    Application.DisplayAlerts = True 

End Sub 

そして、

AutoFitHeader Range("A1:H1")