[エクセル 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ベストアンサー
- 回答日時:
>エクセル全く使ったことないです。
マクロの取り付け方はネット検索で調べてください。
'//標準モジュール推奨
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/14 12:49
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Visual Basic(VBA) vbaのループ処理について 6 2022/05/06 15:35
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) エクセル マクロ テキストファイルを取り込む 複数の区切り文字で別々のセルに格納するには? 3 2022/08/10 21:10
- Excel(エクセル) エクセルで月末、月初の判定をしたい。 4 2022/05/18 23:22
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
テキストファイルから指定行をExcelに抽出したい。
Excel(エクセル)
-
-
4
Excel.VBA テキストファイルを指定行数からの読み込む
Excel(エクセル)
-
5
Excel VBAでフォルダ内の全テキストファイルの任意データを取得について
Visual Basic(VBA)
-
6
ExcelVBA テキストファイルから特定行を抽出し、エクセルファイルのテキストボックスに張り付ける
その他(コンピューター・テクノロジー)
-
7
マクロを使ってフォルダー内にあるtxtデータをエクセルにデータに変換する方法をご教授願います
Excel(エクセル)
-
8
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
9
【VBA ・ エクセル】 テキストファイルから特定情報をぬきだすには
Visual Basic(VBA)
-
10
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
11
【VBA】複数のtxtファイルから特定区間の複数行を呼び出し、エクセルにまとめたい。
Visual Basic(VBA)
-
12
txtファイルから特定の文字列が書かれた行だけを取得や削除するソフト
フリーソフト
-
13
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
14
テキストファイルの途中行から読み込む方法について
Visual Basic(VBA)
-
15
ある文字列を含む行の抽出
Excel(エクセル)
-
16
【ExcelVBA】300万件越えCSVから条件を満たす行だけ抽出するには?
Visual Basic(VBA)
-
17
csvファイルを開かずに文字を検索し行を抽出したい
Visual Basic(VBA)
-
18
同一フォルダにある複数のテキストファイル(メモ帳)を一括でエクセルに取り込みたいです。
Visual Basic(VBA)
-
19
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
20
エクセルでファイルを開かずに文字を検索し、行を抽出したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
太字に設定されているセルの個...
-
Excelで挿入した図をセルの中央...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
エクセルでの検索ボックスの作...
-
【EXCEL】先週の月曜日の日付を...
-
アポストロフィーの一括挿入 ...
-
フォントの色を指定して削除出...
-
シート保護とグループ化機能を...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
excelで セルの移動時に...
-
マクロを実行すると画像がズレ...
-
クリックすると文章が表示され...
-
空白セルを空セルに置き換える...
-
VBA 見つからなかった時の処理
-
現在のセルの位置を返す関数は...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
現在のセルの位置を返す関数は...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
VBA 見つからなかった時の処理
-
エクセルでの検索ボックスの作...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
エクセルでPDFリンクを大量...
-
【EXCEL】先週の月曜日の日付を...
-
EXCELのセルや文字色の反映
-
セルがクリックされた回数をカ...
おすすめ情報