
excel
VBASub Worksheet_Change(ByVal Target As Range)Dim A As LongA = Target.RowIf WorksheetFunction.CountIf(Range(A & ":", A), 0) > 0 ThenRange(A & ":", A).SelectSelection.EntireRow.Hidden = TrueEnd IfEnd Sub此代码会检测Sheet1中是否存在任何值为0的单元格,并根据结果自动隐藏相关行。如果存在值为0的单元格,则会选中该行并设置为隐藏状态。您可以根据需要修改代码中的参数和条件来实现不同的隐藏功能。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号