按ALT+F11 双击sheet1工作表。粘贴如下代码： Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 2 To 10 If Range("C" & i) = "" Then Rows(i).Select Selection.EntireRow.Hidden = True Else Rows(i).Select Se...
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024