请求确定Excel形状适配最后数据列宽度的正确VBA乘数

咱们先把核心问题掰明白：Excel里列宽的单位和形状宽度的单位压根不是一回事，你用固定乘数5.72肯定会踩坑——这就是结果不准的根源！

先搞懂单位差异 #

• Excel的ColumnWidth（你原代码里用的）返回的是字符数单位，基于默认字体（比如10号Calibri）的字符宽度，不是实际的尺寸。
• 形状的Width用的是点（Points），1英寸=72点，这和你说的B列是1英寸刚好对应上。

正确的实现方式 #

直接用Excel自带的Column.Width属性就好，它返回的就是点单位，和形状宽度完美匹配，不用自己瞎猜乘数！

优化后的VBA代码

Sub ShapeWidthMatchUsedColumns()
    Dim LastColumn As Long
    Dim totalColumnWidth As Double
    Dim targetSheet As Worksheet
    
    ' 建议指定具体工作表，避免切换工作表时出错
    Set targetSheet = ThisWorkbook.Sheets("你的工作表名称")
    
    ' 获取最后一个有数据的列
    With targetSheet.UsedRange
        LastColumn = .Columns(.Columns.Count).Column
    End With
    
    ' 累加第3列到最后一列的总宽度（单位：点）
    totalColumnWidth = 0
    For i = 3 To LastColumn
        totalColumnWidth = totalColumnWidth + targetSheet.Columns(i).Width
    Next i
    
    ' 设置形状宽度
    targetSheet.Shapes("Shape 37").Width = totalColumnWidth
End Sub

为什么原代码不对？ #

你原代码里用Cells(1, i).ColumnWidth拿到的是“多少个字符宽”，这个值随字体、字号变化，比如默认Calibri 10号下1个字符≈6.4点，你用5.72自然不准。而Columns(i).Width直接给你点单位的实际宽度，和形状的宽度单位完全统一，这才是正确的属性。

额外小技巧 #

如果你的形状需要覆盖列之间的默认间隔（Excel默认列间隔是2点左右），可以在总宽度里加上间隔的总和：

' 加上列间隔：从第3列到最后一列共有(LastColumn - 3)个间隔
totalColumnWidth = totalColumnWidth + (LastColumn - 3) * 2

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