痛点：Excel默认单位太反人类！

你是否经常遇到这些问题：

- 想设置精确的单元格尺寸，却只能用模糊的"字符宽度"和"磅值"？

- 设计打印报表时，毫米级的误差导致格式错乱？

- 需要统一多表格样式，却因单位混乱而浪费时间？

今天教你用`CentimetersToPoints`函数，彻底解决这些问题！

核心技巧：厘米转磅值

Excel内部使用磅（Points）作为单位（1厘米≈28.35磅），但VBA提供了超实用的单位转换函数：

Application.CentimetersToPoints(厘米值)

经典应用场景

1 精确设置单元格尺寸

With Range("A1")
.RowHeight = Application.CentimetersToPoints(1) ' 1厘米高
.ColumnWidth = Application.CentimetersToPoints(2) ' 2厘米宽
End With

优势：比手动拖动调整精准10倍！

2 批量统一表格样式

Sub 统一行高()
Dim rng As Range
Set rng = Range("A1:F20")
rng.RowHeight = Application.CentimetersToPoints(0.8) ' 全部0.8cm高
End Sub

3 打印排版神器

' 设置页边距为2厘米
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(2)
.RightMargin = Application.CentimetersToPoints(2)
End With

避坑指南

注意1：列宽的"隐藏规则"

- 行高直接用磅值，但列宽单位是字符宽度！

- 推荐改用`Range.EntireColumn.Width`更精准

注意2：国际单位兼容

' 兼容英寸单位（1英寸=2.54厘米）

InchesToPoints = Application.CentimetersToPoints(2.54)

注意3：最小最大值限制

- 行高范围：0到409.5磅（≈14.4厘米）

- 列宽范围：0到255字符

高阶技巧

动态适应内容

' 自动调整行高适应文字（保留1厘米最小高度）
If Range("A1").RowHeight < Application.CentimetersToPoints(1) Then
Range("A1").RowHeight = Application.CentimetersToPoints(1)
End If

打印精确对齐

' 设置网格线精确为0.5厘米间隔
With ActiveSheet
.Cells.RowHeight = Application.CentimetersToPoints(0.5)
.Cells.ColumnWidth = Application.CentimetersToPoints(0.5)
End With

3大优势：

1. 精准控制 - 告别目测调整

2. 国际标准 - 直接使用厘米/英寸

3. 代码复用 - 一次编写永久使用

现在就用`CentimetersToPoints`改造你的Excel报表吧！

> 关注我，获取更多VBA办公自动化秘籍！ Excel技巧 VBA编程 办公效率

如果觉得有用，别忘了 点赞 + 收藏，关注我，获取更多Excel VBA高效编程技巧！