アクティブなセルのすべてのセルを空白のセルとペースト値まで選択します

Question

アクティブなセルから空白のセルまですべてのセルを選択し、それらを値として貼り付ける必要があります。

私はこの行を使用していますが、これはすべての書式をコピーしています。

Range(Selection, Selection.End(xlDown)).Copy Range("C10") 

Answer 1

直接価値移転として試してください。

with Range(Selection, Selection.End(xlDown)) 
    .parent.Range("C10").resize(.rows.count, .columns.count) = .value 
end with 

地域通貨または日付 'マーカー'のない生の値の場合は、値を.Value2に変更します。 （例：26/06/2017は42912になります）

Answer 2

値をコピーして貼り付けるだけで、書式設定はしない場合は、貼り付けの特別な方法を使用できます。

Range(Selection, Selection.End(xlDown)).Copy 
Range("C10").PasteSpecial operation:=xlPasteValues 
Application.CutCopyMode = True 

xlPasteValues操作を使用して、書式設定ではなく値を貼り付けます。 Application.CutCopyModeは、選択の周りの「ダンスアリ」を取り除きます。