Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path \ sht.Name, FileFormat:=xlNormal 将工作簿另存为EX...
先选中单元格, 在数据菜单中找有效性,在 设置选项卡下找允许,再找序列,在来源中输入下拉框选项....