Excel矩形尺寸与单元格范围不匹配及列宽设置异常问题求助

列宽设置3.5自动变为3.55的原因 #

这不是Excel故障，是列宽计算逻辑导致的。Excel列宽单位基于默认字体的字符宽度，但实际存储的是像素值的近似转换。3.5对应的像素值无法被精确映射为字符宽度单位，Excel会自动匹配最接近的可用值，最终显示为3.55；而3是可精确匹配的数值，所以设置后不会变化。

矩形尺寸与单元格范围不匹配的原因及解决办法 #

原因 #

直接使用Range("B5:D5").Width获取的是单元格区域的打印宽度，而AddShape方法采用的是屏幕像素宽度，两者计算基准不同。再加上列宽的微小误差累积，范围越大偏差就越明显。

解决办法 #

不要直接调用区域的Width属性，改为累加每列的实际宽度计算总宽度，同时确保形状与单元格边界精确对齐：

修改后的VBA代码：

Sub Rectangle()
    Dim shp As Shape
    Dim targetRange As Range
    Dim totalWidth As Double
    Dim col As Range
    
    Set targetRange = Range("B5:D5")
    totalWidth = 0
    
    ' 累加目标区域每列的宽度
    For Each col In targetRange.Columns
        totalWidth = totalWidth + col.Width
    Next col
    
    ' 创建与目标区域完全匹配的矩形
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
        targetRange.Left, targetRange.Top, _
        totalWidth, 50)
    
    ' 强制对齐单元格边界（可选）
    shp.Top = targetRange.Top
    shp.Left = targetRange.Left
    shp.LockAspectRatio = msoFalse
End Sub

如果需要让列宽精确接近3.5，可以通过直接设置像素宽度的方式实现（数值可根据默认字体调整）：

' 将A到CV列的宽度设为对应3.5字符的像素值
Columns("A:CV").Width = 26

内容的提问来源于stack exchange，提问作者Barbarian