標題: 將自適列高再加高 [打印本頁]

---

作者: jesscc    時間: 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

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

---

作者: jackyq    時間: 2019-7-24 22:59

For w = 1 To i
  Sheets("B").Rows(w).RowHeight = Sheets("B").Rows(w).RowHeight + 2
Next

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)