質問: [エクセル vba]テキストファイルから特定の行のみを抜き出したい 下記のようなテキストファイルから [エクセル vba]テキストファイルから特定の行のみを抜き出したい 下記のようなテキストファイルからcを先頭にした行のみを抜き出してエクセルに書き出したいのですが、どうすればいいでしょうか?エクセル全く使ったことないです。 a1 1 2 0.24 b1 2 4 0.5 e4 1 5 3.55 c1 2 5 0.4 e4 5 3 0.02 p2 3 4 0.57 c2 5 4 0.8 b7 2 7 0.5 ・ ・ ・ セルa1からa2、a3と順に抜き出したものを貼り付けられればと思っております。 よろしくお願いします。
回答: >エクセル全く使ったことないです。 マクロの取り付け方はネット検索で調べてください。 '//標準モジュール推奨 sub textimport_cmarked() dim fname as string dim textline as string dim i as long dim buf as string dim ini as string dim arbuf i = 1 'スタート行 fname = "d:\sampledata.txt" 'ファイル名 open fname for input as #1 do while not eof(1) line input #1, textline ini = left(textline, 1) if lcase(ini) = "c" then '大文字・小文字共通 '行をセルに入れる cells(i, 1).value = textline ''もしも、セルひとつに数字を入れるなら、 'arbuf = split(textline, space(1)) 'cells(i, 1).resize(, ubound(arbuf) + 1).value = arbuf i = i + 1 end if loop close #1 end sub