Sub 调整包含特定文本的单元格所在的行高()For i = 1 To Range("a" & 1048576).End(xlUp).RowIf Range("a" & i).Value Like "健康管理意见建议*" ThenRange("a" & i).EntireRow.RowHeight = 100End IfNext
End Sub
调整包含特定文本的单元格所在的行高
深耕网站建设、视觉设计与SEO优化的一线实战洞察。
Sub 调整包含特定文本的单元格所在的行高()For i = 1 To Range("a" & 1048576).End(xlUp).RowIf Range("a" & i).Value Like "健康管理意见建议*" ThenRange("a" & i).EntireRow.RowHeight = 100End IfNext
End Sub