
[エクセル 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
No.3
- 回答日時:
無理にマクロを使わずとも「findstr」で一回検索をかけてやればよいだけでは。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
Excel.VBA テキストファイルを指定行数からの読み込む
Excel(エクセル)
-
【VBA】テキストファイルから特定の文字列を抽出して、エクセルに出力する
Excel(エクセル)
-
-
4
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
5
テキストファイルから指定行をExcelに抽出したい。
Excel(エクセル)
-
6
【VBA】複数のtxtファイルから特定区間の複数行を呼び出し、エクセルにまとめたい。
Visual Basic(VBA)
-
7
テキストファイルの一部分を抽出する方法について
Visual Basic(VBA)
-
8
ExcelVBA テキストファイルから特定行を抽出し、エクセルファイルのテキストボックスに張り付ける
その他(コンピューター・テクノロジー)
-
9
ある文字列を含む行の抽出
Excel(エクセル)
-
10
Excel VBAでフォルダ内の全テキストファイルの任意データを取得について
Visual Basic(VBA)
-
11
EXCEL VBAでテキストファイルの特定の場所にデータを書き込む方法
Visual Basic(VBA)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
テキストファイル内の文字列検索
Windows Vista・XP
-
14
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
15
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
16
テキストファイルの途中行から読み込む方法について
Visual Basic(VBA)
-
17
テキストファイルの特定行の削除方法
Visual Basic(VBA)
-
18
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
19
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
20
VBA たまに変数がempty値になるエラー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
太字に設定されているセルの個...
-
クリックすると文章が表示され...
-
マクロを実行すると画像がズレ...
-
エクセル 数字をすべて○などの...
-
エクセル 未入力セルがあると...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
Excelの文字色でカウントし平均...
-
エクセルでページ数をあるセル...
-
Excelでセルをクリックす...
-
【EXCEL】先週の月曜日の日付を...
-
エクセル シート保護された共...
-
フォントの色を指定して削除出...
-
excelのソルバーをVBAで複数行...
-
セル背景や文字を点滅させる方法
-
未記入がある場合はマクロを実...
-
ExcelVBAで、ColorIndexの取得
-
セルがクリックされた回数をカ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
Excelで、図形内の文字をセルに...
-
クリックすると文章が表示され...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
太字に設定されているセルの個...
-
Excelでセルをクリックす...
-
セルの内容をテキストボックス...
-
セルがクリックされた回数をカ...
-
エクセルでPDFリンクを大量...
-
フォントの色を指定して削除出...
-
現在のセルの位置を返す関数は...
-
エクセルでセルをダブルクリッ...
-
未記入がある場合はマクロを実...
-
Excel:セルの値(文字列)を数...
-
マクロを実行すると画像がズレ...
-
アポストロフィーの一括挿入 ...
-
シート保護とグループ化機能を...
おすすめ情報