Question

我使用宏来生成一个包含3列（A，B，C）的文件并将其保存到csv。我把一切都搞好了，除非我保存它。该文件保存正确，但它将所有行保存在数据后面的每行中带有“”“的数据。我需要清理它。结束行每天都不同，我需要从第一行打开删除到工作簿结束。

我试过了：

Selection.End(xlDown).Select
Range("A100:C100").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete Shift:=xlUp

但是细胞参考每天都会改变，所以我尝试了：

Selection.End(xlDown).Select
Range("A:C").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete Shift:=xlUp

现在删除所有数据。任何帮助都会很棒以下是我的数据及其外观的示例。我需要摆脱所有“”“，这些只会在我在记事本中查看时显示，但我使用的程序会将”“视为数据

 6/27/2012 0:00,aaaa,-0.011111
 6/27/2012 0:00,bbbb,-0.22222
 6/27/2012 0:00,cccc,-0.03333
 6/27/2012 0:00,ddddd,-0.0044
 6/27/2012 0:00,xxxxxx,-0.0555
 ' '
 ' '
 ' '
 ' '
 ' '

Answer 1

尝试使用此代码以“”

清除不必要的行

Dim rng As Range
Set rng = Columns(1).Find("""")
Range(rng, rng.End(xlDown).End(xlToRight)).EntireRow.Delete

只要行中总共有超过1个“，只要只有1个”，这个就会有效。它会变得有点棘手。

宏格式化csv文件

1 个答案: