Sub 一户一个工作博() Dim SourceSheet As Worksheet Dim SheetNameInput As String ' 弹出对话框让用户输入工作表名称 SheetNameInput = Application.InputBox("请输入源数据工作表名称:", "选择工作表", Type:=2) 后面还有.....................................
评论星级较低,若资源使用遇到问题可联系上传者,3个工作日内问题未解决可申请退款~