从活动单元格中选择所有单元格，直到出现空白单元格并粘贴值答案

【问题标题】：Select all the cells from the active cell down until a blank cell and paste values从活动单元格中选择所有单元格，直到出现空白单元格并粘贴值
【发布时间】：2017-06-27 03:31:58
【问题描述】：

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

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

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

【问题讨论】：

标签： vba excel

【解决方案1】：

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

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

对于没有区域货币或日期“标记”的原始值，将 .Value 更改为 .Value2。（例如 26/06/2017 变为 42912）

【讨论】：

【解决方案2】：

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

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

使用 xlPasteValues 操作仅粘贴值而不粘贴格式。 Application.CutCopyMode 将摆脱选区周围的“跳舞的蚂蚁”。

【讨论】：