weixin_50920119的博客

End WithSet rngGist = Application.InputBox("请选择要拆分数据的列！只能选择单列单元格范围！", Title:="提示", Type:=8)lngTitleCount = Val(Application.InputBox("请输入主工作表中标题行的数量？If lngTitleCount < 0 Then MsgBox "标题行数不能为负数，程序退出。strYesOrNo = MsgBox("是否保留拆分工作表中的格式？