0

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

1 回答 1

1

试试这段代码用“”清除不必要的行

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

只要一行中总是有超过 1 个"，这将起作用，如果只有 1 个，它会变得有点棘手。

于 2012-06-28T14:11:04.917 回答