sub aa()
dim i
for i = 1 to 妳想要的最大行數
if vba.IsNumeric(cells(i,1)) = flase then 如果第i行不是數字,那麽
rows(i:i).hidden 第i行隱藏
end if
next
end sub
看是不是妳要的效果哈
在表格中創建壹個按鈕,,指定宏aa