매크로 csv 파일 서식 지정

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 

을하고 지금은 모든 데이터를 삭제 어떤 도움이 될 것입니다. 위의 내용은 내 데이터의 예와 모양을 보여줍니다. 모든 "" " 내가 메모장에서 볼 때 D 이러한에만 표시하지만, "데이터가

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 

"는" "본다 이것은 항상 하나 이상의 ""이있는 한 한 줄에 하나만 있다면, 조금 더 까다로워집니다.