![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
vbaでのループ処理なのですが、テキストファイルを1行ずつ読み込み、エクセルに出力する処理を書いています。
行の中に店舗という文字列が含まれていた場合は、その行から3行を飛ばしてエクセルへ出力させたいのですが、とばす方法がよくわからないです。
一応以下のような感じで書いてみたのですが次の行が出力させてしまいました。
if文の中で変数aを+3しただけでは飛ばないのでしょうか?
for a = 1 To 100
Line input #1 Data
If Data Like "店舗*" Then
a = a + 3
GoTo CONTINUE1:
End If
エクセルへ出力
i = i + 1
B.Cells(i,1) = Data
CONTINUE1
Next
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
こんばんは
#4様が既に適切な回答をされていますが、
テキストの読込ロジックを理解されていないかもと思い
参考サイトです。
これを理解した上で#4を読むと理解できると思います
http://officetanaka.net/excel/vba/file/file08b.htm
今回の躓きで重要な部分は
///---
Line Inputステートメントは、1行分のデータを読み込むと、《読み取りポイントを次の行に移します。》
つまり、Line Inputステートメントを繰り返すことで、テキストファイルの中を、1行ずつ、すべて読み込むことができるわけです。
---///
上記参考サイト Office TANAKA テキストファイルを操作する(読み込む) より抜粋
つまり、ループカウント変数aは、全体の繰り返し回数であって直接行を読込む操作しません。
読込行の回数はLine Inputステートメントの実行回数で
IfやselectcaseなどでLine Inputステートメントの実行回数を操作すると
出力を繰り返したり、抽出を飛ばす(行を飛ばす)事が出来ます。
(出力側を飛ばしたい場合は、変数iですね)
No.4
- 回答日時:
こんにちは
>if文の中で変数aを+3しただけでは飛ばないのでしょうか?
ご提示のコードはループになってはいますが、入力の行数と制御変数(=a)とは関係がないので、a+3を計算することにほとんど意味はありません。
・・というか、普通はファイルを読み込むときは、固定値の「1 To 100」のようなループではなく、そのファイルの終わり(=EOF)までのループにすると思いますけれど・・・?
必ず100行と決まっているファイルなんでしょうかね?
あるいは、100行以上あって、最初の100行だけが対象とか・・
事情がわからないので、それは置いておいて・・
>その行から3行を飛ばしてエクセルへ出力させたいのですが、
>とばす方法がよくわからないです。
単純に、空読みすれば良いのでは?
(Line Inputで1行読み込むので、3回繰り返す)
Line Input #1, Data
If Data Like "店舗*" Then
Line Input #1, Data
Line Input #1, Data
Line Input #1, Data
End If
' ~ 続きの処理 ~
※ 上記では、読み飛ばした行内に「店舗」があるかどうかは無視しています。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?a65a0e2)
No.3
- 回答日時:
もっとチャント解る様に。
・3行飛ばしたいのはテキストファイルの方か、エクセルの方か。
a
b
c
店舗
d
e
f
g
となってたら、エクセルにはどう並べたいの???
No.2
- 回答日時:
Line input #1 Data
の部分が「1行ずつ(テキスト)データを読みなさい」という命令です。
ここでは、aは回数をカウントしているだけですので「a = a + 3」では回数のみを水増ししているに過ぎず、処理(=行の読込み)をする対象行は1行ずつ進行しているのです。
>その行から3行を飛ばして
をしたいのであれば「その行から3行は無駄に読み込む(=読み込むが何もしない)」という処理に置き換えればよいでしょう。
つまり
for a = 1 To 100
Line input #1 Data
If Data Like "店舗*" Then
rem 既に1行目は読み込んでいるので、あと3回読込み、何もしない
for B = 1 To 3
※店舗を含む行込みで、+3回。合計4行飛ばしています。
Line input #1 Data
next B
Else ’そうでなければエクセルへ出力
i = i + 1
B.Cells(i,1) = Data
End If
Next
っと言った処理で対応できると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
エクセルVBA 段落番号自動取得方法
-
VBAの「To」という語句について
-
ExcelのVBAコードについて教え...
-
質問58753 このコードでうまく...
-
VBAでユーザーフォームを指定回...
-
以下のプログラムの実行結果は...
-
VBAでFOR NEXT分を Application...
-
VBAについてです。 どなたかご...
-
VBA 最終行の取得がうまくいか...
-
Excel マクロについて詳しい方...
-
算術演算子「¥」の意味について
-
Excelのマクロについて教えてく...
-
VBAでセルの書式を変えずに文字...
-
【ExcelVBA】値を変更しながら...
-
Excel 範囲指定スクショについ...
-
えくせるのVBAコードについて教...
-
エクセルのVBAコードについて教...
-
VBA 同じフォルダ内のすべての...
-
エクセルでCDOを使ったメール送...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.net 文字列から日付型へ変更...
-
VBA 最終行の取得がうまくいか...
-
VBAでエクセルのテキストデータ...
-
【ExcelVBA】5万行以上のデー...
-
エクセルVBAで在庫の組み換え処...
-
VBAから書き込んだ条件付き初期...
-
エクセルのVBAコードについて教...
-
VBAでユーザーフォームを指定回...
-
エクセルのVBAについて教えてく...
-
vbaマクロについて
-
ExcelのVBAコードについて教え...
-
【VBA】 結合セルに複数画像と...
-
WindowsのOutlook を VBA から...
-
質問58753 このコードでうまく...
-
ExcelのVBAコードについて教え...
-
Excel VBAについて。こんな動作...
-
[Excel VBA]特定の条件で文字を...
-
[VB.net] ボタン(Flat)のEnable...
-
エクエルのVBAコードについて教...
-
ExcelのVBAコードについて教え...
おすすめ情報