個人感覺行高自適應之後再上下加8效果會好一些……

巧妙調整行距 - 有關 Excel 的一些總結與交流專欄

在自動換行的模式下，單元格字元長度可能導致行距不一樣大，這時候如果使用行高自適應內容（全選之後雙擊某一個行基線）就會導致所有行看起來比較逼仄，作為一個追（si）求（chu）完（nv）美（zuo）的人怎麼可以忍受。

如圖，光是看著就整個人不好了：

只需要在行高自適應之後給每一行的高度值加上一個特定的數就好了，就是這麼簡單。看起來好多了，上圖：

程式碼：

Sub RowHeightAutoAdjust（）

Application。ScreenUpdating = False

Cells。EntireRow。AutoFit

Dim DeltaH As Integer

Dim rw As Object

DeltaH = 16

For Each rw In ActiveSheet。Rows

If WorksheetFunction。CountA（rw） > 0 Then

rw。RowHeight = rw。RowHeight + DeltaH

End If

Next rw

Application。ScreenUpdating = True

End Sub

執行的時候關閉了螢幕重新整理，以加速執行；使用了For-Each來加速迴圈，關於For-Each戳這裡。

程式很簡單，就不多解釋了……看了For-Each那篇之後應該都能懂。

那個ActiveSheet。Rows可以改成ActiveSheet。UsedRange。Rows