返回列表下一主題上一主題發帖

將自適列高再加高

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-7-24 22:26 | 只看該作者

將自適列高再加高

工作表B第E20列以下儲存格都已勾選自動換行
我把資料由工作表A轉到工作表B後，E20以下每列的高度都不一樣，都經過自動列高調整，雖然都能完整看到資料，但列與列之間感覺很緊迫，有沒有辦法在自動列高後，每列再自動加高2~5點?

Dim E As Range
i = Range("E20").End(xlDown).Row
For Each E In Sheets("B").Range("E20:E" & i)
RH = E.RowHeight
E.RowHeight = RH + 2
Next

上面的寫法沒辦法正常執行