excel 宏 增加条件语句

Sub 建AVT新表()

For sht = 1 To Sheets.Count

If Sheets(sht).Name = Val(Day(Now)) Then Exit Sub

Next

'以下是你的功用代码。

end sub

用得很少，但确实有用的很