自运行生成工程表票，提高工程效率. For Each cell In Selection If cell.Value = "" Or cell.Column 7 Then Set wshshell = CreateObject("Wscript.shell") wshshell.popup "请从CeLL段一列中选择同一Cell！", 1, "提示", 64: Exit Sub Set wshshell = Nothing Else