連続数字の抽出（VBA)

質問

過去歴にてあてはまる物が見受けられなかったので質問させて頂きます。
ある計測器からデータが出力されるのですが、１行に付き５列が１SETで
25行ご1マス空けて出力され又20行後1マス空けて20行それを４回繰り返し後次のtxtとして出力され。データ採取が終了まで続きます。
今現在csvにて取り込んでいるのですが、データにより変更しますが、
15～23ページ有ります。
データ採取した中で、隣と連続数字の行を抽出したいのですがどうすれば宜しいでしょうか（数字は全て整数MAX120です）
５列の内隣同士連続であればコピーで別のエクセルブック（シート）へ貼り付け（コピー）を１ページ４SET分を前ページ分の抽出
例えば
1,2,3,4,5　　抽出
21,35,38,49,66 抽出しない
21,35,38,65,66 抽出
の様にどこかで連続が有れば抽出を行いたいです
1行目1,2,3,4,5_11,12,13,14,15_21,22,23,24,25_31,32,33,34,35
2行目
：
：
25行目1,2,7,10,16_19,21,23,24,35_21,22,23,24,25_31,32,33,34,35
の様に数字が出力されます

回答No.3

iriyak

こんにちは。

こうしたテキスト処理には Excel VBA よりも、テキスト処理に特化した処理系を採用することも視野に入れるとよいかもしれません。回答者は Awk をおすすめします。実際に使用できるようになるまで慣れと時間が必要かもしれませんが、習得する価値のあるソフトウェアの一つと考えます。ぜひご検討ください。

Windows の環境で Awk を使用するための段取りや実際のスクリプト例は、こちらが参考になるかもしれません。

QNo.4040998『バッチ処理でテキストから数値を取り出し、CSVにしたい』

参考URL：

http://okwave.jp/qa4040998.html, http://ja.wikipedia.org/wiki/AWK

回答No.2

hotosys

連続する値は、隣り合うセルの値の差が１と言う事になる。
それが1行内にあるかないかで対象かどうかを判断する。
ExcelのシートにA1:E?(5列?行)にデータがある場合を考える。
F1=B1-A1(マイナス方向の連続も対象ならF1=ABS(B1-A1))
として、F1:I?(4列?行)の範囲にコピー。
J1=IF(ISERROR(MATCH(1,F1:I1,0)),0,1)
として、J1を下へ(?行)コピー。
とすると、質問の例のデータで言えば
A B C D E F G H I J
1 2 3 4 5 1 1 1 1 1
21 35 38 49 66 14 3 11 17 0
21 35 38 65 66 14 3 27 1 1
となり、J列が1のもののA:E列をコピーする。
と言う風なVBAをマクロで記録するなりして作成する。

お礼

回答ありがとうございます
すみません、不慣れな者なので。丁寧に書いていただいてると思いますが、全然わかりません。ごめんなさい。

回答No.1

noname#60992

1.一行ずつデータを読み込み、
2.split を使って配列に格納し、
3.ループを使って、一つ前の数値との差分を計算し、
4.それが1であったら書き出す。