chen289251809的专栏

Private Sub LetDo_Click() Dim name, FilesName, pname As String '设置删选 Dim iloc, Position As String Do Position = iloc '取得当前检测到的目标字符的位置 iloc = InStr(iloc + 1, FilePa

Private Sub LetDo_Click() Dim name, Filename, pname As String '设置删选 Dim iloc, Position As String Do Position = iloc '取得当前检测到的目标字符的位置 iloc = InStr(iloc + 1, FilePat

本拆分工具的主要用途：将一个excel文件中的若干相同格式的工作表中的相同数据保存到一个新的excel文件中，实现一个文件拆分到多个文件的效果。        注意：如果需要这个宏工具及这个工具的视频操作教程，请点击此处下载。