从活动单元格中选择所有单元格,直到空白单元格并粘贴值

时间:2017-06-26 17:55:52

标签: excel vba excel-vba

我需要从活动单元格中选择所有单元格,直到空白单元格,然后将它们仅作为值粘贴。

我正在使用此行,但这是复制所有格式。

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

2 个答案:

答案 0 :(得分:0)

尝试将其作为直接价值转移。

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

对于没有区域货币或日期'标记'的原始值,请将.Value更改为.Value2。 (例如26/06/2017成为42912)

答案 1 :(得分:0)

如果您只想复制和粘贴值而不是格式,那么您可以使用粘贴特殊方法。

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

使用xlPasteValues操作仅粘贴值而不是格式。 Application.CutCopyMode将摆脱跳舞的蚂蚁'围绕选择。