[[20141127143439]]　『マクロ式について』（あこ）　ページの最後に飛ぶ

『マクロ式について』（あこ）

下記マクロ式をサイトからお借りして使用していますが、
このマクロ式に続けて式をいれたいのですが、続けて式を入れ実行してもエラーは出ないものの下記式のまま計算が止まってしまいます。

sheet2のA1セルに数値を入力。sheet1のA列にsheet2/A1と同じ数値のある行を行ごと
sheet2の3列目にコピペで探し使用した式↓

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Set Cs = ActiveSheet
For Each Ws In Worksheets
If Ws.Name <> Cs.Name Then
Set Fr = Ws.Columns(1).Find(what:=Range("A1").Value, lookat:=xlWhole)
If Not Fr Is Nothing Then Rows(3).Value = Ws.Rows(Fr.Row).Value: Exit Sub
End If
Next
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

この後、シート2の2～3行目を

 Range("A2:A3").Select
 Range(Selection, Selection.End(xlToRight)).Select

A4セルへ縦並びに変換して貼付けをしたいのですが

 Range("A4").Select
 Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

方法を教えてください。
よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 > Exit Sub 
 はそのプロシージャを終わらせる。
 Exit Loop
 にしてはどうか？

（ねむねむ） 2014/11/27(木) 15:12

ねむねむさま

ありがとうございます。
Exit Sub はプロシージャを終わらせる意味のものだったんですね。
知らないで使用していたのでとても参考になりました。
Exit Loopにしてみたらエラーになり、Exit For にしてみたら解決しました。
ありがとうございました。
（あこ） 2014/11/27(木) 22:47

 きちんと確認してなくてすまない。
 LoopはDoに対するものでさらにDoに対応するExitはExit Doと二重に間違えていた。
（ねむねむ） 2014/11/28(金) 09:23

コメント返信：

[ 一覧(最新更新順) ]

[[20141127143439]] 『マクロ式について』（あこ） ページの最後に飛ぶ

[[20141127143439]]　『マクロ式について』（あこ）　ページの最後に飛ぶ