Vba 宏格式化csv文件

我正在使用宏生成一个包含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
 ' '
 ' '
 ' '
 ' '
 ' '

---

请尝试此代码以清除带有“”的不必要行

---

只要一行中总是有多个“，这就行了，如果只有一个，它会变得有点棘手。

你能发布一个示例工作簿吗？还是数据的屏幕截图？您的描述有点混乱。为了帮助澄清

每天的结束行都会不同，我需要从工作簿的第一个打开的行到结尾进行删除。

为什么需要删除空白（打开）行，或者在空白行下面是否有要删除的数据？此外，您能否更清楚地了解这一点

文件保存正确，但它将所有行保存在数据后面的列中，每行的行中都有一个“”。

？是的。稍后将其加载到记事本中时，我需要的数据下的所有单元格中都有“”。这就是为什么我要删除所有的内容，这就把它清理干净了。我需要清除记事本视图中的所有“”，我运行的程序将它们视为数据。更新问题示例我以为它是“”，但它仍然有效吗？设置rng=Columns（1）。查找（“”）我在我的vba编辑器中将此错误显示为红色错误？而且“”在excel中不可见，仅在记事本中可见。从文件中复制文本，并粘贴在

Find（“”）中的外部引号之间，这样您就可以得到所需的内容。很好。有时，棘手的事情是准确地找到如何获取使您陷入困境的数据元素！
Dim rng As Range
Set rng = Columns(1).Find("""")
Range(rng, rng.End(xlDown).End(xlToRight)).EntireRow.Delete