1、自動調整行高

Excel的單元格有“自動調整行高”和“自動調整列寬”的模式，方法就是把鼠標放在需要調整的單元列（行）邊上，當鼠標變成【十】時，雙擊，就可以了。

2、批量調整

上面的方法只適用于不含【合并單元格】的表格，如果表格中包含了【合并單元格】，則無法通過【自動調整】來實現

如上圖那樣，根本【自動】不了。。。

所以還是只能用【宏】了，代碼如下：

?Sub?My_MergeCell_AutoHeight()

?Dim?rh?As?Single,?mw?As?Single

?Dim?rng?As?Range,?rrng?As?Range,?n1%,?n2%

?Dim?aw?As?Single,?rh1?As?Single

?Dim?m$,?n$,?k

?Dim?ir1,?ir2,?ic1,?ic2

?Dim?mySheet?As?Worksheet

?Dim?selectedA?As?Range

?Dim?wrkSheet?As?Worksheet

Application.ScreenUpdating?=?False

?Set?mySheet?=?ActiveSheet

?On?Error?Resume?Next

Err.Number?=?0

?Set?selectedA?=?Application.Intersect(ActiveWindow.RangeSelection,?mySheet.UsedRange)?'返回重疊range

??????? selectedA.Activate

?If?Err.Number?<>?0?Then

g?=?MsgBox("請先選擇需要'最合適行高'的行!",?vbInformation)

?Return

?End?If

??????? selectedA.EntireRow.AutoFit

?Set?wrkSheet?=?ActiveWorkbook.Worksheets.Add?'創建個臨時sheet來折騰

?For?Each?rrng?In?selectedA

?If?rrng.Address?<>?rrng.MergeArea.Address?Then?'找出合并單元格

?If?rrng.Address?=?rrng.MergeArea.Item(1).Address?Then?'合并單元格第一格與地址對應

??????????????? ????'If (Application.Intersect(selectedA, rrng).Address <> rrng.Address) Then

?'??? GoTo gotoNext

?'End If

?Dim?tempCell?As?Range

?Dim?width?As?Double

?Dim?tempcol

width?=?0

?For?Each?tempcol?In?rrng.MergeArea.Columns

width?=?width?+?tempcol.ColumnWidth

?Next

??????????????????? wrkSheet.Columns(1).WrapText?=?True

????????????? ??????wrkSheet.Columns(1).ColumnWidth?=?width

??????????????????? wrkSheet.Columns(1).Font.Size?=?rrng.Font.Size

??????????????????? wrkSheet.Cells(1,?1).Value?=?rrng.Value

??????????????????? wrkSheet.Activate

?'wrkSheet.Cells(1, 1).RowHeight = 0

??????????????????? wrkSheet.Cells(1,?1).EntireRow.Activate

??????????????????? wrkSheet.Cells(1,?1).EntireRow.AutoFit

??????????????????? mySheet.Activate

??????????????????? rrng.Activate

?If?(rrng.RowHeight?<?wrkSheet.Cells(1,?1).RowHeight)?Then

?Dim?tempHeight?As?Double

?Dim?tempCount?As?Integer

?Dim?addHeightRow

tempHeight?=?wrkSheet.Cells(1,?1).RowHeight?+?10?'自動調整后行高+10

tempCount?=?rrng.MergeArea.Rows.Count?'多行合并單元格的行數

?For?Each?addHeightRow?In?rrng.MergeArea.Rows?'選區中每個row賦值

?If?(addHeightRow.RowHeight?<?tempHeight?/?tempCount)?Then

addHeightRow.RowHeight?=?tempHeight?/?tempCount

?End?If

tempHeight?=?tempHeight?-?addHeightRow.RowHeight

tempCount?=?tempCount?-?1

???????? ???????????????Next

?End?If

?End?If

?Else

?If?rrng.WrapText?=?True?Then?'非合并單元格、自動換行

rrng.RowHeight?=?rrng.RowHeight?+?3?'非合并行+3，以適應打印

?End?If

?End?If

?Next

Application.DisplayAlerts?=?False?'刪除工作表警告提示

??????? wrkSheet.Delete

Application.DisplayAlerts?=?True

Application.ScreenUpdating?=?True

?End?Sub