繰り返し処理で

質問

以下のEXCELデータを【Sheet1】に取り込む

【Sheet1】
　 　　　　A　　　　　　B　　　　C
1 2008/1/1 0:00　　100　　100
2 2008/1/1 1:00　　100　　100
3 2008/1/1 2:00　　100　　100
この時最終行のA3の文字列を変数に入れる
↓
【Sheet1】の全セルをクリア
↓
【2回目のデータ】
　　　　　　　A　　　　　B　　　　C
1 2008/1/1 2:00　　100　　100
2 2008/1/1 3:00　　100　　100
3 2008/1/1 4:00　　100　　100

この時,1回目のデータの最終行だったA3の文字列【2008/1/1 2:00】と
2回目のデータのA1【2008/1/1 2:00】を比較して、
同じであれば、A2行目から処理を開始

※ もし比較して一致しなければ1行目から処理
↓
【Sheet1】の全セルをクリア
↓
2回目のデータの最終行だったA3の文字列【2008/1/1 4:00】と
3回目のデータのA1文字列を比較
一致したら2行目から処理
↓
これの繰り返し処理

マクロを作ってみたのですが、何かもっとこうしたほうがいい様な書き方あれば
教えていただきたく思っているのですが・・・；

あとContinueに代わる、繰り返し関数？ってありますでしょうか？
-------------------------------------------------------------------------------
Gyo = 100
x = Null

For h = 1 To Gyo

　If h = 1 Then
　　　'nullでない場合
　　　　if x := "" then
　　　　　　'A1とxを比較して同じであればコンティニュー
　　　　　　If x = Sheets(SheetName).Cells(1,1) Then
　　　　　　　　　continue '←Forに戻る
　　　　　　End If
　　　　End If
　　else if h = Gyo then
　　　　'最終A行のデータをx変数に格納
　　　　　x = Sheets(SheetName).Range("A100").End(xlUp).Row
　　End If
Next h
-------------------------------------------------------------------------------

回答No.1

noname#62235 · ベストアンサー

・「１回目のデータ」「２回目のデータ」・・・はどこから「来る」のか？
・「○行目から処理をする」とあるが、処理とはいったいどんな処理なのか？

がわからないと回答のしようがありません。
お書きになられているコードを見ても処理に相当する部分がないので、このコードを実行しても（今のところエラーが出て実行できないでしょうけど）何も起こらず時間がかかるだけになります。

ちなみに、ExcelVBAではC言語のContinueに相当するものはありません(Breakに相当するものはExit Forですが）。なので、GoToを使ってループの最後に飛ぶか、IFのロジックで組むしかありません。

あとご自身で書かれているコードの比較演算子？「:=」を言うものもExcelVBAにはありません（Pascalがお好きですか？）。普通に「=」です（オブジェクトの場合Isを使います）。

お礼

大変遅くなって申し訳ございません。。

おかげさまで今は正常に動作いたしました　ありがとうございます。