エクセルのマクロで結合セルに値を貼り付けたい

みなさん、お知恵をください。
Excel2000です。
Sheets(1)に　A:D　までを結合したセルを３０行ぐらい用意した状態で
Sheets(2)の　単一セル　A1,A2,A3,A4,A5・・・・とつづく変数　HENSUUを
貼り付けたいのです。＊HENSUUは値のみの文字であったり数字です。

もちろん下記の過去質問はチェック済みです。
http://oshiete1.goo.ne.jp/qa2197173.html

物まねで作成しましたがエラーです。
Sheets(2).Select
HENSUU = Range("A65536").End(xlUp).Row　　’変数最終行定義
Sheets(1).Range(Cells(1, 1), Cells(HENSUU, 1)).Value = Sheets(2).Range(Cells(1, 1), Cells(HENSUU, 1)).Value

すみません。お知恵を拝借させて下さい。
よろしくお願いします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2008/12/01 20:06

Sheets(1).Range("A1:A" & HENSUU).Value = Sheets(2).Range("A1:A" & HENSUU).Value

では無理かな？

この回答へのお礼

おおっ～貼り付きました！！！　ありがとうございました。

お礼日時：2008/12/02 15:18

No.2 回答者： fujillin 回答日時： 2008/12/01 20:32

結合セルに値を代入することは可能ですが、結果的に、左上のセル以外は無効になってしまいます。

貼り付けたいのが単一セルと決まっているのなら、
値を入れる前にセルの結合解除をしておけばよいでしょう。
Sheets(1).Range("A1:A" & HENSUU).MergeCells = False

貼り付ける側の内容にも部分的結合などが含まれている場合は、
貼り付け対象部分の結合を解除した後で、コピー、ペーストで貼り付けるのが簡単です。

この回答へのお礼

回答ありがとうございます。
今回はなにがなんでも結合セルのフォームに貼り付けたかったので
fujillinさんのは最後の手段として残しておりました。
ありがとうございましたｍ（＿＿）ｍ

お礼日時：2008/12/02 15:21