Cory

这里写目录标题一级目录二级目录三级目录一级目录二级目录三级目录

拆分合并excel表 VBA拆分到表合并excel表拆分到表说明：运行后需要输入两个值，如下为值的说明第一个需要输入的值：如果是需要从A列分类拆分表，请输入1·，如果是B列分类拆分表，请输入2，以此类推第二个需要输入的值：表头一般都可能不是第一行，所以，如果表头是第一行的，请输入1，如果表头是第二行的，请输入2，以此类推注意：拆分后将生成"被拆分文件的当前文件夹"下的"excel文件名+时间戳"的文件夹中Sub 拆分到表()Dim sht As WorksheetDim k,

Sub CVS另存为xlsx()Application.DisplayAlerts = False '先禁用excel的告警Dim i As IntegerDim wb As WorkbookDim SaveAsExcelName As StringDim str()On Error Resume Next '加上以后防止点了取消发生的错误'打开需要转换的csv文件，可以转换多个str = Application.GetOpenFilename("Excel数据文件,*.csv", , ,