csvファイルを取り込み指定の形式にする
EXCELでcsvファイルを取り込み指定の形式にして、csvファイルとして
保存するマクロを組みたいです。
途中までマクロの記録機能を使い作ったものです。
Sub csvファイルの取り込み()
'Windows("a.csv").Activate '←ここでファイルを選択する形式にしたい。
Columns("C:H").Select
Selection.ClearContents
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "Number"
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>C*", Operator:=xlOr, _
Criteria2:="=C1*" ', Operator:=xlOr, Criteria2:="=AABC*"
Rows("4:13").Select '←ここをフィルタで選択された行を削除するように変更したい。
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
Range("A1").Select
End Sub
マクロの流れとして
・まずcsvファイルを取り込む
・C列からH列までを削除(もしくは数値をクリア)
・その後、A列を削除
・A1セルに文字があるのでその文字を"Number"に変更
・A列にある指定の文字列をフィルタで抽出してその行を削除
(抽出文字列は以下の3パターン。)
Cで始まらない文字を抽出
or
C1で始まる文字を抽出
or
AABCで始まる文字を抽出
・以上の作業を終了したら取り込んだファイル名の
左から11文字＋"ABC"の文字をあわせてファイル名として
CSVファイルで保存する
長くなってすいません。助けてください
お礼
ありがとうございます。 試してみます。