如何自動調整已合併單元格的列？

Question

在C＃中，對於Excel電子表格，我該如何自動調整已合併單元格的列？我試着用下面的代碼來做這件事，但它不會自動填充列。

這是到目前爲止我的代碼：

Worksheet xlSheet 

xlSheet.Cells[2, 1] = "Autobiographies and Titles, Autobiographies and Titles, Autobiographies 
and Titles, Autobiographies and Titles, Autobiographies and Titles, Autobiographies and Titles, 
Autobiographies and Titles, Autobiographies and Titles"; 

Range hRangeSubsystemName = xlSheet.get_Range("A2", "G2"); 
hRangeSubsystemName.MergeCells = true; 
hRangeSubsystemName.EntireColumn.AutoFit(); 

Answer 1

您無法在Excel合併單元格列使用自動調整。

查看MS支持文章：

http://support.microsoft.com/kb/212010

Answer 2

也許你可以將此轉換爲C＃，但我發現一個VB宏here，將模擬的工作表上的任何單元格合併的自動調整。從MrExcel.com

Sub AutoFitMergedCellRowHeight() 
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single 
Dim CurrCell As Range 
Dim ActiveCellWidth As Single, PossNewRowHeight As Single 
Dim StartCell As Range, c As Range, MergeRng As Range, Cell As Range 
Dim a() As String, isect As Range, i 


'Take a note of current active cell 
Set StartCell = ActiveCell 

'Create an array of merged cell addresses that have wrapped text 
For Each c In ActiveSheet.UsedRange 
If c.MergeCells Then 
    With c.MergeArea 
    If .Rows.Count = 1 And .WrapText = True Then 
     If MergeRng Is Nothing Then 
      Set MergeRng = c.MergeArea 
      ReDim a(0) 
      a(0) = c.MergeArea.Address 
     Else 
     Set isect = Intersect(c, MergeRng) 
      If isect Is Nothing Then 
       Set MergeRng = Union(MergeRng, c.MergeArea) 
       ReDim Preserve a(UBound(a) + 1) 
       a(UBound(a)) = c.MergeArea.Address 
      End If 
     End If 
    End If 
    End With 
End If 
Next c 


Application.ScreenUpdating = False 

'Loop thru merged cells 
For i = 0 To UBound(a) 
Range(a(i)).Select 
     With ActiveCell.MergeArea 
      If .Rows.Count = 1 And .WrapText = True Then 
       'Application.ScreenUpdating = False 
       CurrentRowHeight = .RowHeight 
       ActiveCellWidth = ActiveCell.ColumnWidth 
       For Each CurrCell In Selection 
        MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth 
       Next 
       .MergeCells = False 
       .Cells(1).ColumnWidth = MergedCellRgWidth 
       .EntireRow.AutoFit 
       PossNewRowHeight = .RowHeight 
       .Cells(1).ColumnWidth = ActiveCellWidth 
       .MergeCells = True 
       .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ 
        CurrentRowHeight, PossNewRowHeight) 
      End If 
     End With 
MergedCellRgWidth = 0 
Next i 

StartCell.Select 
Application.ScreenUpdating = True 

'Clean up 
Set CurrCell = Nothing 
Set StartCell = Nothing 
Set c = Nothing 
Set MergeRng = Nothing 
Set Cell = Nothing 

End Sub 

Answer 3

來源學分招架我寫了一個函數Ge​​mbox要做到這一點，你可能會發現有用

private int AutoSizeMergedCells(CellRange myMergedCells, string text) 
    { 
     var file = new ExcelFile(); 
     file.Worksheets.Add("AutoSize"); 
     var ws = file.Worksheets[0]; 

     ws.Cells[0, 0].Column.Width = myMergedCells.Sum(x => x.Column.Width); 
     ws.Cells[0, 0].Value = text; 
     ws.Cells[0, 0].Style.WrapText = true; 
     ws.Cells[0, 0].Row.AutoFit(); 
     var result = ws.Cells[0, 0].Row.Height; 
     file = null; 
     return result; 
    } 

Answer 4

請儘量將

 private double AutoSizeMergedCells(string text)   
    { 
     Excel.Worksheet ws = xlWorkBook.Sheets[1]; 
     `enter code here`ws.Cells[14, 10].ColumnWidth = 9.29+7.43+10.71+11.29;(size width range) 
     ws.Cells[14, 10].Value = text; 
      ws.Cells[14, 10].Style.WrapText = true; 
        ws.Cells[14, 10].Rows.AutoFit(); 
        var result = ws.Cells[14, 10].RowHeight; 
      ws.Cells[14, 10].Value = ""; 
        return result; 
}