今日は誕生日・・・・何という変化もない。Facebookの誕生日の祝辞が何件かあっただけ。という話題はさておき
EXCELのワザを確認したのでメモ。
結合したセルを含む範囲を選択してコピー・ペーストしようとするとエラーになるだろうと勝手に思い込み、まず結合セルの範囲を調べて、ペースト先のセルも同じ形に結合しておいて・・・・と手間暇かけた処理をしようかと思って調べているうちに、単純な Ctrl+C　＞　Ctrl+V で結合していないセル範囲にも問題なく貼り付けられる事が分かった。で、マクロ記録してそのコードを参考に、以下のコードを書いてテストしたら、何のことはない問題なくペーストできた。
With Worksheets("Sheet2")
　.Range(.Cells(4, 2), .Cells(9, 8)).Select
　Selection.Copy
　.Range(.Cells(4, 12), .Cells(4, 12)).Select
　ActiveSheet.Paste
End With

案ずるより産むがやすし・・・絵で描いたようだ。
ついでに今までの疑問が解けたので、それもメモ。
Rangeオブジェクトの指定が間違っていて「VBA 実行時エラー1004 rangeメソッドは失敗しました。」というエラーが発生することがあるが、上記のように With節を使うなどして、シートオブジェクトなどを明示的に指定しないのが原因らしい。それと、つい忘れてしまうが、Range(Cells(R,C),Cells(R,C)).Select のように Rangeオブジェクトのパラメータを 数式で表現したいので R1C1形式で指定する場合、必ず開始セルと終了セルの両方を入れないと同じエラーになる。一つのセルを指定する場合にも 開始セル＝終了セル として記述する必要があるが、"A1"形式だと一つで許されるのでつい忘れてしまってしばし悩む。

---

今日の写真は、昨日と同じところのカルミアの花なんだが、咲き始めはこんな赤と白のブチのような花らしい。同じ枝に真っ白の花も咲いているから。＞＞気になってもう一度見に行った。よく見たら、下の方は２株あるらしく、入り組んでいるが別の株から出ている枝の花らしいと分かった。DNAの戯れなんだろう。お蔭でアヤしい叔父さんをしてしまったようだ。