抜き出しマクロについて(2)

質問

以下のプログラムは10行ごとにデータを抜き出すプログラムです。
これに追加して、普段は10行に1個データを抜き出し、前回の結果より10増減があったとき、
20結果の増減があった時にもデータを抜き出すようにするにはどうすればいいですか？

例えば以下の通り
time result
1　　　1
2　　　1
3　　　1
4　　　1
5　　　1
6　　　1
7　　　1
8　　　1
9　　　1
10　　 1
11　　100
12　　500
13　　1000
14　　1000
15　　1000
16　　1000
17　　1000
18　　1000
19　　1000
20　　1000
21　　1000
・　　・
・　　・
・　　・
　↓
time result
1　　　1
10　　1
11　　100
12　　500
13　　1000
20　　1000
・　　・
・　　・
・　　・

ここからプログラム
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
Sub nukitori()

Dim X As Worksheet
Dim i As Long
Dim ii As Long
Dim col As Integer
Dim Nukitori_Step As Long

Nukitori_Step = 10

i = 2
ii = 2 '●●●見出し行が１行目なので２で始める

Set X = ActiveSheet

'●シートShordataがあったら削除
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("shortdata").Delete
Application.DisplayAlerts = True
On Error GoTo 0

Worksheets.Add.Name = "shortdata"

'●先ず、見出しをコピー
Worksheets("shortdata").Rows(1).Value = X.Rows(1).Value

While X.Cells(i, 1) <> "" And i < 65535
For col = 1 To 255
Worksheets("shortdata").Cells(ii, col).Value = X.Cells(i, col).Value
Next
If i = 2 Then i = 1
i = i + Nukitori_Step
ii = ii + 1
Wend

End Sub

回答No.3

n-jun · ベストアンサー

＃２　＆　n-jun　です。

＞#1さんの前の回答のところのコードのエラーです。
＞http://oshiete1.goo.ne.jp/qa5411579.html​
rivoisuさんが書かれたコードですね。

エラーの原因は"OriginDT"と言うシートが存在しないからではないでしょうか？

＞Set ws1 = Worksheets("OriginDT")　'元データ
＞Set ws2 = Worksheets("SelectDT")　'抽出データ
元データ及び抽出データに該当する【シート名】を、ご自身で適宜修正する必要が
ありますが、それを行なっていないためにエラーになったのではないかと。

エラーが発生したのであれば
＞http://oshiete1.goo.ne.jp/qa5411579.html​
できちんと報告した方が良かったと思います。

お礼

ありがとうございます。
データシートの名前を変更してみたらそのエラーは無くなって、
If i > 3 And Abs(Cells(i, 1) - Cells(i - 1)) >= 10 Then
中断モードでコードを実行することができません。
というエラーが新たに発生しました。

回答No.4

n-jun

＃３です。

＞というエラーが新たに発生しました。
あとは作成された方からの補足回答を待ってみて下さい。

回答No.2

n-jun

＃１です。

＞エラーは、
＞Set ws1 = Worksheets("OriginDT") '元データ
＞の箇所で起こります。
質問文にはこのようなコードは見あたりませんが。。。
他の回答と混乱してませんか？

回答を受けて自身の応用で書き換えて発生しているエラーだとすれば、そのコードの提示がないと
回答者側はエラーを再現するのは不可能かも知れません。

お礼

#1さんへ

#1さんの前の回答のところのコードのエラーです。
http://oshiete1.goo.ne.jp/qa5411579.html

回答No.1

n-jun

画像は見えないので憶測ですが。

＞前回の結果より10増減があったとき、20結果の増減があった時にもデータを
＞抜き出すようにするにはどうすればいいですか？
条件としては
・１０の増減があった時
・２０の増減があった時
・それ以外の増減は当てはまらない
と言う事なのでしょうか？

そうでなければ
・１０以上の増減があった時
で良いと思うんですけど、条件がハッキリ見えてこないです。

あとデータ範囲は２５５列で間違いないのでしょうね。
あるいは行によってデータ範囲が違うとか。
そのあたりの情報も不明です。

ファイルを観られない分、情報は確実であるほど回答はつきやすいかと。

お礼

絶対値が10ずれた場合、相対的に20%ずれた場合にもデータを抜き出すという意味です。データは255列以内です。

エラーは、
Set ws1 = Worksheets("OriginDT") '元データ
の箇所で起こります。