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 に答える