行1の列名に基づいてExcelの列の幅を自動的に合わせる

Question

列名を含む最初の行のみが範囲が選択されていても、データが自動的に適合します。

Sheetに必要なシートのハンドルがあるとします。私は、CからFまでの列をオートフィットにします。

Sheet.Range("C1:F1").Columns.AutoFit 

参考：私は手動でリサイズを必要とせずに完全な列名を見たいhttps://msdn.microsoft.com/en-us/library/office/ff820840.aspx

。

Answer 1

C1：F1から右側の未使用列にセルの値と書式をコピーし、Range.AutoFitを使用します。調整幅を使用して、元の列幅を設定します。

Dim c As Long, cc As Long 
With Worksheets("Sheet1") 
    cc = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1 
    For c = 3 To 6 
     .Cells(1, c).Copy Destination:=.Cells(1, cc) 
     .Columns(cc).AutoFit 
     .Columns(c).ColumnWidth = .Columns(cc).ColumnWidth 
    Next c 
    .Columns(cc).Cells.Clear 
End With 

これは、フォーマットされたヘッダー行のみに基づいて各列幅を調整します。