|
ご回答ありがとうございます。
説明不足で大変申し訳ありません。
ご指摘の通りブランクになったら処理を抜けたいのと
シート1のCG3で転記を終わらせたいです。
現在、組み込まれているコードに 追加で組んでいまして
そのせいなのか セル番地 YW3まで入力されてしまいます。
別シートで検証した結果問題なく処理が完了したことで
現在、組まれているコードに組もうとしているコードが悪さしていると思いました。
もう一度 見直しを行ってみます。
それでも分からないときは またお知恵をお借りしたいと思いますので
宜しければ お力添えのほどよろしくお願いいたします。
▼γ さん:
>範囲自体は広くとっておくのだが、
>ブランクのところに来たら、処理を抜けると言う意味ですか?
># 勝手な推測ですが。
>
>Sub test()
> Dim rng As Range, i As Long
> For Each rng In Worksheets("Sheet1").Range("D1:O1")
> If IsEmpty(rng.Value) Then Exit For
> Worksheets("Sheet2").Range("H3").Offset(, 7 * i).Value = rng.Value
> i = i + 1
> Next rng
>End Sub
|
|