過去ログ

                                Page     375
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼行の高さもコピーしたい。  未熟者 02/11/21(木) 11:18
   ┗Re:行の高さもコピーしたい。  りん 02/11/21(木) 23:02
      ┗ありがとうごじゃります。  未熟者 02/11/22(金) 10:37

 ───────────────────────────────────────
 ■題名 : 行の高さもコピーしたい。
 ■名前 : 未熟者
 ■日付 : 02/11/21(木) 11:18
 -------------------------------------------------------------------------
   こんにちはです。

me.Range("A1:BD34").Copy
me.Range("A35").PasteSpecial

を行ったと時に、行の高さもコピー元と
同じにしたいのですが、一回で、
行う方法などは、あるのでしょうか?
(ループをさせて一行一行高さを調整する方法は、
わかるのですが、できれば、ループは使いたくないので。)

ぜひぜひ、ご教授ください。
 ───────────────────────────────────────  ■題名 : Re:行の高さもコピーしたい。  ■名前 : りん <rin_doggie@hotmail.com>  ■日付 : 02/11/21(木) 23:02  -------------------------------------------------------------------------
   未熟者 さん、こんばんわ。

>me.Range("A1:BD34").Copy
>me.Range("A35").PasteSpecial
引数がないとこをみたら普通のペーストと同じ?

BDから右には何も入っていないのならば、

me.Rows("1:34").Copy Destination:=me.Range("A35")

で行の値も書式も全部コピーになります。
 ───────────────────────────────────────  ■題名 : ありがとうごじゃります。  ■名前 : 未熟者  ■日付 : 02/11/22(金) 10:37  -------------------------------------------------------------------------
   りんさん、こんにちはです。

できました!!
ありがとうございました。

アホゥな質問ですいません。m(__)m
もっともっと、お勉強するので、許してください。。。。。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 375