Sub a() '隐藏A列内容为空白的整行 Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = TrueEnd SubSub b() '显示所有行 Rows.Hidden = FalseEnd Sub