VBA 运行时错误438：对象不支持该属性或方法 怎么更改才能调试成功？

VBA 运行时错误438：对象不支持该属性或方法 怎么更改才能调试成功？

你最好把出错的那句标识出来。
第一名就错了，修正为：Sheets("sheet1").Activate
------------------------------------
建议代码修正如下：
Sub 设置行高()
With Sheets("sheet1")
    Dim m As Integer
    For m = 1 To 50
        s = m Mod 5
        Select Case s
            Case 1
                Rows(m & ":" & m).RowHeight = 48
            Case 2
                Rows(m & ":" & m).RowHeight = 48
            Case 3
                Rows(m & ":" & m).RowHeight = 66
            Case 4
                Rows(m & ":" & m).RowHeight = 24
            Case 5
                Rows(m & ":" & m).RowHeight = 24
        End Select
    Next m
End With
End Sub