vba如何調整單元格行間距函數?我們緻力于為大家奉獻最有效的經驗，讓大家能夠解決掉問題，但是大家也都知道，每個人遇到的情況都是不一樣的，大家在看經驗的同時，除了跟随操作，也需要自己的思考，舉一反三的解決問題，這樣才會變得更加有内涵，一起成長為一樣的經驗達人根據二八定律，學好這excel VBA，就能完成80%的工作每天學習一點Excel VBA知識點，我們一起共同進步，接下來我們就來聊聊關于vba如何調整單元格行間距函數?以下内容大家不妨參考一二希望能幫到您!

vba如何調整單元格行間距函數

我們緻力于為大家奉獻最有效的經驗，讓大家能夠解決掉問題，但是大家也都知道，每個人遇到的情況都是不一樣的，大家在看經驗的同時，除了跟随操作，也需要自己的思考，舉一反三的解決問題，這樣才會變得更加有内涵，一起成長為一樣的經驗達人。根據二八定律，學好這excel VBA，就能完成80%的工作。每天學習一點Excel VBA知識點，我們一起共同進步。

我們在一般情況下單元格的行高列寬都是以磅為單位進行設置的，也可以使用英寸和厘米計量單位設置單元格的行高列寬，如下面的代碼 所示。

#001 Sub RngToPoints()

#002 With Range("A1")

#003 .RowHeight = Application.CentimetersToPoints(2)

#004 .ColumnWidth = Application.CentimetersToPoints(1.5)

#005 End With

#006 With Range("A2")

#007 .RowHeight = Application.InchesToPoints(1.2)

#008 .ColumnWidth = Application.InchesToPoints(0.3)

#009 End With

#010 End Sub

代碼解析：

RngToPoints過程以英寸和厘米計量單位設置單元格的行高列寬。

第3、4行代碼使用CentimetersToPoints方法以厘米為計量單位設置A1單元格的行高列寬。CentimetersToPoints方法将計量單位從厘米轉換為磅（一磅等于 0.035 厘米），語法如下：

expression.CentimetersToPoints(Centimeters)

參數expression是必需的，返回一個Application對象。

參數Centimeters是必需的，指定要轉換為磅值的厘米值。

第5、6行代碼使用InchesToPoints方法以英寸為計量單位設置A2單元格的行高列寬。InchesToPoints方法将計量單位從英寸轉換為磅，語法如下：

expression.InchesToPoints(Inches)

參數expression是必需的，返回一個Application對象。

參數Inches是必需的，指定要轉換為磅值的英寸值。

運行RngToPoints過程結果如圖 11‑6所示。

靈活設置單元格的行高列寬

如果你在工作中還需要設計其他的表格模闆，都可以留言，我們會根據大家需求來整理相關的學習資料，目的隻有一個，那就是學好Excel，提高工作效率！

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!