vba - EXCEL - 以 RowHeight 作为条件的 IF 语句不起作用

Question

我有一个很长的 Excel 数据库，它运行一个我最初没有创建的 VBA 宏(因此我不知道它是如何工作的)。问题是由于某种原因，VBA 宏缩小了某些行的高度，这使得其中包含的文本并不总是 100% 可见。我已经对 Excel 文件进行了一些更改，所以我真的不想搜索我使用的 VBA 中的缺陷，所以我想编写一个简短的 VBA 代码，它会增加高度缩小的行的高度:
Sub Macro1() Dim rowIndex As Integer Dim lastRowIndex As Integer lastRowIndex = 15000 For rowIndex = 7 To lastRowIndex: If ActiveSheet.Rows(rowIndex).RowHeight = 9.6 Then ActiveSheet.Rows(rowIndex).RowHeight = 10.8 End If Next rowIndex End Sub
由于某种原因，这段代码没有按照我想象的方式执行(它什么都不做)。我检查了我是否使用了正确的高度值，但一切似乎都很好。

我错过了什么？

Answer 1

您的代码在实际 9.6 高的行上运行良好。尝试增加任何小于 10.8 高的行。

Sub Macro1()
    Dim rowIndex As Integer
    Dim lastRowIndex As Integer
    lastRowIndex = 15000
    For rowIndex = 7 To lastRowIndex
        If ActiveSheet.Rows(rowIndex).RowHeight < 10.8 Then
            ActiveSheet.Rows(rowIndex).RowHeight = 10.8
        End If
    Next rowIndex
End Sub