- 帖子
- 162
- 主題
- 44
- 精華
- 0
- 積分
- 244
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-4-4
- 最後登錄
- 2022-10-3
|
將自適列高再加高
工作表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
上面的寫法沒辦法正常執行 |
|
發表於 2019-7-24 22:26
| 
