从Excel中创buildCSV文件时删除空白单元格

我想从Excel中创build多个CSV文件。 我有一个VBA，每个选项卡创build一个CSV文件，但输出中有空白。

我有6列csv文件返回有一种方法让我忽略空白单元格，所以我没有空白逗号例如“，”

这是我正在使用的代码：

Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheet Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close savechanges:=False ThisWorkbook.Activate Next Application.DisplayAlerts = False ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat Application.DisplayAlerts = True ' Temporarily turn alerts off to prevent the user being prompted ' about overwriting the original file. End Sub 

谢谢乔

Answer 1

可以通过Selection.SpecialCells(xlCellTypeBlanks).Selectfind空白单元格。 Selection.SpecialCells(xlCellTypeBlanks).Select ，但我看不到您select任何数据。

如果您只需要某些列，我build议您在复制到新工作表后删除其他列。 Copy后添加以下行：

 ActiveSheet.Columns(X).Delete 

为每个要删除的列执行此操作，将Xreplace为列的名称，即。 “C”。