|
▼でれすけ さん:
ご回答ありがとうございます。
ヒントをいただいて、がんばっていますが
どうしても、解決できません。
>こんばんは。
>
>これだと、ループのあいだ中、nの値が変わっていません。
>ループを一回まわるたびにnの値が1づづ増えるようにしてください。
>また、貼り付け先の指定
>Range("I311" & n).Offset(1)
>が変です。もう一度よく考えてみてましょう。
For Each rng In Range("A9,A19,A29,A39,A49,A59,A69,A79,A89,A99,A109,A119,A129,A139,A149,A159,A169,A179,A189,A199,A209,A219,A229,A239,A249,A259,A269,A279,A289,A299")
With rng
If .Value = "0" Then
.Offset(0, 8).Copy
Range("I311" + n).PasteSpecial Paste:=xlPasteValues
cnt = n + 1
End If
End With
Next
上記の様に、組んでみましたが
貼り付けられるのは、"I311"〜"I319"までで
"I320"以降には貼り付けてくれません。
おそらく原因は、"I3111"に貼り付けようとしてるのだと思うのですが
(そういう桁数の行がないので)
cnt = n + 1
だと、まずいのでしょうか?
解決しないと帰宅できないので
誰かお答えくださいませんでしょうか?
よろしくお願いいたします
|
|