從活動單元格中選擇所有單元格直到空白單元格並粘貼值

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 

對於沒有區域貨幣或日期「標記」原始值，改變.value的到.Value2。 （例如26/06/2017變成42912）

Answer 2

如果您只想複製和粘貼值而不是格式化，那麼您可以使用粘貼特殊方法。

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

使用xlPasteValues操作只粘貼值而不是格式。 Application.CutCopyMode將擺脫選擇周圍的「跳舞螞蟻」。