Option Explicit Sub 行非表示() 'Rows.RowHeight = 18.75 Dim va As Variant, ro As Range Dim words As Variant words = Array("aa", "ab") For Each va In words Set ro = Cells.Find(va, , , xlWhole, xlByColumns).EntireRow ro.Hidden = True Next End…