调整包含特定文本的单元格所在的行高

Sub 调整包含特定文本的单元格所在的行高()
    For i = 1 To Range("a" & 1048576).End(xlUp).Row
        If Range("a" & i).Value Like "健康管理意见建议*" Then
            Range("a" & i).EntireRow.RowHeight = 100
        End If
    Next
End Sub