excel 中如何做到每四列另存为一个新的csv文件,并按照第一行的日期命名新文件,最后删除第一行的数据?
来自: 更新日期:早些时候
如何将Excel文档保存为CSV格式~
Dim i&, Sh As Worksheet, ShN As Worksheet, wb As Workbook, Nm$
Set Sh = ActiveSheet
Set ShN = Worksheets.Add
For i = 1 To 10 Step 4
Nm = Sh.Cells(1, i)
ShN.Copy
Sh.Cells(2, i).Resize(999, 4).Copy Worksheets(1).Cells(1, 1)
ActiveWorkbook.SaveAs "D:\" & Nm & ".csv"
ActiveWorkbook.Close False
Next i
Application.DisplayAlerts = False
ShN.Delete
Application.DisplayAlerts = True
End Sub
excel 中如何做到每四列另存为一个新的csv文件,并按照第一行的日期命名新文件,最后删除第一行的数据?视频
相关评论:
文件-->文件另存为-->在文件类型下拉列表中选择csv-->保存
就可以了
用分类混总两次
Sub 拆分四列工作表到工作簿()Dim i&, Sh As Worksheet, ShN As Worksheet, wb As Workbook, Nm$
Set Sh = ActiveSheet
Set ShN = Worksheets.Add
For i = 1 To 10 Step 4
Nm = Sh.Cells(1, i)
ShN.Copy
Sh.Cells(2, i).Resize(999, 4).Copy Worksheets(1).Cells(1, 1)
ActiveWorkbook.SaveAs "D:\" & Nm & ".csv"
ActiveWorkbook.Close False
Next i
Application.DisplayAlerts = False
ShN.Delete
Application.DisplayAlerts = True
End Sub
excel 中如何做到每四列另存为一个新的csv文件,并按照第一行的日期命名新文件,最后删除第一行的数据?视频
相关评论: