1 Sub EditCsvToXls() 2 Application.ScreenUpdating = False 3 '文件目录 4 ChDir "C:\Users\QA-Department\Desktop\test" 5 Dim sDir As String 6 Dim curdir As String 7 curdir = "C:\Users\QA-Department\Desktop\test" 8 sDir = Dir(curdir & "\*.csv") 9 While Len(sDir)10 Workbooks.Open Filename:=curdir & "\" & sDir11 '删除一些段落12     Rows("1:7").Select13     Selection.Delete Shift:=xlUp14     Rows("193:197").Select15     Selection.Delete Shift:=xlUp16     Rows("373:377").Select17     Selection.Delete Shift:=xlUp18     Rows("618:618").Select19     Selection.Delete Shift:=xlUp20     Range("A1").Value = "???(MHz)"21     Range("B1").Value = "???(dB)"22     Columns("A:C").Select23     Columns("A:C").EntireColumn.AutoFit24 '损耗设置为正值25     For i = 2 To 61726          Range("B" & i).Value = Range("B" & i) * -127     Next i28 '重命名表名29     Sheets(1).Name = "sheet1"30     Range("B2:B617").Select31 '有效数字32     Selection.NumberFormatLocal = "0.00"33     Range("A1").Select34 35 Dim temp As String36 temp = Left(sDir, Len(sDir) - 4)37 ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _38 FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _39 ReadOnlyRecommended:=False, CreateBackup:=False40 ActiveWorkbook.Close41 sDir = Dir42 Wend43 Application.ScreenUpdating = True44 End Sub