|    | 
     "具体的に何に困っているのか" 具体的には 
"Sheet1"の指定範囲をコピーして"Copy先Sheet"に貼り付けさらに"Sheet2"の指定範囲をコピーして"Copy先Sheet"に貼り付けるようにしていました 
しかし"Sheet1"の値が"A"列のみの値が貼り付けられ"Sheet2"は正常に貼り付けられています 
どうやら コピー先のセル設定がおかしいのではないかと思い   
  LastRow = sht.Range("A1").CurrentRegion.Rows.Count+2 
 "Copy先Sheet"の最下空白行を取得し貼り付けましたら 
 うまくいきました お礼がおそくなり申し訳ありません 
  この間出張でトライできませんでした 
  ありがとうございました 
▼山猿 さん: 
>A1:E20 が表ならば、 
>CurrentRegion は Range("A1:E20")ですよ。 
> 
>>▼ichi さん: 
>>   また、CurrentRegionは空白列;空白行に囲まれた範囲とありますが 
>>   今回のように空白列;空白行がなくてもよいのでしょうか 
>>   よろしくお願いいたします 
>この場合、 
>F1 :F20 の空白列や  
>A21:F21 の空白行に囲まれていますよね。 
>そういう意味です。 
> 
>陸地と海面のように考えてもらってもいいですね。 
> 
>以上は、CurrentRegionの意味の説明です。 
>普通は A5を基準になんかしません。A1を基準にします。 
> 
>で、そうした理解をしたうえで、 
>具体的に何に困っているのか、もう一度、説明してください。 
> 
># 有名人のコメント以外は無視ですかね。 
 | 
     
    
   |