5,139
社区成员
发帖
与我相关
我的任务
分享
Sub 均等()
Dim iCount As Integer
iCount = Selection.Tables(1).Rows.Count
MsgBox "当前表格的高度是:" & Selection.Tables(1).Rows.Height * iCount
End Sub
Sub 不均等()
Dim i As Integer, lHeight As Double, oRows As Rows
Set oRows = Selection.Tables(1).Rows
For i = 1 To oRows.Count
lHeight = lHeight + oRows(i).Height
Next i
MsgBox "当前表格的高度是:" & lHeight
End Sub