|
▼こたつねこ さん:
ありがとうございます。きっちりと動作しました。
不十分な説明をご理解いただき、また
大変忙しい中、貴重な時間を裂いていただき本当に感謝しています。
更にコードの解釈もつけていただき喜んでおります。
力不足のため、まだ十分に理解できていませんが、やりたい内容はすべてクリア
でき、大きな収穫を頂いた感じです。
それから、あと一点教えてください。
一番最初の解答で書いていただいたコードで
For Each r In myr
If r.Offset(, 1).Value <> "" Then
With Sheets(r.Offset(, 1).Value)
.Range("A65536").End(xlUp).Offset(1).Value = dteDate
.Range("C65536").End(xlUp).Offset(1).Value = r.Offset(, 2).value
End With
End If
Next
この部分ですが、何故シートを全て参照できるのか?疑問を抱いています。
With Sheets(r.offset(,1).valueのコードの役割とは思いますが、
どのような解釈をして、このシート全体を参照してデータを貼り付けているのか
コメントいただけませんでしょうか。
本当にありがとうございました。これから更に勉強したく思います。
失礼します。
|
|