【初月無料キャンペーン中】gooドクター

みなさん、お知恵をください。
Excel2000です。
Sheets(1)に A:D までを結合したセルを30行ぐらい用意した状態で
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

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

gooドクター

A 回答 (2件)

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


では無理かな?
    • good
    • 9
この回答へのお礼

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

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

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



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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング