質問です。

CSVファイルでA列を除いたB列からS列の間のいずれかの列に1から9までの数字の含まれる列があります(数字が含まれる列は一つだけです、データはA1からn行)
この列の1だけを抽出してそれ以外の行は削除する
結果数字が含まれる列中に1が含まれる行のデータだけが残ります
CSVファイルは複数あり一度に実行できるマクロをお願いできますか
CSVファイルはC:\test\にあるとします

よろしくお願いします

回答の条件
  • 1人3回まで
  • 13歳以上
  • 登録:2011/11/18 17:53:48
  • 終了:2011/11/18 19:50:32

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13481ベストアンサー獲得回数11982011/11/18 18:28:29

ポイント100pt
Sub main()
Dim p As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk As Workbook
Application.DisplayAlerts = False

    
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
    Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
    '処理対象は 1番目のシートのみ。
    
    With w.Sheets(1)
        
        
        .Columns("B:S").Select
        For gg = 2 To 9
        
        Selection.Replace What:=gg, Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
        
        Next gg
    End With
         
    w.Save
    w.Close
    f = Dir
Loop

Application.DisplayAlerts = True

End Sub


うまく更新できない場合は、セルに入っている値に問題があると思われます。

他1件のコメントを見る
id:inosisi4141

aaaa   1
bbbb 1
cccc 2
dddd 3
答え
aaaa 1
bbbb 1

2011/11/18 19:27:35
id:inosisi4141

このマクロで使って実際いろいろ他に変更がありましたら
改めて新規に質問します
ありがとうございました。

2011/11/18 19:49:59

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません