我需要从活动单元格中选择所有单元格直到空白单元格,然后将它们仅粘贴为值。从活动单元格中选择所有单元格直到空白单元格并粘贴值
我正在使用这一行,但这是复制所有格式。
Range(Selection, Selection.End(xlDown)).Copy Range("C10")
我需要从活动单元格中选择所有单元格直到空白单元格,然后将它们仅粘贴为值。从活动单元格中选择所有单元格直到空白单元格并粘贴值
我正在使用这一行,但这是复制所有格式。
Range(Selection, Selection.End(xlDown)).Copy Range("C10")
尝试将其作为直接价值转移。
with Range(Selection, Selection.End(xlDown))
.parent.Range("C10").resize(.rows.count, .columns.count) = .value
end with
对于没有区域货币或日期“标记”原始值,改变.value的到.Value2。 (例如26/06/2017变成42912)
如果您只想复制和粘贴值而不是格式化,那么您可以使用粘贴特殊方法。
Range(Selection, Selection.End(xlDown)).Copy
Range("C10").PasteSpecial operation:=xlPasteValues
Application.CutCopyMode = True
使用xlPasteValues操作只粘贴值而不是格式。 Application.CutCopyMode将摆脱选择周围的“跳舞蚂蚁”。