［エクセル 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と順に抜き出したものを貼り付けられればと思っております。
よろしくお願いします。

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2019/06/11 01:10

>エクセル全く使ったことないです。

マクロの取り付け方はネット検索で調べてください。


'//標準モジュール推奨
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

この回答へのお礼

回答ありがとうございます！助かりました！自分でも学んでみようと思います！

お礼日時：2019/06/17 16:02

No.3 回答者： GOMΛFU 回答日時： 2019/06/13 17:51

無理にマクロを使わずとも「findstr」で一回検索をかけてやればよいだけでは。

この回答へのお礼

回答ありがとうございます！

お礼日時：2019/06/17 15:59

No.1 回答者： Hypnomatic 回答日時： 2019/06/10 19:39

①ファイル操作に関するCOM オブジェクトの作成

②読み込みファイルの指定
③①で作成したオブジェクトの読み取りメソッドを利用し、一行ずつ読み取る。
④③で読み込んだ行の先頭がCかどうかを条件式を用いて判定
し、真ならセルに書き出し、偽ならスルー

③〜④をループ

この回答へのお礼

回答ありがとうございます！

お礼日時：2019/06/17 16:00