excel中使用vba来获取单元格的列宽和行高工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub testWidthOrHeight()

Dim lWinWidth As Long, lWinHeight As Long

With ActiveWindow

lWinWidth = .PointsToScreenPixelsX(.Selection.Width)

lWinHeight = .PointsToScreenPixelsY(.Selection.Height)

End With

MsgBox 当前选定单元格宽度为: lWinWidth Chr(10) _

当前选定单元格高度为: lWinHeight

End Sub

3/6

这里我们需要知道的是使用PointsToScreenPixelsX方法获取所选单元格对象的像素值，而不是excel表格中的行高和列宽常用的磅单位。所以我们这里获取的结果与行高列宽是不一致的。

4/6

我们声明了2个变量，列宽和行高，其作用域为长整数型。

5/6

将其分别赋值为活动窗口中所选择的单元格的行高和列宽为对象，并使用点对像素方法。

6/6

最后使用msgbox进行输入，输出的信息中Chr(10)为回车符，下划线是换行连接符，如果不使用变量，也可以直接将方法输入代码为：ActiveWindow.PointsToScreenPixelsX(.Selection.Width)，效果是一样的。

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCELVBA像素