エクセルの列削除がうまくいかない。

質問

CSV変換データの不要な列を削除しようとしているのですが、思うような動作しません。

CSV変換マクロを起動と同時にA,B,E,F,O,P,Q,R列を削除しようとしているのですが、うまくいかない。
教えていただけないでしょうか。
添付データは元のファイルです。
Option Explicit
Sub EasyCopyCSV()
Dim CSV_filename As Variant, target As Variant
Dim CSV_SheetName As Variant
Dim FileCount As Long
Dim kk As Long
CSV_filename = Application.GetOpenFilename(filefilter:="CSVファイル(*.csv;*.prn),*.csv;*.prn", MultiSelect:=True)
If IsArray(CSV_filename) Then
Else
MsgBox "キャンセルされました"
Exit Sub
End If
FileCount = UBound(CSV_filename) '配列のサイズからファイル数を調べる
For kk = 1 To FileCount 'ファイル数カウンタ初期化しファイル数分カウンタを回す
Workbooks.Open CSV_filename(kk) 'ファイルを開く
CSV_SheetName = Worksheets(1).Name '開いたシートの名前=ファイル名を取得
Sheets(CSV_SheetName).Move Before:=ThisWorkbook.Sheets(1)
Next
'不要列を削除
With ActiveSheet
.Range(.Columns(1), .Columns(2)).Delete Shift:=xlShiftToLeft
.Range(.Columns(5), .Columns(6)).Delete Shift:=xlShiftToLeft
.Range(.Columns(15), .Columns(18)).Delete Shift:=xlShiftToLeft
End With
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.2

mitarashi · ベストアンサー

余分なコードをお載せになると回答者を混乱させるだけですし、ご自分の頭の整理のためにも問題を単純化して質問される事をお勧めします。
全部は読んでないですが、この様な場合、「消す」行為が、再配置を招いて意図しない結果にならない様に、後ろから消すのが常道です。
Sub test()
With ActiveSheet
.Range(.Columns(15), .Columns(18)).Delete Shift:=xlShiftToLeft
.Range(.Columns(5), .Columns(6)).Delete Shift:=xlShiftToLeft
.Range(.Columns(1), .Columns(2)).Delete Shift:=xlShiftToLeft
End With
End Sub

既に削除されたご質問で、フィルタオプションをお勧めしようかとおもっておりましたが、コードの汎用化がスッキリできないでいました。
=B3=INT(B3)といった式を条件にする事で、整数のみ抽出できますし、
抽出したい列のフィールド名を抜き出した出力先シートを指定する事で、指定列だけの抽出もできます。
また、フィルタオプションは結構高速だと思います。ご参考まで。
http://www.eurus.dti.ne.jp/yoneyama/Excel/filter3.htm
少々長いページなので、下記をお探し下さい。
・条件設定に数式を使う方法
・フィルタオプションで特定の項目(列)を抽出する

お礼

教えていただき有難うございます。後ろから削除することは勉強になりました。有難うございます。

回答No.1

keithin

'不要列を削除
Range("A:B,E:F,O:R").Delete Shift:=xlShiftToLeft

ぐらいで行ってみて下さい。

お礼

回答いただき有難うございました。